常见VB考试题型

1、1 输入半径 ,求圆面积和球体积；Private Sub Form_Load Dim r As Single, s As Single, v As Single r = InputBox 请输入半径 r：, 输入数据 s = 3.14 * r 2 v = 4 / 3 * r 3 * 3.14 Print 圆面积为 :; s Print 球体积为 :; v MsgBox 圆面积为 : & s & Space2 & 球体积为 : & v End Sub 2 输入两个数存放在x 和 y 中 ,比较大小,保证大数放在x 中,小的数放在Y 中；Private Sub Command1_Click Pri

2、nt 比较前 : X = InputBox 请输入 X Y = InputBox 请输入 Y Print X=; X, Y=; Y If X Y Then Z = Y Y = X X = Z End If Print 比较后 : Print X=; X, Y=; Y End Sub 3 判定一个整数的奇偶性 Private Sub Form_Click x = ValInputBox 请输入一个数 ; If x Mod 2 = 0 Then MsgBox x & 是偶数 Else MsgBox x & 是奇数 End If End Sub 4 帐号和密码Private Sub Command1

3、_Click If Text1.Text = 12345 Then If Text2.Text = 12345 Then 1 / 37 MsgBox 登录胜利 , 64 + 1, 登录 Else MsgBox 密码错误 ,请重新输入 , 16 End If Else MsgBox 用户不存在 , 16 + 1, 登录 End If End Sub 5 判定一个数是整数仍是小数,假如是整数再判定其奇偶性；Private Sub Form_Click x = InputBox 请输入一个数 ; If InStr1, x, . = 0 Then If x Mod 2 = 0 Then MsgBox

4、x & 是整数 ,是偶数！ Else MsgBox x & 是整数 ,是奇数！ End If Else MsgBox x & 是小数 End If End Sub 6 书店优惠售书 Private Sub Command1_Click Dim x As Single, y As Single x = ValText1.Text Select Case x Case Is = 100 y = x * 0.8 Case Is = 200 y = x * 0.7 Case Is = 300 y = x * 0.5 Case Else y = x * 0.3 End Select Label3.Cap

5、tion = y & 元 End Sub 7 设计一个计程车收费程序2 / 37 Private Sub Command1_Click X = ValText1.Text Select Case X Case Is = 3 Label3.Caption = 6 Case Is = 30 Label3.Caption = 6 + X - 3 * 1.5 Case Else Label3.Caption = 6 + 27 * 1.5 + X - 30 * 2 End Select End Sub 8 输入 10 个数,输出累加之和；Private Sub Command1_Click Dim S

6、As Single, i As Integer, x As Single S = 0 For i = 1 To 10 x = ValInputBox 请输入第 & i & 个数 Print 第 & i & 个数 & x S = S + x Next i Print 十个数累加之和为 & S End Sub 9 输入 10 个数,输出偶数之和；Private Sub Command1_Click Dim S As Single, x As Single Dim n As Integer, i As Integer S = 0 For i = 1 To 10 x = ValInputBox 请输入

7、第 & i & 个数 个数 & x Print 第 & i & If x Mod 2 = 0 Then S = S + Valx End If Next i Print 十个数中偶数累加之和为 & S End Sub 10 求 S=1+2+3+ +100 Private Sub Command1_Click Dim I As Integer, S As Long S = 0 3 / 37 For I = 1 To 100 S = S + I Next I Print Tab10; S=; S End Sub 11 求 S=1+3+5+ +99 Private Sub Command1_Clic

8、k s = 0 For i = 1 To 100 Step 2 s = s + i Next i Print s=; s End Sub 12S=1+22+32+ +102,运算并输出sPrivate Sub Command1_Click s = 0 For i = 1 To 10 s = s + i 2 Next i Picture1.Print s=; s End Sub 13 S=1+22+32+ +n2,问 n 为多少时, s 的值大于 100000？Private Sub Command1_Click s = 0 n = 0 Do While s 10 -5 S1 = 1 J = 1

