VB实例源码.docx

1、VB实例源码课前体验Private Sub Form_Click()For i = 1 To 10For j = 1 To 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【

2、例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 = 6 Then Print x * x ElseIf x = 7 Then Print 请重新输入

3、 End IfEnd Sub【例3-5】Private Sub Form_Click() Print: Print FontName = 隶书 FontSize = 16 Print 姓名; Tab(8); 年龄; Tab(16); 职务; Print Tab(24); 单位; Tab(32); 籍贯 Print Print 吴大明; Tab(8); 25; Tab(16); 职员; Tab(24); 人事科; Tab(32); 北京End Sub【例3-6】Private Sub Form_Click()X = InputBox(请输入成绩, 学生成绩录入, 00)Print xEnd Su

4、b【例3-7】Private Sub Form_Click() Dim x As Single, y As Single x=InputBox(“请输入x的值”) If x0 Then y=1 ElseIf x=0 Then y=0 Else y=-1 Print “x=”; x ,”y=” ; yEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = 请输入一个字母或09之间的数字.UserInput = InputBox(msg) 输入一个字母或数字If Not IsNumeric(UserInput) Then 判断是否是

5、数字 If Len(UserInput) = 1 Then 不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput) 判断输入字母的ASCII码值 Case 60 To 90 在60-90之间为大写字母 msg = 你输入的是一个大写字母 msg = msg & Chr(Asc(UserInput) & 。 Case 97 To 122 小写字母 msg = 你输入的是一个小写字母 msg = msg & Chr(Asc(UserInput) & 。 Case Else msg = 你没有输入字母或数字. End Select End IfElse Sel

6、ect Case Val(UserInput) 将输入的数值型字符转换为数值 Case 1, 3, 5, 7, 9 如果是奇数 msg = UserInput & 是一个奇数。 Case 0, 2, 4, 6, 8 如果是偶数 msg = UserInput & 是一个偶数。 Case Else 出界 msg = 你输入的数字不在09范围内 End Select End If MsgBox msgEnd Sub【例3-8】Private Sub Form_Click()Dim msg, UserInputmsg = 请输入一个字母或09之间的数字.UserInput = InputBox(ms

7、g) 输入一个字母或数字If Not IsNumeric(UserInput) Then 判断是否是数字 If Len(UserInput) = 1 Then 不是数字时，判断输入的字符串长度是否为1 Select Case Asc(UserInput) 判断输入字母的ASCII码值 Case 60 To 90 在60-90之间为大写字母 msg = 你输入的是一个大写字母 msg = msg & Chr(Asc(UserInput) & 。 Case 97 To 122 小写字母 msg = 你输入的是一个小写字母 msg = msg & Chr(Asc(UserInput) & 。 Cas

8、e Else msg = 你没有输入字母或数字. End Select End IfElse Select Case Val(UserInput) 将输入的数值型字符转换为数值 Case 1, 3, 5, 7, 9 如果是奇数 msg = UserInput & 是一个奇数。 Case 0, 2, 4, 6, 8 如果是偶数 msg = UserInput & 是一个偶数。 Case Else 出界 msg = 你输入的数字不在09范围内 End Select End If MsgBox msgEnd Sub【例3-10】Sub Form_Click()Dim N As Integern =

9、InputBox(Enter N:) 输入N的值k = 1For i = 1 To N 循环N次，计算出N！ k = k * I Next 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 + 1 char = InputBox

10、$(请输入一个字符)WendPrint 输入的字符数是:; CountEnd Sub【例3-14】Private Sub Form_Click()Print *;For i = 1 To 9 Print Tab(i * 6); i;Next iPrintFor j = 1 To 9 Print j; For k = 1 To j Print Tab(k * 6); j * k; ; Next k PrintNext jEnd Sub第4章课前体验（1）假定用来输入数学成绩的文本框名称为Text1，该文本框的LostFocus事件过程如下： Private Sub Text1_LostFocus

11、() If Val(Text1.Text) 100 Then Text1.Text = Text1.SetFocus End IfEnd Sub（2）其他文本框的LostFocus事件类似。（3）假定按钮名称为Command1，该按钮的Click事件过程如下：Private Sub Command1_Click()If Check1.Value = 1 Then Sum = Sum + Val(Text1.Text)If Check2.Value = 1 Then Sum = Sum + Val(Text2.Text)If Check3.Value = 1 Then Sum = Sum + V

12、al(Text3.Text)If Check4.Value = 1 Then Sum = Sum + Val(Text4.Text)If Check5.Value = 1 Then Sum = Sum + Val(Text5.Text)Text6.Text = SumEnd Sub【例4-1】Private Sub Command1_Click() 在其单击事件中编程For i = 1 To 6 外循环，控制输出几行For j = 1 To i 内循环，控制输出几列Print * ;Next jPrint 换行Next iEnd Sub【例4-2】Private Sub Text1_Chang

13、e() 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

14、_Click() Text1.Font = 宋体End Sub【例4-4】Private Sub Command1_Click() If Option1 Then Text1.FontName = 宋体 Else Text1.FontName = 黑体 End If If Option3 Then Text1.FontSize = 8 Else Text1.FontSize = 10 End IfEnd SubPrivate Sub Command2_Click() EndEnd Sub【例4-5】Private Sub Form_Load()在窗体的Load事件中输入列表框的各个项目 lst

15、Books.AddItem 计算机应用基础 lstBooks.AddItem 操作系统 lstBooks.AddItem 数据结构 lstBooks.AddItem 网络技术基础End SubPrivate Sub cmdAdd_Click()单击添加命令按钮时将文本框中输入的内容添加到列表框中 lstBooks.AddItem txtItem txtItem = End SubPrivate Sub cmdDelete_Click()删除列表框中选中的项目 lstBooks.RemoveItem lstBooks.ListIndexEnd SubPrivate Sub cmdModify_C

16、lick()所选项目显示在文本框中，等待修改 txtItem.Text = lstBooks.Text cmdAdd.Enabled = False cmdDelete.Enabled = False cmdModify.Enabled = False cmdModify_OK.Enabled = TrueEnd SubPrivate Sub cmdModify_OK_Click()所选项目显示在文本框中修改完成后，按下修改确定按钮，更新列表框内容 lstBooks.List(lstBooks.ListIndex) = txtItem cmdModify_OK.Enabled = True c

17、mdAdd.Enabled = True cmdDelete.Enabled = True cmdModify.Enabled = True txtItem = End Sub【例4-6】Private Sub Form_Click() Picture3.Picture=Picture1.Picture Picture1.Picture=Picture2.Picture Picture2.Picture=Picture3.Picture Pciture3.Picture=LoadPicture() 把第3个图片框设置为空 End sub【例4-7】Private Sub HScroll1_Ch

18、ange() 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.Prin

19、t 民族:; Combo1.TextIf Check1.Value = 1 Then 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 = 1 To n

20、b(i) = InputBox(请输入第& i &个同学的成绩,求最高分) 输入成绩 If b(i) Max Then Max = b(i)K = I 将第i个成绩与最高分Max相比，如果比最高分高，则保存起来 End IfNext iPrint最高分是第& K &个同学，其成绩是：& MaxEnd Sub【例5-1】Option Base 1Private 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=1 T

21、o 10b(i) = InputBox(请输入第 & i & 个数)Next i【例5-3】For i=1 To 2For j=1 To 2b(i,j) = i+jNext jNext i【例5-4】Dim S(3，2) As Integer程序如下：For i = 0 To 3 Print Tab(5); 输出位置定位 For j = 0 To 2 S(i, j) = i * 2 + j 给各元素赋值图5-4 使用二维数组打印出的图形 Print S(i, j); Next j Print 换行Next i【例5-5】Private Sub Form_Click()Dim s(5) As I

22、nteger 定义数组SConst n = 5For i = 1 To n s(i) = Val(InputBox(请输入第 & LTrim$(Str$(i) & 个数, 数据排序)输入n个数，转换成数值后保存在数组中。Next iFor i = 1 To n-1 进行n-1趟比较 Max = I 对第i遍比较时，初始假定第i个元素最小。 For j = i + 1 To n 在数组in个元素中选最小元素 If s(j) s(Max) Then Max = j Next j t = s(i) s(i) = s(Max) s(Max) = t in个元素中选出的最小元素与第i个元素交换Next

23、iFor i = 1 To 5 Print s(i)Next iEnd Sub【例5-6】Dim b() As IntegerPrivate Sub Form_Click() ReDim b(2) For i = 0 To 2 b(i) = i Next i ReDim Preserve b(3) b(3) = 7For i = 0 To 3 Print b(i);Next iEnd Sub【例5-7】Dim a(8, 8) As Integer 定义一个二维数组Private Sub Form_Click() 下面的二层循环语句给数组赋值For i = 1 To 8 For j = 1 To

24、 i If i = 1 Or j = 1 Then a(i, j) = 1 数组中每一行第一个，最后一个数均为1 Else a(i, j) = a(i - 1, j - 1) + a(i - 1, j) 数组中其余数据等于它上一行的相邻两列之和 End If Next j Next i 下面的二层循环语句将数组中的值打印出来For i = 1 To 8 Print Tab(20 - 2 * i); 定位打印位置 For j = 1 To i If a(i, j) 10 Then 将数组中的值转换成长度为3的字符串，可使打印数据整齐 s = + Str(a(i, j) + ElseIf a(i,

25、 j) arr(row, col) Then row = i: col = j End IfNext jNext i 下列程序段输出矩阵及最大值及所在位置Print 您输入的矩阵是：PrintFor i = 1 To n Print Tab(8)； 打印位置定位 For j = 1 To m Print arr(i, j); Next j Print 换行 Next iPrint Print 矩阵中最大值为：;arr(row, col); 其位置在第 & row & 行 & col & 列End Sub第6章课前体验（2）编写窗体装载事件过程：Private Sub Form_Load() F

26、or I = 0 To 100 List1.AddItem i Next iEnd Sub（3）使用“添加过程”对话框创建出判断成绩等级的过程Public Sub DengJi(a As Integer) Select Case a Case 0 To 59 Label1.Caption = 不及格 Case 60 To 69 Label1.Caption = 及格 Case 70 To 79 Label1.Caption = 中等 Case 80 To 89 Label1.Caption = 良好 Case 90 To 100 Label1.Caption = 优秀 End SelectEnd Sub4）编写列表框单击Click事件过程：Private Sub List1_Click() Dim n As Integer N = Val(List1.Text) Call DengJi(n) 调用判断成绩等级的过程End Sub（5）编写命令按钮单击Click事件过程：Private Sub Command1_Click() End