VB 实例源码.doc

课前体验
PrivateSubForm_Click()
Fori=1To10
Forj=1Toi
Print"*";
Nextj
Print
Nexti
EndSub
【例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()
Msg1$=”AreyouContinueto?” msg2$=”OperationDialogBox”
r=MsgBox(msg1$,34,msg2$)
Printr
EndSub
【例3-3】编写程序，用MsgBox函数判断是否继续执行。
PrivateSubForm_Click()
msg$="请确认此数据是否正确"
Title$="数据检查对话框"
x=MsgBox(msg$,19,Title$)
Ifx=6Then
Printx*x
ElseIfx=7Then
Print"请重新输入"
EndIf
EndSub
【例3-5】
PrivateSubForm_Click()
Print:Print
FontName="隶书"
FontSize=16
Print"姓名";Tab(8);"年龄";Tab(16);"职务";
PrintTab(24);"单位";Tab(32);"籍贯"
Print
Print"吴大明";Tab(8);25;Tab(16);"职员";Tab(24);"人事科";Tab(32);"北京"
EndSub
【例3-6】
PrivateSubForm_Click()
X=InputBox("请输入成绩","学生成绩录入","00")
Printx
EndSub
【例3-7】
PrivateSubForm_Click()
DimxAsSingle,yAsSingle
x=InputBox(“请输入x的值”)
Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1
Print“x=”;x,”y=”;y
EndSub
【例3-8】
PrivateSubForm_Click()
Dimmsg,UserInput
msg="请输入一个字母或0～9之间的数字."
UserInput=InputBox(msg)‘输入一个字母或数字
IfNotIsNumeric(UserInput)Then‘判断是否是数字
IfLen(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1
SelectCaseAsc(UserInput)‘判断输入字母的ASCII码值
Case60To90'在60-90之间为大写字母
msg="你输入的是一个大写字母'"
msg=msg&Chr(Asc(UserInput))&"'。"
Case97To122'小写字母
msg="你输入的是一个小写字母'"
msg=msg&Chr(Asc(UserInput))&"'。"
CaseElse
msg="你没有输入字母或数字."
EndSelect
EndIf
Else
SelectCaseVal(UserInput) '将输入的数值型字符转换为数值
Case1,3,5,7,9 '如果是奇数
msg=UserInput&"是一个奇数。"
Case0,2,4,6,8 '如果是偶数
msg=UserInput&"是一个偶数。"
CaseElse '出界
msg="你输入的数字不在0～9范围内"
EndSelect
EndIf
MsgBoxmsg
EndSub
【例3-8】
PrivateSubForm_Click()
Dimmsg,UserInput
msg="请输入一个字母或0～9之间的数字."
UserInput=InputBox(msg)‘输入一个字母或数字
IfNotIsNumeric(UserInput)Then‘判断是否是数字
IfLen(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1
SelectCaseAsc(UserInput)‘判断输入字母的ASCII码值
Case60To90'在60-90之间为大写字母
msg="你输入的是一个大写字母'"
msg=msg&Chr(Asc(UserInput))&"'。"
Case97To122'小写字母
msg="你输入的是一个小写字母'"
msg=msg&Chr(Asc(UserInput))&"'。"