9、 Do While J = 10 -5 S = S + 1 / x * -1 n + 1 x = x * n * 2 * 2 * n + 1 n = n + 1 Loop Print S=; S End Sub 21 s=2+22+222+2222+22222+222222 Private Sub Command1_Click Dim s As Long, s1 As Long, i As Integer, j As Integer 7 / 37 s = 0 For i = 1 To 6 s1 = 0 For j = 1 To i s1 = s1 + 2 * 10 j - 1 Next s =

10、 s + s1 Next Print s=; s End Sub 22 S=a+aa+aaa+ +aaaa（N 个 a）其中 a 是一个 1,9的随机整数, N 是一个 5,10的 随机整数；Private Sub Command1_Click Dim a As Integer, n As Integer Dim s As Long, s1 As Long, i As Integer, j As Integer Cls Randomize a = Int9 * Rnd + 1 n = Int6 * Rnd + 5 s = 0 For i = 1 To n s1 = 0 For j = 1 To

11、 i s1 = s1 + a * 10 j - 1 Next j s = s + s1 Next i Print 当 a=; a, n=; n; 时 Print Print s=; s End Sub 23 S=1+12+123+1234+12345+123456 Private Sub Command1_Click Dim s As Long, s1 As Long, i As Integer, j As Integer s = 0 s1 = 0 For i = 1 To 6 s1 = s1 * 10 + i Print s1 s = s + s1 Next i 8 / 37 Print s

12、=; s s = 0 For i = 1 To 6 s1 = 0 For j = 1 To i s1 = s1 + j * 10 i - j Next j s = s + s1 Next i Print s=;s End Sub 24 将一字符串逆序输出 Private Sub Command1_Click Dim n As Integer, s1 As String, s2 As String s1 = Text1.Text s2 = n = LenTrimText1.Text For i = n To 1 Step -1 s2 = s2 & Mids1, i, 1 Next i Text2

13、.Text = s2 End Sub 25 判定任给一大于 3 的整数是否是素数；Private Sub Command1_Click Dim N As Integer, I As Integer N = InputBox 请输入一个大于 3 的整数 For I = 2 To N - 1 If N Mod I = 0 Then Exit For End If Next I If N = I Then MsgBox N & 是素数 Else 不是素数 MsgBox N & End If End Sub 26 输出 3100 之间的素数 输出Private Sub Command1_Click D

14、im n As Integer, i As Integer 9 / 37 For n = 3 To 100 For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next i If i = n Then Print n End If Next n End Sub 换行输出Private Sub Command2_Click Dim n As Integer, i As Integer Dim m As Integer m = 0 For n = 3 To 100 For i = 2 To n - 1 If n Mod i = 0 Then

15、 Exit For End If Next i If i = n Then m = m + 1 If m Mod 5 = 0 Then Print n Else Print n; End If End If Next n End Sub Private Sub Command2_Click Dim n As Integer, i As Integer dim m as in m = 0 For n = 3 To 100 For i = 2 To n - 1 If n Mod i = 0 Then Exit For End If Next i If i = n Then m = m + 1 10

16、 / 37 If m Mod 5 = 0 Then Print Tab6 * m; n m = 0 Else Print Tab6 * m; n; End If End If Next n End Sub 27 输出 100999 之间的水仙花数 Private Sub Command1_Click Dim I As Integer, A As Integer Dim B As Integer, C As Integer For I = 100 To 999 A = IntI / 100 B = IntI / 10 - A * 10 C = I - A * 100 - B * 10 If A

17、3 + B 3 + C 3 = I Then Picture1.Print I; End If Next I End Sub 28 陈婷的 QQ 密码是一个5 位数；但由于有一段比较长的日子没上了,陈婷把这个密码给8l 和忘了；不过陈婷的生日是8 月 1 日,她妈妈的生日是9 月 1 日,她特殊喜爱把同时是9l 的倍数用作密码；陈婷仍记得这个密码的中间一位 找回这个密码吗 . Private Sub Command1_Click 百位数 是 l；你能设计一个程序帮她陈婷密码： 5 位数,能被81,91 整除,百位是1 Dim i As Long, x As Integer For i = 10

