资源描述：
《VB实例源码 2》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、课前体验PrivateSubForm_Click()Fori=1To10Forj=1ToiPrint"*";NextjPrintNextiEndSub【例3-1】PrivateSubForm_Click()c1$=Chr$(13)+Chr$(10)msg1$="请输入您的名字:"msg2$="输入后按回车键"msg3$="或单击“确定”按钮"msg$=msg1$+c1$+msg2$+c1$+msg3$name$=InputBox(msg$,"InputBox函数示例","张三")Printname$EndSub【例3-2】PrivateSubForm_Click()M
2、sg1$=”AreyouContinueto?”msg2$=”OperationDialogBox”r=MsgBox(msg1$,34,msg2$)PrintrEndSub【例3-3】编写程序，用MsgBox函数判断是否继续执行。PrivateSubForm_Click()msg$="请确认此数据是否正确"Title$="数据检查对话框"x=MsgBox(msg$,19,Title$)Ifx=6ThenPrintx*xElseIfx=7ThenPrint"请重新输入"EndIfEndSub【例3-5】PrivateSubForm_Click()Print:PrintF
3、ontName="隶书"FontSize=16Print"姓名";Tab(8);"年龄";Tab(16);"职务";PrintTab(24);"单位";Tab(32);"籍贯"65PrintPrint"吴大明";Tab(8);25;Tab(16);"职员";Tab(24);"人事科";Tab(32);"北京"EndSub【例3-6】PrivateSubForm_Click()X=InputBox("请输入成绩","学生成绩录入","00")PrintxEndSub【例3-7】PrivateSubForm_Click()DimxAsSingle,yAsSinglex=I
4、nputBox(“请输入x的值”)Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1Print“x=”;x,”y=”;yEndSub【例3-8】PrivateSubForm_Click()Dimmsg,UserInputmsg="请输入一个字母或0～9之间的数字."UserInput=InputBox(msg)‘输入一个字母或数字IfNotIsNumeric(UserInput)Then‘判断是否是数字IfLen(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1SelectCaseAsc(UserInput)‘判断输入字
5、母的ASCII码值Case60To90'在60-90之间为大写字母msg="你输入的是一个大写字母'"msg=msg&Chr(Asc(UserInput))&"'。"Case97To122'小写字母msg="你输入的是一个小写字母'"msg=msg&Chr(Asc(UserInput))&"'。"CaseElsemsg="你没有输入字母或数字."EndSelectEndIfElseSelectCaseVal(UserInput)'将输入的数值型字符转换为数值Case1,3,5,7,9'如果是奇数msg=UserInput&"是一个奇数。"Case0,2,4,6,8'如
6、果是偶数msg=UserInput&"是一个偶数。"CaseElse'出界msg="你输入的数字不在0～9范围内"EndSelectEndIf65MsgBoxmsgEndSub【例3-8】PrivateSubForm_Click()Dimmsg,UserInputmsg="请输入一个字母或0～9之间的数字."UserInput=InputBox(msg)‘输入一个字母或数字IfNotIsNumeric(UserInput)Then‘判断是否是数字IfLen(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1SelectCaseAsc(UserI
7、nput)‘判断输入字母的ASCII码值Case60To90'在60-90之间为大写字母msg="你输入的是一个大写字母'"msg=msg&Chr(Asc(UserInput))&"'。"Case97To122'小写字母msg="你输入的是一个小写字母'"msg=msg&Chr(Asc(UserInput))&"'。"CaseElsemsg="你没有输入字母或数字."EndSelectEndIfElseSelectCaseVal(UserInput)'将输入的数值型字符转换为数值Case1,3,5,7,9'如果是奇数msg=UserInput&"是一
