VISUAL BASIC实例源代码

课前体验Private Sub Form_Click()For i=1To10For j=1To iPrint"*";Next jPrintNext iEnd Sub【例3-1】Private Sub Form_Click()c1$=Chr$(13)+Chr$(10)msg1$="请输入您的名字:"msg2$="输入后按回车键"msg3$="或单击“确定”按钮"msg$=msg1$+c1$+msg2$+c1$+msg3$name$=InputBox(msg$,"InputBox函数示例","张三")Print name$End Sub【例3-2】Private Sub Form_Click()Msg1$=”Are you Continue to?”msg2$=”Operation Dialog Box”r=MsgBox(msg1$,34,msg2$)Print rEnd Sub【例3-3】编写程序，用MsgBox函数判断是否继续执行。

Private Sub Form_Click()msg$="请确认此数据是否正确"Title$="数据检查对话框"x=MsgBox(msg$,19,Title$)If x=6ThenPrint x*xElseIf x=7ThenPrint"请重新输入"End IfEnd Sub【例3-5】Private Sub Form_Click()Print:PrintFontName="隶书"FontSize=16Print"姓名";Tab(8);"年龄";Tab(16);"职务";Print Tab(24);"单位";Tab(32);"籍贯"PrintPrint"吴大明";Tab(8);25;Tab(16);"职员";Tab(24);"人事科"; Tab(32);"北京"End Sub【例3-6】Private Sub Form_Click()X=InputBox("请输入成绩","学生成绩录入","00")Print xEnd Sub【例3-7】Private Sub Form_Click()Dim x As Single,y As Singlex=InputBox(“请输入x的值”)If x>0Then y=1ElseIf x=0Then y=0Else y=-1Print“x=”;x,”y=”;yEnd Sub【例3-8】Private Sub Form_Click()Dim msg,UserInputmsg="请输入一个字母或0～9之间的数字."UserInput=InputBox(msg)‘输入一个字母或数字If Not IsNumeric(UserInput)Then‘判断是否是数字If Len(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput)‘判断输入字母的ASCII 码值Case60To90'在60-90之间为大写字母msg="你输入的是一个大写字母'"msg=msg&Chr(Asc(UserInput))&"'。

"Case97To122'小写字母msg="你输入的是一个小写字母'"msg=msg&Chr(Asc(UserInput))&"'。

"Case Elsemsg="你没有输入字母或数字."End SelectEnd IfElseSelect Case Val(UserInput)'将输入的数值型字符转换为数值Case1,3,5,7,9'如果是奇数msg=UserInput&"是一个奇数。

"Case0,2,4,6,8'如果是偶数msg=UserInput&"是一个偶数。

"Case Else'出界msg="你输入的数字不在0～9范围内"End SelectEnd IfMsgBox msgEnd Sub【例3-8】Private Sub Form_Click()Dim msg,UserInputmsg="请输入一个字母或0～9之间的数字."UserInput=InputBox(msg)‘输入一个字母或数字If Not IsNumeric(UserInput)Then‘判断是否是数字If Len(UserInput)=1Then‘不是数字时，判断输入的字符串长度是否为1Select Case Asc(UserInput)‘判断输入字母的ASCII 码值Case60To90'在60-90之间为大写字母msg="你输入的是一个大写字母'"msg=msg&Chr(Asc(UserInput))&"'。

"Case97To122'小写字母msg="你输入的是一个小写字母'"msg=msg&Chr(Asc(UserInput))&"'。

"Case Elsemsg="你没有输入字母或数字."End SelectEnd IfElseSelect Case Val(UserInput)'将输入的数值型字符转换为数值Case1,3,5,7,9'如果是奇数msg=UserInput&"是一个奇数。

"Case0,2,4,6,8'如果是偶数msg=UserInput&"是一个偶数。

"Case Else'出界msg="你输入的数字不在0～9范围内"End SelectEnd IfMsgBox msgEnd Sub【例3-10】Sub Form_Click()Dim N As Integern=InputBox("Enter N:")‘输入N的值k=1For i=1To N‘循环N次，计算出N！k=k*INext iPrint N;”!=”;k‘数据输出End Sub【例3-12】Dim S,NS=0:N=0Do While S<=100N=N+1S=S+NLoopPrint S,N【例3-13】Private Sub Form_Click()Dim char As StringCount=0char=InputBox("请输入一个字符")While char<>"?"Count=Count+1char=InputBox$("请输入一个字符")WendPrint"输入的字符数是:";CountEnd Sub【例3-14】Private Sub Form_Click()Print"*";For i=1To9Print Tab(i*6);i;Next iPrintFor j=1To9Print j;For k=1To jPrint Tab(k*6);j*k;"";Next kPrintNext jEnd Sub第4章课前体验（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下：Private Sub Text1_LostFocus()If Val(Text1.Text)<0Or Val(Text1.Text)>100ThenText1.Text=""Text1.SetFocusEnd IfEnd Sub（2）其他文本框的LostFocus事件类似。