18、100 To 99199 x = i 100 Mod 10 If x = 1 Then If i Mod 91 = 0 And i Mod 81 = 0 Then MsgBox 密码是 & i End If End If Next i End Sub 29百元买百鸡问题；假定小鸡每只5 角,公鸡每只2 元,母鸡每只3 元；现在有100 元钱要求买 100 只鸡（每种鸡至少一只）,编程列出全部可能的购鸡方案11 / 37 Option Explicit Private Sub Command1_Click Dim X As Integer, Y As Integer Dim z As Integ

19、er, I As Integer I = 0 For X = 1 To 100 For Y = 1 To 50 For z = 1 To 33 If X + Y + z = 100 And 0.5 * X + 2 * Y + 3 * z = 100 Then I = I + 1 Picture1.Print 方案 & I & : 小鸡 & X & 只, _ & 公鸡 & Y & 只, & 母鸡 & z & 只； End If Next z, Y, X End Sub 30 鸡兔合笼共 20 只,脚 46 只问鸡几只 .兔几只 .Private Sub Command1_Click Dim x

20、As Integer, y As Integer For x = 1 To 20 For y = 1 To 20 - x If x + y = 20 And 2 * x + 4 * y = 46 Then Print 鸡 & x & 只 , 兔 & y & 只 End If Next y Next x End Sub 31 找出 100 之内的自然数对；两数的和是某个自然数的平方,两数的差也是某数的平方）Private Sub Command1_Click For i = 1 To 99 For j = i + 1 To 100 If IntSqrj - i = Sqrj - i And In

21、tSqrj + i = Sqrj + i Then Print i, j End If Next j Next i End Sub 32 找出 1000-9999 之间的玫瑰花数；12 / 37 Private Sub Command1_Click Dim i As Integer Dim a1 As Integer, a2 As Integer Dim a3 As Integer, a4 As Integer For i = 1000 To 9999 a1 = i 1000 a2 = i 100 Mod 10 a3 = i 10 Mod 10 a4 = i Mod 10 If a1 4 +

22、a2 4 + a3 4 + a4 4 = i Then Print i End If Next i End Sub 33 猴子吃桃子； 小猴在某天摘桃如干个,当天吃掉一半多一个；其次天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个,到第 共摘下了多少个桃子？Option Explicit Private Sub Command1_Click Dim X As Integer, I As Integer X = 1 For I = 6 To 1 Step -1 X = X + 1 * 2 Picture1.Print 第 & I; 天桃子数是 : & X & 个； Next I E

23、nd Sub 7 天要吃时只剩下一个,问小猴34 瓜农有西瓜 1020 个,每天能卖掉前一天剩下的总数的一半仍多两个,问多少天能卖完；Option Explicit Private Sub Command1_Click Dim X As Integer, I As Integer X = 1020 I = 0 Do While X 0 X = X / 2 - 2 I = I + 1 Loop Label4.Caption = 第 & I & 天能卖完 . End Sub 13 / 37 35 一球从 10 米高空落下 ,每次弹起高度为落下高度的 Private Sub Command1_Cli

24、ck Dim s As Single, h As Single, i As Integer s = 10 h = 10 For i = 2 To 8 h = h * 0.4 s = s + h * 2 Next i 40%, 求第 8 次落下,小球经受的路程；Picture1.Print 球第八次落下经受的路程是：; s; 米 End Sub 36 输入十个数,输出其中的最大数和最小数 Private Sub Command1_Click Dim x As Single, i As Integer Dim max As Single, min As Single x = ValInputBox

25、 请输入第 1 个数 Print x max = x: min = x For i = 2 To 10 x = ValInputBox 请输入第 & i & 个数 Print x If x max Then max = x Else If x MAX Then MAX = CI Else If CI = n Then x = n Else x = m End If For i = 1 To x If m Mod i = 0 And n Mod i = 0 Then Max = i End If Next i Label3.Caption = 最大公约数是 & Max End Sub Priva

