常见VB考试题型(37页).doc

《常见VB考试题型(37页).doc》由会员分享，可在线阅读，更多相关《常见VB考试题型(37页).doc（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、-1Private 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

2、= 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 Text

3、2.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

4、 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(Tex

5、t1.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 Private Sub Command1_Click()Dim S As Single, i As Integer, x As SingleS = 0For i = 1 To 10x = Val(InputBox(请输入第 & i & 个数)Print

6、 第 & i & 个数 & xS = S + xNext iPrint 十个数累加之和为 & SEnd Sub9 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 Private Su

7、b Command1_Click()Dim I As Integer, S As LongS = 0For I = 1 To 100S = S + INext IPrint Tab(10); S=; SEnd Sub11 9Private Sub Command1_Click()s = 0For i = 1 To 100 Step 2 s = s + iNext iPrint s=; sEnd Sub12 Private Sub Command1_Click()s = 0For i = 1 To 10 s = s + i 2Next iPicture1.Print s=; sEnd Sub13

8、 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 Private 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 =

9、1 To i s1 = s1 + 2 * 10 (j - 1) Nexts = s + s1Next Print s=; sEnd Sub22 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

10、) Next j s = s + s1Next i Print 当a=; a, n=; n; 时 Print Print s=; sEnd Sub23 Private 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)

11、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 Private Sub Command1_Click()Dim N As Integer, I As IntegerN = In

12、putBox(请输入一个大于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 输出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

13、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 Command

14、2_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 Private Sub Command1_Click()Dim I As Inte

15、ger, 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的倍数用作密码。陈婷还记得这个密码的中间

16、一位(百位数)是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只鸡（每种鸡至少一只），编程列出所有可能

17、的购鸡方案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

18、 IfNext z, Y, XEnd Sub30 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 。 (两数的和是某个自然数的平方，两数的差也是某数的平方）Private Sub Command1_Click()For i = 1 To 99 For j = i

19、+ 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 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 =

20、 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; 天桃子数

21、是: & 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_Clic

22、k()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

23、 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 I

24、ntegerDim 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 Private Sub Command1_Click()Dim i As Integer, m As

25、 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 Option ExplicitPrivate Sub Command1_Click()Dim N As Integer, I As Integer, x As StringN = 0x = Text1.TextFor I

26、 = 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 XCa

27、se 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

28、 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_Clic

29、k()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 1

30、0 - 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

31、 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 F

32、or 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 Su

33、b47：出一个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,

34、 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 Comm