（3）假定按钮名称为Command1，该按钮的Click事件过程如下：Private Sub Command1_Click()If Check1.Value=1Then Sum=Sum+Val(Text1.Text)If Check2.Value=1Then Sum=Sum+Val(Text2.Text)If Check3.Value=1Then Sum=Sum+Val(Text3.Text)If Check4.Value=1Then Sum=Sum+Val(Text4.Text)If Check5.Value=1Then Sum=Sum+Val(Text5.Text)Text6.Text=SumEnd Sub【例4-1】Private Sub Command1_Click()‘在其单击事件中编程For i=1To6‘外循环，控制输出几行For j=1To i‘内循环，控制输出几列Print"*";Next jPrint‘换行Next iEnd Sub【例4-2】Private Sub Text1_Change()Text2.Text=LCase(Text1.Text)Text3.Text=UCase(Text1.Text)End Sub【例4-3】Private Sub Check1_Click()Text1.FontUnderline=Not Text1.FontUnderlineEnd SubPrivate Sub Check2_Click()Text1.FontItalic=Not Text1.FontItalicEnd SubPrivate Sub Option1_Click()Text1.Font="黑体"End SubPrivate Sub Option2_Click()Text1.Font="宋体"End Sub【例4-4】Private Sub Command1_Click()If Option1ThenText1.FontName="宋体"ElseText1.FontName="黑体"End IfIf Option3ThenText1.FontSize=8ElseText1.FontSize=10End IfEnd SubPrivate Sub Command2_Click()EndEnd Sub【例4-5】Private Sub Form_Load()‘在窗体的Load事件中输入列表框的各个项目lstBooks.AddItem"计算机应用基础"lstBooks.AddItem"操作系统"lstBooks.AddItem"数据结构"lstBooks.AddItem"网络技术基础"End SubPrivate Sub cmdAdd_Click()‘单击添加命令按钮时将文本框中输入的内容添加到列表框中lstBooks.AddItem txtItemtxtItem=""End SubPrivate Sub cmdDelete_Click()‘删除列表框中选中的项目lstBooks.RemoveItem lstBooks.ListIndexEnd SubPrivate Sub cmdModify_Click()‘所选项目显示在文本框中，等待修改txtItem.Text=lstBooks.TextcmdAdd.Enabled=FalsecmdDelete.Enabled=FalsecmdModify.Enabled=FalsecmdModify_OK.Enabled=TrueEnd SubPrivate Sub cmdModify_OK_Click()‘所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容lstBooks.List(lstBooks.ListIndex)=txtItemcmdModify_OK.Enabled=TruecmdAdd.Enabled=TruecmdDelete.Enabled=TruecmdModify.Enabled=TruetxtItem=""End Sub【例4-6】Private Sub Form_Click()Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.PicturePciture3.Picture=LoadPicture()‘把第3个图片框设置为空End sub【例4-7】Private Sub HScroll1_Change()Text1.Text=HScroll1.ValueEnd Sub【例4-8】Private Timer1_Timer()Labe1.Caption=Time$End Sub实训Private Sub Command1_Click()Debug.Print"姓名:";Text1.TextDebug.Print"出生年月:";Text2.TextDebug.Print"籍贯:";Text3.TextIf Option1.Value Then Debug.Print"性别:";"男"If Option2.Value Then Debug.Print"性别:";"女"Debug.Print"民族:";Combo1.TextIf Check1.Value=1Then Debug.Print"健康"Else Debug.Print"不健康"Debug.Print"职称:";Combo3.TextDebug.Print"工资:";Text4.TextDebug.Print"外语熟练程度";HScroll1.ValueDebug.Print"简历:";Text5.TextEnd Sub第5章课前体验Private Sub Command6_Click()Const n=10‘定义常量n的值为10Max=0:K=0‘最高分及所在位置赋初值For i=1To nb(i)=InputBox("请输入第"&i&"个同学的成绩",求最高分)‘输入成绩If b(i)>Max ThenMax=b(i)K=I‘将第i个成绩与最高分Max相比，如果比最高分高，则保存起来End IfNext iPrint"最高分是第"&K&"个同学，其成绩是："&MaxEnd Sub【例5-1】Option Base1Private Sub Command1_Click()Dim a(3)As Integera(1)=1:a(2)=3:a(3)=5Print a(1)Print a(2)Print a(3)End Sub【例5-2】For i=1To10b(i)=InputBox("请输入第"&i&"个数")Next i【例5-3】For i=1To2For j=1To2b(i,j)=i+jNext jNext i【例5-4】Dim S(3，2)As Integer程序如下：For i=0To3Print Tab(5);‘输出位置定位For j=0To2S(i,j)=i*2+j‘给各元素赋值Print S(i,j);图5-4使用二维数组打印出的图形Next jPrint‘换行Next i【例5-5】Private Sub Form_Click()Dim s(5)As Integer'定义数组SConst n=5For i=1To ns(i)=Val(InputBox("请输入第"&LTrim$(Str$(i))&"个数",数据排序))‘输入n个数，转换成数值后保存在数组中。