26、te Sub Command2_Click Dim m As Integer, n As Integer Dim i As Integer, mas As Integer m = ValText1.Text n = ValText2.Text If m = n Then x = m Else 15 / 37 x = n End If Max = x For i = x To m * n If x Mod i = 0 And x Mod i = 0 Then Min = i Exit For End If Next i Label3.Caption = 最小公倍数是 & Min End Sub

27、39 统计 1100 之间能被3 整除和能被7 整除的数各有多少个.Private Sub Command1_Click Dim i As Integer, m As Integer, n As Integer m = 0: n = 0 For i = 1 To 100 If i Mod 3 = 0 Then m = m + 1 End If If i Mod 7 = 0 Then n = n + 1 End If Next i Print 能被 3 整除的数有 & m & 个 & vbCrLf & End Sub 能被 7 整除的数有 & n & 个 40 统计字符串中字母“ A” 显现的次

28、数 不区分大小写 Option Explicit Private Sub Command1_Click Dim N As Integer, I As Integer, x As String N = 0 x = Text1.Text For I = 1 To Lenx If Midx, I, 1 = A Or Midx, I, 1 = a Then If UCaseMidx, I, 1 = A Then N = N + 1 End If Next I Text2.Text = N End Sub 16 / 37 41 统计字符串中大写字母、小写字母、数字字符的个数分别是多少？Private S

29、ub Command1_Click Dim N1, N2, N3, I N1 = 0: N2 = 0: N3 = 0 For I = 1 To LenText1.Text X = MidText1.Text, I, 1 Select Case X Case A To Z N1 = N1 + 1 Case a To z N2 = N2 + 1 Case 0 To 9 N3 = N3 + 1 End Select Next Picture1.Print 大写字母个数 :; N1 Picture1.Print 小写字母个数 :; N2 Picture1.Print 数字字符个数 :; N3 End

30、Sub 42 简洁图形输出Private Sub Command1_Click Picture1.Cls Dim N As Integer, I As Integer Dim J As Integer, A As Integer N = ValText1.Text For I = 1 To N Picture1.Print Tab10 - I; For J = 1 To 2 * I - 1 Picture1.Print TrimStrI; Next J Print Next I 17 / 37 N = ValText1.Text For I = 1 To N Picture1.Print Ta

31、b15 - I; For J = 1 To 2 * I - 1 Picture1.Print Chr64 + I; Next J Picture1.Print Next I End Sub43 输出一个 5 5 矩阵,该矩阵主对角线元素为1,其余元素为0；Private Sub Command1_Click Dim a5, 5 For i = 1 To 5 For j = 1 To 5 If i = j Then ai, j = 1 Else ai, j = 0 End If Print ai, j; Next j Print Next i End Sub 44 随机产生 10 个 1100

32、之间的整数,并按从小到大次序输出 ；Private Sub Command1_Click Dim a10 As Integer For i = 1 To 10 ai = Int100 * Rnd + 1 Print ai; Next i For i = 1 To 9 For j = 1 To 10 - i If aj = aj + 1 Then t = aj: aj = aj + 1: aj + 1 = t End If Next j Next i Print Print 排序后 18 / 37 For i = 1 To 10 Print ai; Next i End Sub 45 求 n n

33、 矩阵每行元素之和（n 值由键盘输入,矩阵元素随机产生,范畴在20-50 之间；Private Sub Command1_Click Dim a As Integer, S As Integer n = ValInputBox 请输入 n ReDim an, n For i = 1 To n S = 0 For j = 1 To n ai, j = Int31 * Rnd + 20 Print ai, j; S = S + ai, j Next j Print 第 ; i; 行元素之和： ; S Next i End Sub 46 ：输入 10 个同学 3 门课成果,求每个同学的总分,并按总分

