《vb程序设计》课堂例题总结

VB 程序设计课堂例题总结 消息对话框的使用 Private Sub Command1_Click() If Not IsNumeric(Text1) Then i% = MsgBox(“你输入的不是数字!“, 5 + vbQuestion, “警告“) If i = 4 Then Text1.SetFocus Else End Else MsgBox “你好 “, , “欢迎“ End If End Sub 求圆的周长与面积 Private Sub Form_Click() Dim r!, s!, c! Const pi = 3.14159 用户声明常量 r = InputBox(“请输入园的半径：“) s = pi * r * r c = 2 * pi * r MsgBox “园的周长为： “ 若密码正确,显示“祝贺你,成功登录!”;若密码不正确,显示“对不起,密码错误,无 法登录!”，并统计出错次数，当输入超过 3 次时，则退出系统。 Private Sub Command1_Click() If LCase(Text2.Text) = “basic1234“ Then MsgBox “祝贺你，成功登录！“ Else MsgBox (“对不起，口令错误，无法登录！“) n = n + 1 Text2.Text = “ Text2.SetFocus If n = 3 Then Unload Me 也可以用 End End If End Sub Private Sub Text1_LostFocus() If Len(Text1) Mid(s, n - i + 1, 1) Then Print s; “不是回文数！“ Exit For End If Next If i n / 2 Then Print s; “是回文数！ “ End Sub 输入一个正整数，判断该数是否为素数。 （素数是指一个数只能被 1 和其本身整除。 ） Private Sub Command1_Click() Dim i%, n%, s$ n = Val(InputBox(“请输入一个正整数： “) s = n max End Sub 计算 1！+2！+3！+.+10! 的值 Dim sum#, i%, j%, n# sum = 0: n = 1 For i = 1 To 10 n = 1 For j = 1 To i n = n * j Next j sum = sum + n Next i Print “1！+2！+3 ！+.+10!=“; sum 显示九九乘法表 Private Sub Form_Click() Dim i%, j% Cls Print “* |“; For i = 1 To 9 Print “ “; i; Next Print Print “-|-“ 15 For i = 1 To 9 Print i; “| “; For j = 1 To i Print i * j; Next j Print Next i End Sub 打印如下图图案 Private Sub Form_Click() Dim i%, j% Cls For i = 1 To 9 Print Space(11 - i); For j = 1 To 2 * i - 1 Print “*“; Next j Print Next i For i = 8 To 1 Step -1 Print Space(11 - i); String(2 * i - 1, “*“) Next End Sub 输出 100 以内的素数 Private Sub Form_Click() Dim i%, n%,Tag as Boolean For n= 1 to 100 Tag= True For i = 2 To n - 1 If n Mod i = 0 Then Tag=False Exit For End If Next i 16 If Tag=True then Print n Next n End sub 穷举法：百元买百鸡问题。假定小鸡每只 5 角，公鸡每只 2 元，母鸡每只 3 元。现在有 100 元钱要求买 100 只鸡，编程列出所有可能的购鸡方案。 方法一： Private Sub Command1_Click() Dim x%, y%, z% For x= 0 to 100 For y= 0 to 100 For z= 0 to 100 step 2 If x+y+z=100 and 3*x+2*y+z*0.5=100 Then Print x,y,z End If Next z,y,x End Sub 方法二： Private Sub Command1_Click() Dim x%, y%, z% For i = 0 To 20 For j = 0 To 33 For k = 0 To 100 Step 3 If i + j + k = 100 And i * 5 + j * 3 + k / 3 = 100 Then Print “公鸡：“; i, “ 母鸡：“; j, “小鸡：“; k End If Next k Next j Next i End Sub 编写程序，显示所有的水仙花数（所谓水仙花数是指一个 3 位数，期各位数字立方和等于 该数字本身，如 153=13+53+33） 。 方法一（用单循环完成，分别把三位数中的每个数字取出来） Private Sub Command1_Click() Dim i%, g%, s%, b% For i = 100 To 999 b = i 100 g = i Mod 10 s = (i 10) Mod 10 If b 3 + g 3 + s 3 = i Then Print i Next End Sub 方法二（用三重循环完成，由三个数字组成三位数来判断） 17 Private Sub Form_Click() Dim i%, j%, k%, s% For i = 1 To 9 For j = 0 To 9 For k = 0 To 9 If i 3 + j 3 + k 3 = i * 100 + j * 10 + k Then Print i * 100 + j * 10 + k Next k Next j Next i End Sub 输入一个班 100 个学生的成绩，要求:1）求平均分 2）统计高于平均分的人数 Private Sub Form_Click() Dim a%(1 To 100)，i%, SUM%, aver!,n% For i = 1 To 100 a(i) = InputBox(“input:“) Print a(i) SUM = SUM + a(i) Next i aver = SUM / 100 For i = 1 To 100 If a(i) aver Then n = n + 1 Next i Print n End Sub 斐波那契数列,即:1,1,2,3,5,8,13 由此可知：a1=a2=1 ,an=an-1+an-2 （用数组求） Private Sub Form_Click() Dim i%,ff(2); For i=3 to 30 f(i)=f(i-2)+f(i-1) Print f(i); If i mod 5 = 0 Then Print End If Next i End Sub 用计算机模拟掷色子游戏。一个色子有六个点数，编写程序统计掷 N 次（N 尽量大，例如 100000 次）后各点子出现的次数。 方法一： Private Sub Command1_Click() Dim c%, i s For i = 1 To Len(s) n = Asc(UCase(Mid(s, i, 1) a(n) = a(n) + 1 Next For i = 65 To 90 If a(i) max Then max = a(i) 拿新产生的数来与最大值作比较，若比最大值大，则取代其，作为新的最大值 Next Print “最大值为“; max End Sub 打印杨辉三角 Option Base 1 Private Sub Form_Click() Dim a%(7, 7) 20 For i = 1 To 7 For j = 1 To i If j = 1 Or i = j Then a(i, j) = 1 Else a(i, j) = a(i - 1, j) + a(i - 1, j - 1) End If Print a(i, j); Next Print Next End Sub 通过 Inputbox 输入 5 个同学的姓名和身高，显示全部同学的姓名和身高及最高的同学的姓 名和身高。 Option Base 1 Private Sub Command1_Click() Dim a(5, 2), i% a(1, 1) = Val(InputBox(“请输入第一个身高：“) a(1, 2) = InputBox(“请输入第一个姓名：“) Max = a(1, 1) maxi = 1 For i = 2 To 5 a(i, 1) = Val(InputBox(“请输入第“ maxi; “个元素，值为“; a(maxi) End Sub 随机产生 20 个学生的成绩，统计各分数段人数。 Option Explicit Private Sub Command1_Click() Dim a(1 To 20) As Integer Dim s(5 To 9) As Integer Dim i%, j% Cls For i = 1 To 20 a(i) = Int(Rnd * 101) Print “a(“ a(2); i = 3 Do While True ReDim Preserve a(i) a(i) = a(i - 2) + a(i - 1) Print a(i); If i Mod 3 = 0 Then Print If a(i) 30000 Then Exit Do i = i + 1 Loop End Sub 已知数组，输入一个数，查找该数是数组中第几个元素的值。如果该数不在数组中，则显 示该数不在数组中 Option Base 1 Dim a() Private Sub Command1_Click() a = Array(2, 8, 16, 72, 36, 9, 3, 10, 25) For i = LBound(a) To UBound(a) Text1 = Text1 FunMin(arr) ProcMin b, mm Print “b 数组的最小值为“; FunMin(b) ProcMin s, mm Print “s 数组的最小值为“; FunMin(s) Print End Sub Private Sub Command3_Click() Print “调用函数求最小：“ Print “arr 数组的最小值为“; FunMin(arr) Print “b 数组的最小值为“; FunMin(b) Print “s 数组的最小值为“; FunMin(s) Print End Sub 把文本框 Mytxt 的内容，写入文件 Myfile.dat 中 方法 1：把整个文本框的内容一次性地写入文件。 Open App.Path + “Myfile.dat“ For Output As #1 Print #1, Mytxt.Text Close #1 方法 2：把整个文本框的内容一个字符一个字符地写入文件。 Open “.Myfile.dat“ For Output As #1 For i=1 To Len(Mytxt.Text) 39 Print #1,Mid(Mytxt.Text,i,1); Next i Close #1 随机产生 20 个50,100的随机整数，存入数组中，并把数组的各元素值（按每行 5 个元素 输出）写入文件 MyList.dat 中 Private Sub Command1_Click() Dim a%(20), i% Open “D:Mylist.dat“ For Output As #1 打开文件 For i = 1 To 20 a(i) = Int(Rnd * 51) + 50 Print #1, a(i), 写文件 If i Mod 5 = 0 Then Print #1, 在文本文件中换行 Next Close #1 关闭文件 End sub 将文本文件 MYFILE.TXT 的内容读到文本框 Text1 中。 Text1.Text “ Open “D: myfile.txt“ For Input As #1 Do While Not EOF(1) Line Input #1, s Text1.Text Text1.Text 将数据写入磁盘文件 If i Mod 4 = 0 Then Print #2, 在数据文件中换行 Next i Close #2 MsgBox “已写入文件。“ Case 1 41 Open App.Path & “