常见VB考试题型

1、1 输入半径 ,求圆面积和球体积。Private Sub Form_Load()Dim r As Single, s As Single, v As Singler = InputBox(" 请输入半径r：", " 输入数据 ")s = 3.14 * r 2v = 4 / 3 * r 3 * 3.14'Print " 圆面积为 :" s'Print " 球体积为 :" vMsgBox (" 圆面积为 :" & s & Space(2) & " 球

2、体积为 :" & v)End Sub2 输入两个数存放在x 和 y 中 ，比较大小，保证大数放在x 中，小的数放在Y 中。Private Sub Command1_Click()Print " 比较前 :"X = InputBox(" 请输入 X")Y = InputBox(" 请输入 Y")Print "X=" X, "Y=" YIf X < Y ThenZ = YY = XX = ZEnd IfPrint " 比较后 :"Print "X

3、=" X, "Y=" YEnd Sub3 判断一个整数的奇偶性Private Sub Form_Click()x = Val(InputBox(" 请输入一个数;")If x Mod 2 = 0 ThenMsgBox (x & "是偶数 ")ElseMsgBox (x & "是奇数 ")End IfEnd Sub4 帐号和密码Private Sub Command1_Click()If Text1.Text = "12345" ThenIf Text2.Text = &

4、quot;12345" Then1/37MsgBox " 登录成功 ", 64 + 1, " 登录 "ElseMsgBox " 密码错误 ,请重新输入 ", 16End IfElseMsgBox " 用户不存在 ", 16 + 1, " 登录 "End IfEnd Sub5 判断一个数是整数还是小数，如果是整数再判断其奇偶性。Private Sub Form_Click()x = InputBox(" 请输入一个数;")If InStr(1, x, ".&

5、quot;) = 0 ThenIf x Mod 2 = 0 ThenMsgBox (x & "是整数 ,是偶数！ ")ElseMsgBox (x & "是整数 ,是奇数！ ")End IfElseMsgBox (x & "是小数 ")End IfEnd Sub6 书店优惠售书Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.Text)Select Case xCase Is <= 100y = x * 0.8Case

6、 Is <= 200y = x * 0.7Case Is <= 300y = x * 0.5Case Elsey = x * 0.3End SelectLabel3.Caption = y & " 元 "End Sub7 设计一个计程车收费程序2/37Private Sub Command1_Click()X = Val(Text1.Text)Select Case XCase Is <= 3Label3.Caption = 6Case Is <= 30Label3.Caption = 6 + (X - 3) * 1.5Case ElseLa

