常见VB考试题型.doc

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.14Print 圆面积为:; sPrint 球体积为:; vMsgBox (圆面积为: & s & Space(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 Then Z = Y Y = X X = ZEnd If Print 比较后:Print X=; X, Y=; YEnd Sub3 判断一个整数的奇偶性Private Sub Form_Click()x = Val(InputBox(请输入一个数;)If x Mod 2 = 0 Then MsgBox (x & 是偶数)Else MsgBox (x & 是奇数)End IfEnd Sub4 帐号和密码Private Sub Command1_Click()If Text1.Text = 12345 Then If Text2.Text = 12345 Then MsgBox 登录成功, 64 + 1, 登录 Else MsgBox 密码错误,请重新输入, 16 End IfElse MsgBox 用户不存在, 16 + 1, 登录End IfEnd Sub5 判断一个数是整数还是小数，如果是整数再判断其奇偶性 。 Private Sub Form_Click()x = InputBox(请输入一个数;)If InStr(1, x, .) = 0 Then If x Mod 2 = 0 Then MsgBox (x & 是整数,是偶数！) Else MsgBox (x & 是整数,是奇数！) End IfElse MsgBox (x & 是小数)End IfEnd Sub6 书店优惠售书Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(Text1.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.3End SelectLabel3.Caption = y & 元End Sub7 设计一个计程车收费程序Private Sub Command1_Click()X = Val(Text1.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) * 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 + 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 x Mod 2 = 0 ThenS = S + Val(x)End IfNext iPrint 十个数中偶数累加之和为 & SEnd Sub10 求S=1+2+3+100Private Sub Command1_Click()Dim I As Integer, S As LongS = 0For I = 1 To 100S = S + INext IPrint Tab(10); S=; SEnd Sub11 求S=1+3+5+99Private Sub Command1_Click()s = 0For i = 1 To 100 Step 2 s = s + iNext iPrint s=; sEnd Sub12 S=1+22+32+102，计算并输出sPrivate Sub Command1_Click()s = 0For i = 1 To 10 s = 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 10 (-5) S1 = 1 J = 1 Do While J = 10 (-5)S = S + (1 / x) * (-1) (n + 1)x = x * (n * 2) * (2 * n + 1)n = n + 1LoopPrint S=; SEnd Sub21 s=2+22+222+2222+22222+222222Private Sub Command1_Click()Dim s As Long, s1 As Long, i As Integer, j As Integers = 0For i = 1 To 6 s1 = 0 For j = 1 To i s1 = s1 + 2 * 10 (j - 1) Nexts = s + s1Next Print 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 n s1 = 0 For j = 1 To i s1 = s1 + a * 10 (j - 1) Next j s = s + s1Next i Print 当a=; a, n=; n; 时 Print Print s=; sEnd Sub23 S=1+12+123+1234+12345+123456Private Sub Command1_Click()Dim s As Long, s1 As Long, i As Integer, j As Integers = 0s1 = 0For i = 1 To 6s1 = s1 * 10 + iPrint s1s = s + s1Next iPrint s=; ss = 0For i = 1 To 6 s1 = 0 For j = 1 To i s1 = s1 + j * 10 (i - j) Next j s = s + s1Next iPrint s=;sEnd Sub24 将一字符串逆序输出Private Sub Command1_Click()Dim n As Integer, s1 As String, s2 As Strings1 = Text1.Texts2 = n = Len(Trim(Text1.Text)For i = n To 1 Step -1 s2 = 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 - 1 If N Mod I = 0 Then Exit For End IfNext IIf N = I Then MsgBox (N & 是素数)Else MsgBox (N & 不是素数)End IfEnd Sub26 输出3100之间的素数输出Private Sub Command1_Click()Dim n As Integer, i As IntegerFor 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 IfNext nEnd Sub换行输出Private Sub Command2_Click()Dim n As Integer, i As IntegerDim m As Integerm = 0For 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 If m Mod 5 = 0 Then Print n Else Print n; End If End IfNext nEnd SubPrivate Sub Command2_Click()Dim n As Integer, i As Integerdim m as inm = 0For 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 If m Mod 5 = 0 Then Print Tab(6 * m); n m = 0 Else Print Tab(6 * m); n; End If End IfNext nEnd Sub27 输出100999之间的水仙花数Private Sub Command1_Click()Dim I As Integer, A As IntegerDim B As Integer, C As IntegerFor I = 100 To 999 A = Int(I / 100) B = Int(I / 10) - A * 10 C = I - A * 100 - B * 10 If A 3 + B 3 + C 3 = I Then Picture1.Print I; End IfNext IEnd Sub28陈婷的QQ密码是一个5位数。但因为有一段比较长的日子没上了，陈婷把这个密码给忘了。不过陈婷的生日是8月1日，她妈妈的生日是9月1日，她特别喜欢把同时是8l和9l的倍数用作密码。陈婷还记得这个密码的中间一位(百位数)是l。你能设计一个程序帮她找回这个密码吗? Private Sub Command1_Click()陈婷密码：5位数，能被81，91整除，百位是1Dim i As Long, x As IntegerFor i = 10100 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 IfNext iEnd Sub29 百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元。现在有100元钱要求买100只鸡（每种鸡至少一只），编程列出所有可能的购鸡方案Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, Y As IntegerDim z As Integer, I As IntegerI = 0For 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 IfNext z, Y, XEnd Sub30 鸡兔合笼共20只,脚46只问鸡几只?兔几只?Private Sub Command1_Click()Dim x As Integer, y As IntegerFor 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 IfNext yNext xEnd Sub31 找出100之内的自然数对 。 (两数的和是某个自然数的平方，两数的差也是某数的平方）Private Sub Command1_Click()For i = 1 To 99 For j = i + 1 To 100 If Int(Sqr(j - i) = Sqr(j - i) And Int(Sqr(j + i) = Sqr(j + i) Then Print i, j End If Next j Next iEnd Sub32 找出1000-9999之间的玫瑰花数。Private Sub Command1_Click()Dim i As IntegerDim a1 As Integer, a2 As IntegerDim a3 As Integer, a4 As IntegerFor i = 1000 To 9999 a1 = i 1000 a2 = i 100 Mod 10 a3 = i 10 Mod 10 a4 = i Mod 10 If a1 4 + a2 4 + a3 4 + a4 4 = i Then Print i End IfNext iEnd Sub33 猴子吃桃子。小猴在某天摘桃若干个，当天吃掉一半多一个；第二天吃了剩下的桃子的一半多一个；以后每天都吃尚存桃子的一半多一个，到第7天要吃时只剩下一个，问小猴共摘下了多少个桃子？Option ExplicitPrivate Sub Command1_Click()Dim X As Integer, I As 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 = 0 Do While X 0 X = X / 2 - 2 I = I + 1 LoopLabel4.Caption = 第 & I & 天能卖完.End Sub35一球从10米高空落下,每次弹起高度为落下高度的40%,求第8次落下，小球经历的路程。Private Sub Command1_Click()Dim s As Single, h As Single, i As Integers = 10h = 10For i = 2 To 8 h = h * 0.4 s = s + h * 2 Next iPicture1.Print 球第八次落下经历的路程是：; 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 10 x = Val(InputBox(请输入第 & i & 个数) Print x If x max Then max = x Else If x MAX Then MAX = C(I) Else If C(I) = 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 = 最大公约数是 & MaxEnd SubPrivate Sub Command2_Click()Dim m As Integer, n As IntegerDim i As Integer, mas As Integer m = Val(Text1.Text) n = Val(Text2.Text) If m = n Then x = m Else 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 = 最小公倍数是 & 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 100 If i Mod 3 = 0 Then m = m + 1 End If If i Mod 7 = 0 Then n = n + 1 End IfNext iPrint 能被3整除的数有 & m & 个 & vbCrLf & 能被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(x, I, 1) = A Then N = N + 1 End IfNext IText2.Text = NEnd Sub41统计字符串中大写字母、小写字母、数字字符的个数分别是多少？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 z N2 = N2 + 1Case 0 To 9 N3 = 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 = 1 To N Picture1.Print Tab(10 - I); For J = 1 To 2 * I - 1 Picture1.Print Trim(Str(I); Next JPrintNext IN = 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 JPicture1.PrintNext IEnd Sub43输出一个55矩阵，该矩阵主对角线元素为1，其余元素为0。Private Sub Command1_Click()Dim a(5, 5) For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = 0 End If Print a(i, j); Next j Print Next iEnd Sub44随机产生10个1100之间的 整数，并按从小到大顺序输出。Private Sub Command1_Click()Dim a(10) As IntegerFor i = 1 To 10 a(i) = Int(100 * Rnd() + 1 Print a(i);Next iFor i = 1 To 9 For j = 1 To 10 - i If a(j) = a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next i Print Print 排序后 For i = 1 To 10 Print a(i); Next i End Sub45求nn矩阵每行元素之和（n值由键盘输入，矩阵元素随机产生，范围在20-50之间。Private Sub Command1_Click()Dim a() As Integer, S As Integern = Val(InputBox(请输入n)ReDim a(n, n)For i = 1 To n S = 0 For j = 1 To n a(i, j) = Int(31 * Rnd + 20) Print a(i, j); S = S + a(i, j) Next j Print 第; i; 行元素之和：; S Next iEnd Sub46 ：输入10个同学3门课成绩，求每个同学的总分，并按总分从高到低顺序输出。（每个同学名次）Private Sub Command1_Click()Dim a(10, 5) Print 成绩1; Tab(6); 成绩; Tab(12); 成绩; Tab(18); 总分; Tab(24); 名次 For i = 1 To 3 a(i, 4) = 0 For j = 1 To 3 a(i, j) = Val(InputBox(第 & i & 个同学第 & j & 门成绩) a(i, 4) = a(i, 4) + a(i, j) Next j Next i For i = 1 To 3 a(i, 5) = 1 For j = 1 To 3 If a(j, 4) a(i, 4) Then a(i, 5) = a(i, 5) + 1 End If Next j Next i For i = 1 To 3 For j = 1 To 5 Print Tab(j - 1) * 6); a(i, j); Next j Print Next i End Sub47：出一个55矩阵的每行最大元素，及最大元素的下标值。该矩阵每个元素为1，100之间的随机整数。Private Sub Command1_Click()RandomizeDim a(5, 5) As Integer, i As Integer, j As IntegerDim max As Integer, h As IntegerFor i = 1 To 5 max = 0: h = 0 For j = 1 To 5 a(i, j) = Int(100 * Rnd + 1) Print Tab(4 * j); a(i, j); If a(i, j) max Then max = a(i, j) h = j End If Next j Print Tab(4 * j); 第; i; 行最大元素是; 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 x s = s * iNext ijc = sEnd FunctionPrivate 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 = s Call jc(mn)mn = sText3.Text = m / n / mnEnd SubPrivate Sub jc(x)s = 1 For i = 1 To x s = s * i Print sNext 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)s = 1 For i = 1 To x s = s * iNext ix = sEnd SubPrivate Sub Command2_Click()Text1.Text = : Text2.Text = : Text3.Text = End Sub49：编写一个求三角形面积的Function过程Option ExplicitPrivate Sub Command1_Click()Dim A, B, CA = Val(Text1.Text)B = Val(Text2.Text)C = Val(Text3.Text)If A + B C And B + C A And A + B C ThenPicture1.Print 三角形面积: & Format(JS(A, B, C), 0.00)ElseMsgBox A,B,C不能构成三角形,请重新输入!, 48, 警告Text1.Text = Text2.Text = Text3.Text = End IfEnd SubPrivate Function JS(A, B, C) Dim X, S X = (A + B + C) / 2 S = Sqr(X * (X - A) * (X - B) * (X - C) JS = SEnd FunctionPrivate Sub JS1(A, B, C)Dim X, SX = (A + B + C) / 2S = Sqr(X * (X - A) * (X - B) * (X - C)Picture1.Print SEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.SetFocusElse If Chr(KeyAscii) 9 Or Chr(KeyAscii) 9 Or Chr(KeyAscii) 9 Or Chr(KeyAscii) 0 Then MsgBox 请输入数字符号, 64, 提示 KeyAscii = 0 End IfEnd IfEnd Sub50：Public Sub test( i As Integer) i = i + 1End SubPrivate Sub Form_Click() Dim x As Integer x = 4 Print x; Call test(x) Print xEnd SubPublic Sub test(ByVal i As Integer)i = i + 1end subSub S2(A As Integer, ByVal B As Integer) A = 2 * A B = B + 2End SubPrivate Sub Command1_Click() X = 4 Y = 4 Call S2(X, Y) Print X + YEnd SubSub S2(A, ByVal B) A = 2 * A B = B + 2End Sub51: 在文本框中输入字符，通过单选按纽和复选框设置字体、字型Option ExplicitPrivate Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = TrueElse Text1.FontBold = FalseEnd IfEnd SubPr