34、从高到低次序输出；（每个 同学名次）Private Sub Command1_Click Dim a10, 5 Print 成果 1; Tab6; 成果 ; Tab12; 成果 ; Tab18; 总分 ; Tab24; 名次 For i = 1 To 3 ai, 4 = 0 For j = 1 To 3 ai, j = ValInputBox 第 & i & 个同学第 & j & 门成果 ai, 4 = ai, 4 + ai, j Next j Next i For i = 1 To 3 ai, 5 = 1 For j = 1 To 3 If aj, 4 ai, 4 Then ai, 5 =

35、ai, 5 + 1 End If Next j Next i For i = 1 To 3 For j = 1 To 5 Print Tabj - 1 * 6; ai, j; 19 / 37 Next j Print Next i End Sub 47：出一个5 5 矩阵的每行最大元素,及最大元素的下标值；该矩阵每个元素为1,100之间的随机整数；Private Sub Command1_Click Randomize Dim a5, 5 As Integer, i As Integer, j As Integer Dim max As Integer, h As Integer For i

36、= 1 To 5 max = 0: h = 0 For j = 1 To 5 ai, j = Int100 * Rnd + 1 Print Tab4 * j; ai, j; If ai, j max Then max = ai, j h = j End If Next j Print Tab4 * j; 第; i; 行最大元素是 ; max; 是第 ; h; 个元素 Next i End Sub 48：Sub 过程和 Function过程的创建均可采纳两种方法：1、直接在代码窗口输入过程的结构语句和过程语句 Private Sub Command1_Click m = ValText1.Tex

37、t n = ValText2.Text mn = m - n Text3.Text = jcm / jcn / jcmn End Sub Private Function jcx s = 1 For i = 1 To x s = s * i Next i jc = s End Function 20 / 37 Private Sub Command2_Click Text1.Text = : Text2.Text = : Text3.Text = End Sub 2、通过 “ 工具 ” 菜单中的添加 “ 过程 ”过程 1 Private Sub Command1_Click m = ValTe

38、xt1.Text n = ValText2.Text mn = m - n Call jcm m = s Call jcn n = s Call jcmn mn = s Text3.Text = m / n / mn End Sub Private Sub jcx s = 1 For i = 1 To x s = s * i Print s Next i End Sub Private Sub Command2_Click Text1.Text = : Text2.Text = : Text3.Text = End Sub 过程 2 Dim s Private Sub Command1_Cli

39、ck m = ValText1.Text n = ValText2.Text mn = m - n Call jcm Call jcn Call jcmn mn = s Text3.Text = m / n / mn End Sub Private Sub jcx 21 / 37 s = 1 For i = 1 To x s = s * i Next i x = s End Sub Private Sub Command2_Click Text1.Text = : Text2.Text = : Text3.Text = End Sub 49：编写一个求三角形面积的 Function 过程 Op

40、tion Explicit Private Sub Command1_Click Dim A, B, C A = ValText1.Text B = ValText2.Text C = ValText3.Text If A + B C And B + C A And A + B C Then Picture1.Print 三角形面积 : & FormatJSA, B, C, 0.00 Else MsgBox A,B,C不能构成三角形,请重新输入 ., 48, 警告 Text1.Text = Text2.Text = Text3.Text = End If End Sub Private Fun

41、ction JSA, B, C Dim X, S X = A + B + C / 2 S = SqrX * X - A * X - B * X - C JS = S End Function Private Sub JS1A, B, C Dim X, S X = A + B + C / 2 S = SqrX * X - A * X - B * X - C Picture1.Print S End Sub Private Sub Text1_KeyPressKeyAscii As Integer If KeyAscii = 13 Then 22 / 37 Text2.SetFocus Else

42、If ChrKeyAscii 9 Or ChrKeyAscii 9 Or ChrKeyAscii 9 Or ChrKeyAscii aj Then t = ai: ai = aj: aj = t End If Next j Next i For i = 1 To 10 List2.AddItem ai Next i End Sub Private Sub Command3_Click List1.Clear List2.Clear End Sub 59: Private Sub Command1_Click Dim T If List1.ListIndex = -1 Then MsgBox 请