7、bel3.Caption = 6 + 27 * 1.5 + (X - 30) * 2End SelectEnd Sub8 输入 10 个数，输出累加之和。Private Sub Command1_Click()Dim S As Single, i As Integer, x As SingleS = 0For i = 1 To 10x = Val(InputBox(" 请输入第 " & i & " 个数 ")Print " 第" & i & "个数 " & xS = S +

8、xNext iPrint " 十个数累加之和为" & SEnd Sub9 输入 10 个数，输出偶数之和。Private Sub Command1_Click()Dim S As Single, x As SingleDim n As Integer, i As IntegerS = 0For i = 1 To 10x = Val(InputBox(" 请输入第 " & i & " 个数 ")Print " 第" & i & "个数 " & xIf

9、 x Mod 2 = 0 ThenS = S + Val(x)End IfNext iPrint " 十个数中偶数累加之和为" & SEnd Sub10 求 S=1+2+3+ +100 Private Sub Command1_Click() Dim I As Integer, S As LongS = 03/37For I = 1 To 100S=S+INext IPrint Tab(10); "S=" SEnd Sub11 求 S=1+3+5+ +99 Private Sub Command1_Click() s = 0For i = 1 T

10、o 100 Step 2 s = s + iNext iPrint "s=" s End Sub12S=1+22+32+ +102，计算并输出sPrivate Sub Command1_Click()s = 0For i = 1 To 10s = s + i 2Next iPicture1.Print "s=" sEnd Sub13 S=1+22+32 + +n2，问 n 为多少时， s 的值大于100000？Private Sub Command1_Click()s = 0n = 0Do While s <= 100000n = n + 1s =

11、 s + n 2LoopPrintPrintPrintPrintPrintPrint Tab(15); "n=" n4/37End Sub14 1)S=1/2+1/4+1/6+1/8+1/10+ +1/20, 求 s 并输出 s 的值。Private Sub Command1_Click()Dim s As Single, i As Integers = 0For i = 2 To 20 Step 2s = s + 1 / iNext iPrint "s=" sEnd Sub15 s=1× 2× 3× × 10求

12、n！ ,n 为 110 之间的随机整数。Private Sub Command1_Click()Dim s As Long, i As Integers = 1For i = 1 To 10s = s * iNext iPrint "10!=" sEnd Sub16 已知一数列的前两项均为 1,从第 3 项开始 ,每一项的值为其前面两项之和 ,求数列的前 20 项的和。Private Sub Command1_Click()Dim s As Integer, f1 As IntegerDim f2 As Integer, f3 As Integers = 0f1 = 1f2

13、 = 1s = f1 + f2For i = 3 To 20f3 = f1 + f2s = s + f3f1 = f2f2 = f3Next iPrint "s=" sEnd Sub172358求其前 20项和。S23515/37Private Sub Command1_Click()Dim s As Single, f1 As Integer, f2 As IntegerDim f3 As Integer, i As Integers = 0f1 = 1f2 = 2For i = 1 To 20s = s + f2 / f1f3 = f2f2 = f1 + f2f1 =

14、f3Next iPrint "s=" sEnd Sub18 S=1!+2!+3!+.+10!Private Sub Command1_Click()Dim s As Long, s1 As Long, i As Integer, j As Integers = 0For i = 1 To 10s1 = 1For j = 1 To is1 = s1 * jNexts = s + s1Next iPrintPrint "s=" sEnd Sub考虑另一种算法见其他打印部分19 s=1+(1+2)+(1+2+3)+ +(1+2+ +10)Private Sub

15、 Command1_Click()Dim s As Integer, s1 As IntegerDim i As Integer, j As Integers = 0For i = 1 To 10s1 = 0For j = 1 To is1 = s1 + jNext j6/37s = s + s1Next iPrint "s=" sEnd Sub20 s=1-1/3!+1/5!-1/7!+ 直到某一项的绝对值小于10(-5)Private Sub Command1_Click()Dim S As Single, S1 As SingleDim i As Integer, F

16、 As Integer, J As IntegerS = 0S1=1i = 1F = 1'正负符号标志Do While 1 / S1 > 10 (-5)S1=1J = 1Do While J <= iS1=S1*JJ=J+1LoopS=S+1/S1*Fi = i + 2F = -F '换符号LoopPrintPrint "S=" S - 1 / S1, "I=" i'S=0'x = 1'n = 1'Do While 1 / x >= 10 (-5)'S = S + (1 / x)

17、* (-1) (n + 1)'x = x * (n * 2) * (2 * n + 1)'n = n + 1'Loop'Print "S=" SEnd Sub21 s=2+22+222+2222+22222+222222 Private Sub Command1_Click()Dim s As Long, s1 As Long, i As Integer, j As Integer7/37s = 0For i = 1 To 6s1 = 0For j = 1 To is1 = s1 + 2 * 10 (j - 1)Nexts = s + s1N

18、extPrint "s=" sEnd Sub22 S=a+aa+aaa+ +aaaa（ N 个 a）其中 a 是一个 1， 9的随机整数， N 是一个 5， 10 的随机整数。Private Sub Command1_Click()Dim a As Integer, n As IntegerDim s As Long, s1 As Long, i As Integer, j As IntegerClsRandomizea = Int(9 * Rnd) + 1n = Int(6 * Rnd) + 5s = 0For i = 1 To ns1 = 0For j = 1 To i

19、s1 = s1 + a * 10 (j - 1)Next js = s + s1Next iPrint " 当 a=" a, "n=" n; "时 "PrintPrint "s=" sEnd Sub23 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 = 0s1 = 0For i = 1 To 6s1 = s1 * 10 + iPrint

20、s1s = s + s1Next i8/37Print "s=" 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="sEnd Sub24 将一字符串逆序输出Private Sub Command1_Click()Dim n As Integer, s1 As String, s2 As Strings1 = Text

21、1.Texts2 = ""n = Len(Trim(Text1.Text)For i = n To 1 Step -1s2 = s2 & Mid(s1, i, 1)Next iText2.Text = s2End Sub25 判断任给一大于3 的整数是否是素数。Private Sub Command1_Click()Dim N As Integer, I As IntegerN = InputBox(" 请输入一个大于3 的整数 ")For I = 2 To N - 1If N Mod I = 0 ThenExit ForEnd IfNext I

22、If N = I ThenMsgBox (N & "是素数 ")ElseMsgBox (N & "不是素数 ")End IfEnd Sub26 输出 3100 之间的素数输出Private Sub Command1_Click()Dim n As Integer, i As Integer9/37For n = 3 To 100For i = 2 To n - 1If n Mod i = 0 ThenExit ForEnd IfNext iIf i = n ThenPrint nEnd IfNext nEnd Sub换行输出Private

23、 Sub Command2_Click()Dim n As Integer, i As IntegerDim m As Integerm = 0For n = 3 To 100For i = 2 To n - 1If n Mod i = 0 ThenExit ForEnd IfNext iIf i = n Thenm = m + 1If m Mod 5 = 0 ThenPrint nElsePrint n;End IfEnd IfNext nEnd Sub'Private Sub Command2_Click()'Dim n As Integer, i As Integer&#

24、39;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 + 110/37' If m Mod 5 = 0 Then' Print Tab(6 * m); n' m = 0' Else' Print Tab(6 * m); n;' End If' End If'Nex

25、t n'End Sub27 输出 100999 之间的水仙花数Private Sub Command1_Click()Dim I As Integer, A As IntegerDim B As Integer, C As IntegerFor I = 100 To 999A = Int(I / 100)B = Int(I / 10) - A * 10C=I-A*100-B*10If A 3 + B 3 + C 3 = I ThenPicture1.Print I;End IfNext IEnd Sub28 陈婷的 QQ 密码是一个5 位数。但因为有一段比较长的日子没上了，陈婷把这个密

26、码给忘了。不过陈婷的生日是8 月 1 日，她妈妈的生日是9 月 1 日，她特别喜欢把同时是8l 和9l 的倍数用作密码。陈婷还记得这个密码的中间一位(百位数 )是 l。你能设计一个程序帮她找回这个密码吗?Private Sub Command1_Click()'陈婷密码： 5 位数，能被81， 91 整除，百位是1Dim i As Long, x As IntegerFor i = 10100 To 99199x = i 100 Mod 10If x = 1 ThenIf i Mod 91 = 0 And i Mod 81 = 0 ThenMsgBox " 密码是 "

27、; & iEnd IfEnd IfNext iEnd Sub29 百元买百鸡问题。 假定小鸡每只 5 角，公鸡每只 2 元，母鸡每只 3 元。现在有 100 元钱要求买 100 只鸡（每种鸡至少一只） ，编程列出所有可能的购鸡方案11/37Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, Y As IntegerDim z As Integer, I As IntegerI = 0For X = 1 To 100For Y = 1 To 50For z = 1 To 33If X + Y + z = 100 And

28、 0.5 * X + 2 * Y + 3 * z = 100 ThenI=I+1Picture1.Print " 方案 " & I & " : 小鸡 " & X & "只 ," _& " 公鸡 " & Y & " 只 ," & " 母鸡 " & z & " 只。 " End IfNext z, Y, XEnd Sub30 鸡兔合笼共20 只 ,脚 46 只问鸡几只 ?兔几只 ?

29、Private Sub Command1_Click()Dim x As Integer, y As IntegerFor x = 1 To 20For y = 1 To 20 - xIf x + y = 20 And 2 * x + 4 * y = 46 ThenPrint "鸡 " & x & " 只 ", " 兔 " & y & " 只 "End IfNext yNext xEnd Sub31 找出 100 之内的自然数对 。 (两数的和是某个自然数的平方，两数的差也是某数的平

30、方）Private Sub Command1_Click()For i = 1 To 99For j = i + 1 To 100If Int(Sqr(j - i) = Sqr(j - i) And Int(Sqr(j + i) = Sqr(j + i) ThenPrint i, jEnd IfNext jNext iEnd Sub32 找出 1000-9999 之间的玫瑰花数。12/37Private Sub Command1_Click()Dim i As IntegerDim a1 As Integer, a2 As IntegerDim a3 As Integer, a4 As Int

31、egerFor i = 1000 To 9999a1 = i 1000a2 = i 100 Mod 10a3 = i 10 Mod 10a4 = i Mod 10If a1 4 + a2 4 + a3 4 + a4 4 = i ThenPrint iEnd IfNext iEnd Sub33 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7 天要吃时只剩下一个，问小猴共摘下了多少个桃子？Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, I As

32、 IntegerX = 1For I = 6 To 1 Step -1X=(X+1)*2Picture1.Print " 第 " & I; " 天桃子数是 :" & X & "个。 "Next IEnd Sub34 瓜农有西瓜1020 个，每天能卖掉前一天剩下的总数的一半还多两个，问多少天能卖完。Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, I As IntegerX = 1020I = 0Do While X > 0X=X/2-

33、2I=I+1LoopLabel4.Caption = " 第 " & I & " 天能卖完 ."End Sub13/3735 一球从 10 米高空落下 ,每次弹起高度为落下高度的40%, 求第 8 次落下，小球经历的路程。Private Sub Command1_Click()Dim s As Single, h As Single, i As Integers = 10h = 10For i = 2 To 8h = h * 0.4s = s + h * 2Next iPicture1.Print " 球第八次落下经历的路程是：

34、" s; " 米 "End Sub36 输入十个数，输出其中的最大数和最小数Private Sub Command1_Click()Dim x As Single, i As IntegerDim max As Single, min As Singlex = Val(InputBox(" 请输入第1 个数 ")Print xmax = x: min = xFor i = 2 To 10x = Val(InputBox(" 请输入第 " & i & "个数 ")Print xIf x &g

35、t; max Thenmax = xElseIf x < min Thenmin = xEnd IfEnd IfNext iPrint "max=" max, "min=" minEnd Sub37 7 个裁判给选手打分,要求去掉最高分和最低分,求平均分。Option ExplicitPrivate Sub Command1_Click()Dim C(7), MAX, MIN, S, IMAX=0MIN = 100For I = 1 To 7C(I) = Val(InputBox("请输入第 " & I & &q

36、uot; 裁判的打分 ", " 输入 ", , 7000, 1000)14/37Picture1.Print " 第 " & I & " 个裁判的打分:" & C(I)S=S+C(I)If C(I) > MAX ThenMAX = C(I)ElseIf C(I) < MIN ThenMIN = C(I)End IfEnd IfNext IS=(S-MAX-MIN)/5Picture1.Print " 最后得分是 :" & SEnd Sub38 求 M ， N 的

37、最大公约数和最小公倍数Private Sub Command1_Click()Dim m As Integer, n As IntegerDim i As Integer, mas As IntegerMax = 1m = Val(Text1.Text)n = Val(Text2.Text)If m >= n Thenx = nElsex = mEnd IfFor i = 1 To xIf m Mod i = 0 And n Mod i = 0 ThenMax = iEnd IfNext iLabel3.Caption = " 最大公约数是" & MaxEnd

38、 SubPrivate Sub Command2_Click()Dim m As Integer, n As IntegerDim i As Integer, mas As Integerm = Val(Text1.Text)n = Val(Text2.Text)If m >= n Thenx = mElse15/37x = nEnd IfMax = xFor i = x To m * nIf x Mod i = 0 And x Mod i = 0 ThenMin = iExit ForEnd IfNext iLabel3.Caption = " 最小公倍数是" &a

39、mp; MinEnd Sub39 统计 1100 之间能被3 整除和能被7 整除的数各有多少个?Private Sub Command1_Click()Dim i As Integer, m As Integer, n As Integerm = 0: n = 0For i = 1 To 100If i Mod 3 = 0 Thenm = m + 1End IfIf i Mod 7 = 0 Thenn = n + 1End IfNext iPrint " 能被 3 整除的数有 " & m & " 个 " & vbCrLf &

40、; "能被 7 整除的数有 " & n & " 个 "End Sub40 统计字符串中字母“A ”出现的次数 (不区分大小写)Option ExplicitPrivate Sub Command1_Click()Dim N As Integer, I As Integer, x As StringN = 0x = Text1.TextFor I = 1 To Len(x)If Mid(x, I, 1) = "A" Or Mid(x, I, 1) = "a" Then'If UCase(Mid

41、(x, I, 1) = "A" ThenN=N+1End IfNext IText2.Text = NEnd Sub16/3741 统计字符串中大写字母、小写字母、数字字符的个数分别是多少？Private Sub Command1_Click()Dim N1, N2, N3, IN1=0:N2=0:N3=0For I = 1 To Len(Text1.Text)X = Mid(Text1.Text, I, 1)Select Case XCase "A" To "Z"N1=N1+1Case "a" To "

42、z"N2=N2+1Case 0 To 9N3=N3+1End SelectNextPicture1.Print " 大写字母个数:" N1Picture1.Print " 小写字母个数:" N2Picture1.Print " 数字字符个数:" N3End Sub42 简单图形输出Private Sub Command1_Click()Picture1.ClsDim N As Integer, I As IntegerDim J As Integer, A As IntegerN = Val(Text1.Text)For I

43、 = 1 To NPicture1.Print Tab(10 - I);For J = 1 To 2 * I - 1Picture1.Print Trim(Str(I);Next JPrintNext I17/37'N = Val(Text1.Text)'For I = 1 To N' Picture1.Print Tab(15 - I);' For J = 1 To 2 * I - 1' Picture1.Print Chr(64 + I);' Next J'Picture1.Print'Next IEnd Sub43 输出一个

44、5× 5 矩阵，该矩阵主对角线元素为1，其余元素为0。Private Sub Command1_Click()Dim a(5, 5)For i = 1 To 5For j = 1 To 5If i = j Thena(i, j) = 1Elsea(i, j) = 0End IfPrint a(i, j);Next jPrintNext iEnd Sub44 随机产生10 个 1100 之间的整数，并按从小到大顺序输出 。Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10a(i) = Int(100 * Rnd

45、() + 1Print a(i);Next iFor i = 1 To 9For j = 1 To 10 - iIf a(j) >= a(j + 1) Thent = a(j): a(j) = a(j + 1): a(j + 1) = tEnd IfNext jNext iPrintPrint " 排序后 "18/37For i = 1 To 10Print a(i);Next iEnd Sub45 求 n × n 矩阵每行元素之和（ n 值由键盘输入，矩阵元素随机产生，范围在20-50 之间。Private Sub Command1_Click()Dim

46、a() As Integer, S As Integern = Val(InputBox(" 请输入 n")ReDim a(n, n)For i = 1 To nS = 0For j = 1 To na(i, j) = Int(31 * Rnd + 20)Print a(i, j);S = S + a(i, j)Next jPrint " 第 " i; " 行元素之和：" SNext iEnd Sub46 ：输入 10 个同学 3 门课成绩，求每个同学的总分，并按总分从高到低顺序输出。（每个同学名次）Private Sub Comma

47、nd1_Click()Dim a(10, 5)Print " 成绩 1" Tab(6); " 成绩 " Tab(12); " 成绩 " Tab(18); " 总分 " Tab(24); " 名次 "For i = 1 To 3a(i, 4) = 0For j = 1 To 3a(i, j) = Val(InputBox(" 第 " & i & " 个同学第 " & j & " 门成绩 ")a(i, 4)

48、= a(i, 4) + a(i, j)Next jNext iFor i = 1 To 3a(i, 5) = 1For j = 1 To 3If a(j, 4) > a(i, 4) Thena(i, 5) = a(i, 5) + 1End IfNext jNext iFor i = 1 To 3For j = 1 To 5Print Tab(j - 1) * 6); a(i, j);19/37Next jPrintNext iEnd Sub47：出一个5× 5 矩阵的每行最大元素，及最大元素的下标值。该矩阵每个元素为1，100 之间的随机整数。Private Sub Comma

49、nd1_Click()RandomizeDim a(5, 5) As Integer, i As Integer, j As IntegerDim max As Integer, h As IntegerFor i = 1 To 5max = 0: h = 0For j = 1 To 5a(i, j) = Int(100 * Rnd + 1)Print Tab(4 * j); a(i, j);If a(i, j) > max Thenmax = a(i, j)h = jEnd IfNext jPrint Tab(4 * j); " 第 " i; " 行最大元

50、素是" max; " 是第 " h; " 个元素 "Next iEnd Sub48： Sub 过程和 Function过程的创建均可采用两种方法：1、直接在代码窗口输入过程的结构语句和过程语句Private Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)mn = m - nText3.Text = jc(m) / jc(n) / jc(mn)End SubPrivate Function jc(x)s = 1For i = 1 To xs = s * iNext ijc =

51、sEnd Function20/37Private Sub Command2_Click()Text1.Text = "": Text2.Text = "": Text3.Text = ""End Sub2、通过 “工具 ”菜单中的添加“过程 ”过程 1Private Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)mn = m - nCall jc(m)m = sCall jc(n)n = sCall jc(mn)mn = sText3.Text = m / n /

52、 mnEnd SubPrivate Sub jc(x)s = 1For i = 1 To xs = s * i' Print s Next iEnd SubPrivate Sub Command2_Click()Text1.Text = "": Text2.Text = "": Text3.Text = ""End Sub过程 2Dim sPrivate Sub Command1_Click()m = Val(Text1.Text)n = Val(Text2.Text)mn = m - nCall jc(m)Call jc(n)Call jc(mn)mn = sText3.Text = m / n / mnEnd SubPrivate Sub jc(x)21/37s = 1For i