43、挑选 , 64, 提示 Else If List1.ListIndex 0 Then T = List1.ListList1.ListIndex List1.ListList1.ListIndex = List1.ListList1.ListIndex - 1 List1.ListList1.ListIndex - 1 = T 29 / 37 Text2.Text = List1.ListIndex List1.ListIndex = List1.ListIndex - 1 End If End If End Sub Private Sub Command2_Click Dim T If Li

44、st1.ListIndex = -1 Then MsgBox 请挑选 , 64, 提示 Else If List1.ListIndex List1.ListCount - 1 Then T = List1.ListList1.ListIndex List1.ListList1.ListIndex = List1.ListList1.ListIndex + 1 List1.ListList1.ListIndex + 1 = T List1.ListIndex = List1.ListIndex + 1 Text2.Text = List1.ListIndex + 1 End If End If

45、End Sub Private Sub Command3_Click If Text1.Text = Then MsgBox 请输入添加明星的姓名及名次 , 48, 警告 Else If ValText2.Text List1.ListCount + 1 Then MsgBox 请重新输入名次 , 48, 警告 Text2.Text = Text2.SetFocus Else List1.AddItem Text1.Text, Text2.Text - 1 End If End If End Sub Private Sub Command4_Click List1.RemoveItem Lis

46、t1.ListIndex End Sub Private Sub Form_Load List1.AddItem 姚明 List1.AddItem 麦迪 List1.AddItem 诺维斯基 30 / 37 List1.AddItem 科比 List1.AddItem 弗朗西斯 End Sub Private Sub Text2_Change If Text1.Text Then Command3.Enabled = True End If End Sub 60: Option Explicit Dim N1, N2 Private Sub Command1_Click Picture1.Cl

47、s If Combo1.ListIndex -1 Then Dim X, I X = ValCombo1.Text For I = 2 To X - 1 If X Mod I = 0 Then Exit For End If Next I If X = I Then Picture1.Print X; 是素数 List1.AddItem X N1 = N1 + 1 Label3.Caption = 素数有 & N1 & 个 Else Picture1.Print X; 不是素数 List2.AddItem X N2 = N2 + 1 Label4.Caption = 非素数有 & N2 & 个

48、 End If Combo1.RemoveItem Combo1.ListIndex 31 / 37 End If End Sub Private Sub Form_Load Dim I For I = 1 To 100 Combo1.AddItem Int98 * Rnd + 3 Next I End Sub 61: Private Sub Command1_Click Command1.Enabled = False Dim I, J Static N1, N2 For I = 0 To Combo1.ListCount - 1 For J = 2 To ValCombo1.ListI -

49、 1 If ValCombo1.ListI Mod J = 0 Then Exit For End If Next J If ValCombo1.ListI = J Then List1.AddItem Combo1.ListI N1 = N1 + 1 Else List2.AddItem Combo1.ListI N2 = N2 + 1 End If Next I Label1.Caption = 素数个数 & N1 Label2.Caption = 非素数个数 & N2 32 / 37 End Sub Private Sub Form_Load Randomize Dim I For I

50、= 1 To 100 Combo1.AddItem Int98 * Rnd + 3 Next I End Sub 62: Dim a10 As Integer Private Sub Command1_Click Randomize For i = 1 To 10 ai = Int100 * Rnd + 1 List1.AddItem ai Next i End Sub Private Sub Command2_Click For i = 1 To 9 For j = i + 1 To 10 If ai aj Then t = ai: ai = aj: aj = t End If Next j

51、 Next i For i = 1 To 10 List2.AddItem ai Next i End Sub Private Sub Command3_Click List1.Clear 33 / 37 List2.Clear End Sub 63: 用滚动条设置文本框中文本的字号 Private Sub HScroll1_Change Text1.FontSize = HScroll1.Value Label2.Caption = 字号为 : & HScroll1.Value End Sub Private Sub HScroll1_Scroll Text1.FontSize = HScroll1.V alue Label2.Caption = 字号为 : & HScroll1.Value End Sub 64: 用滚动条转变图片的高度和宽度 Option Explicit Private Su