BB平台VB程序匹配题

1、  问题 3 2.25 分   保存    从键盘输入一段英文文章（都是小写字母），统计一下该段文章中26个英文字母的使用情况。Private Sub Form_Click()  Dim c(1 To 26) As Integer  Dim n As Integer, k As Integer  Dim s As String, xs As String  For i = 1 To 26      c(i) = 0  Next i  &

2、#160;         (1)                     (2)           For i = 1 To n        &

3、#160;       (3)                  If xs >= "a" And xs <= "z" Then                 

4、60;  (4)                              (5)               End If  Next i 

5、; For i = 1 To 26      Print Chr(96 + i); "-" c(i)  Next iEnd Sub (1) (2) (3) (4) (5) 1.n = Len(s) 2.c(k) = c(k) + 1 3.k = Asc(xs) 96 4.s = InputBox("s=") 5.xs = Mid(s, i, 1)   问题 4 2.25 分   保存    单击窗体，产生20个从1到600之间的随机整数，并以每行

6、5个把数据显示在窗体上，并在窗体上显示20个数据中的所有偶数之和。Private Sub Form_Click()               (1)             s = 0 For i = 1 To 20    Randomize       &

7、#160;         (2)                Print x;                 (3)     

8、0;          If           (4)         Then s = s + x    Next i              (5) &

9、#160;       End Sub (1) (2) (3) (4) (5) 1.If i mod 5 =0 Then Print 2.Dim i As Integer, x As Integer, s as Long 3.Print "s=" s 4.x Mod 2 = 0 5.x = Int(600*Rnd+1)   问题 5 2.25 分   保存    实现文本框的复制、剪切、粘贴、删除功能Private Sub Command1_Click() 

10、;         (1)          Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click()Clipboard.Clear          (2)         

11、0;          (3)         End SubPrivate Sub Command3_Click()          (4)         End SubPrivate Sub Command4_Click()   &

12、#160;      (5)         End Sub (1) (2) (3) (4) (5) 1.Text1.SelText = "" 2.Text1.SelText = "" 3.Text1.SelText = Clipboard.GetText 4.Clipboard.Clear 5.Clipboard.SetText Text1.SelText   问题 6 2.25 分  

13、; 保存    调用VB的RND和INT函数，在当前工作表的A列的110行输入序号110，B列的110行填入01之间的随机数，C列的110行填入两位正整数，最后在C列的11行求出该列的最大数（调用EXCEL的内部MAX函数）。Sub random()    Dim i As Integer, c As String    For i = 1 To 10              

14、0;   (1)                           (2)             Next i    For i = 1 To 10  &#

15、160;               (3)                 Range(c) = Rnd    Next i    For i = 1 To 10       

16、c = "C" & i                  (4)         Next i          (5)         End Sub

17、 (1) (2) (3) (4) (5) 1.c = "B" & i 2.Range(c) = i 3.Range("C11") = Application.WorksheetFunction.Max(Range("C1:C10") 4.Range(c) = Int(Rnd * 90) + 10 5. c = "A" & i   问题 7 2.25 分   保存    编制Form_Click过程，用近似公式求自然对数的底数e的值，直到末项

18、小于10-4为止，结果显示在窗体上。Private Sub Form_Click()   Dim s As Single, x As Single, a As Single   a = 1           (1)         i = 1              

19、;  Do          (2)                              (3)          

20、0;               (4)              i = i + 1   Loop      (5) End Sub (1) (2) (3) (4) (5) 1.While a >= 0.0001 2.Print "e=" s 3.s

21、= s + a 4.a = a / i 5.s = 1   问题 8 2.25 分   保存    从键盘输入一个字符串，然后将该字符串中的每个字符按ASCII码值的大小从小到大进行重新组合输出。如：输入abc123XYZ，处理后应输出123XYZabc。(难度系数*)Private Sub Form_Click()  Dim c(100) As String  Dim n As Integer  Dim s As String, nc As String, temp As String  s = Inp

22、utBox("s=")            (1)           For i = 1 To n                (2)       

23、60;   Next i  For i = 1 To n - 1    For j = i + 1 To n                 (3)                      

24、;      (4)                  c(i) = c(j)         c(j) = temp       End If    Next j  Next i  nc

25、= ""  For i = 1 To n                (5)           Next i  Print ncEnd Sub (1) (2) (3) (4) (5) 1.nc = nc & c(i) 2.temp = c(i) 3.If c(i) > c(j) Then 4.n =

26、Len(s) 5.c(i) = Mid(s, i, 1)   问题 9 2.25 分   保存    利用二维数组编程输出“杨辉三角形”图案，图案行数n从键盘输入。Private Sub Form_Click()  Dim x()  As Integer  Dim n As Integer            (1)       

27、60;             (2)                     (3)           For i=2 To n    For j=1 To i &#

28、160;     (4)     Next j  Next i  For i=1 To n    For j=1 To i        Print x(i,j);    Next j              (5)   

29、60;       Next iEnd Sub (1) (2) (3) (4) (5) 1.Print 2.Redim x(n,n) 3.n = InputBox("n=") 4.x(i,j) = x(i-1,j) + x(i-1,j-1) 5.x(1,1)=1   问题 10 2.25 分   保存    随机产生100个学生的成绩（3598之间），统计各分数段的人数。即09、1019、2029、3039、4049、5059、6069、7079、8089、9099，并输出结

30、果。Private Sub Form_Click()  Dim a(1 To 100) As Integer            (1)           For i = 1 To 100                (2) 

31、;          Next i  For i = 0 To 9      c(i) = 0  Next i            (3)                  &#

32、160;      (4)               c(k) = c(k) + 1   Next i            (5)              

33、; Print 10*i;""10*i+9;"-"c(i)  Next iEnd Sub (1) (2) (3) (4) (5) 1.For i = 1 To 100 2.For i = 0 To 9 3.Dim c(9) As Integer 4.k = Int(a(i) / 10) 5.a(i) = Int(Rnd * 64)+35   问题 11 2.25 分   保存    建立一个“猜数程序”。单击窗体，产生一个2位的随机正整数。在文本框Text1中输入你猜测的数字，单击按钮Comma

34、nd1在窗体上显示猜测结果：如果你输入的数字比程序生成的随机数要大，则显示“大了”；如果比程序生成的随机数要小则“小了”；然后继续输入数字进行猜测。如果猜中，则显示“恭喜你猜中啦！”，并用消息框显示一共猜了几次。 Dim n As Integer, k As Integer          (1)           Randomize      

35、0;     (2)         End SubPrivate Sub Command1_Click()  Dim x As Integer            (3)           k = k + 1  If x > n Then

36、     Print x; "大了"            (4)              Print x; "小了"  Else      Print x; "恭喜你猜中了！"    &

37、#160; MsgBox "一共猜了" & k & "次"  End If          (5)         (1) (2) (3) (4) (5) 1.n = Int(Rnd * 90) + 10 2.Private Sub Form_Click() 3.ElseIf x < n Then 4.End Sub 5.x = Text1.Text &

38、#160; 问题 12 2.25 分   保存    单击窗体，从输入框InputBox输入x和n，并计算下列表达式的值，直至末项小于 为止，结果显示在窗体。Private Sub Form_Click()   Dim s As Single, x As Single, a As Single   x = Val(InputBox("输入x")   (1) s = 1 i = 0   Do     

39、0;              (2)                            (3)          

40、        s = s + a    Loop          (4)            (5) End Sub (1) (2) (3) (4) (5) 1.i = i + 1 2.a = a * x / i 3.Print "s=" s 4.While  a >= 0.0

41、0001 5.a = 1   问题 13 2.25 分   保存    从1到10000中找出这样的数，该数各个位的数字的阶乘相加之和等于该数，并将结果输出。已知fact函数用于计算阶乘。Private Function fact(ByVal k As Integer) As LongDim i As Integer          (1)         For i = 2

42、 To k   fact = fact * iNext iEnd Function Private Sub Form_Click()Dim k as integer, a as string, n as long, i as integerDim p As IntegerFor k = 1 To 10000          (2)             n = 0

43、    For i=  1 To Len(a)                    (3)                         

44、0;(4)             Next i              (5)         Next kEnd Sub (1) (2) (3) (4) (5) 1.fact = 1 2.If n = k Then Print k 3.n = n + fact(p) 4.p

45、 = Val(Mid(a, i, 1) 5.a = CStr(k)   问题 14 2.25 分   保存    输入10个数放入数组中，将第1个数移到最后位置，其余数依次往前移动一个位置。Private Sub Form_Click()            (1)           Dim t As Integer  For i =

46、 1 To 10                (2)           Next i  For i = 1 To 10      Print x(i);  Next i  Print        

47、0;   (3)           For i = 1 To 10-1                (4)           Next i  x(10) = t  For i = 1 To 10 

48、0;              (5)           Next i  PrintEnd Sub (1) (2) (3) (4) (5) 1.Dim x(10) As Integer 2.x(i) = InputBox("x(" & i & ")=") 3.Print x(i) 4.t = x(1) 5.x(

49、i) = x(i+1)   问题 15 2.25 分   保存    随机产生200个互不相等的三位正整数并按每10个一行输出。Private Sub Form_Click()  Dim a(200)  As Integer  Dim k As Integer,x As Integer  Dim f As Integer            (1)    

50、       Do While k<200    x = Int(Rnd*900)+100    f=1    For i=1 To k        If a(i)=x Then           (2)       &

51、#160;     Next i    If f=1 Then                  (3)                         

52、60; (4)             End if  Loop  For i=1 To k      Print a(i);     (5)   Next iEnd Sub (1) (2) (3) (4) (5) 1.k=k+1 2.f=0 3.a(k)=x 4.If i Mod 10=0 Then Print 5.k=0   问题 1

53、6 2.25 分   保存    随机产生10个6100之间的偶数，对每个数进行哥德巴赫猜想（Goldbach Conjecture）验证。其中判断一个整数是否为素数用以下Prime函数。Function Prime(x As Integer) As Boolean    Dim i As Integer    Prime = True    For i = 2 To x - 1        If x M

54、od i = 0 Then            Prime = False            Exit For        End If    Next iEnd Function Sub Goldbach()    Dim i A

55、s Integer, a As Integer, b As Integer    ActiveSheet.Cells.Clear    Cells(1, 1) = ">6的偶数"    Cells(1, 2) = "第一个素数"              (1)      

56、       For i = 1 To 10                  (2)             Next i    For i = 2 To 11      

57、60;           (3)                     If Prime(a) And Prime(Cells(i, 1) - a) Then            &#

58、160;            (4)                                  (5)     

59、;                   Exit For            End If        Next a    Next iEnd Sub (1) (2) (3) (4) (5) 1.Cells(1, 3

60、) = "第二个素数" 2.Cells(i, 2) = a 3.For a = 3 To Cells(i, 1) / 2 4.Cells(i, 3) = Cells(i, 1) - a 5.Cells(i + 1, 1) = (Int(Rnd * 48) + 3) * 2   问题 17 2.25 分   保存    单击窗体，根据输入框所输入的百分制成绩score，在窗体上显示相应的等级，即“优秀”(score>=90)、“良好”(80<=score<90)、“中”(70<=score<80)

61、、“及格”(60<=score<70)、“不及格”(score<60)。 Private Sub Form_click()            (1)           score = Val(InputBox("请输入成绩")  If         &#

62、160; (2)         Then      Print "优秀"  ElseIf score >= 80 Then      Print "良好"  ElseIf score >= 70 Then      Print "中"      

63、      (3)                         (4)           Else      Print "不及格"   

64、60;        (5)         End Sub (1) (2) (3) (4) (5) 1.Print "及格" 2.End If 3.ElseIf score >= 60 Then 4.Dim score As Integer 5.score >= 90   问题 18 2.25 分   保存    单击窗体，从输入框InputBox输入一

65、个整数，判断其是否为素数。例如输入7，则屏幕上显示“7是素数”；如果输入的是9则屏幕上显示“9不是素数”。Private Sub Form_Click()   Dim i As Integer, n As Integer, Prime As String   n = Val(InputBox("n=")   If n < 2 Then                

66、60; (1)            Else                  (2)                    If n Mod i = 0 T

67、hen Exit For            Next i                  (3)                       &

68、#160;           (4)                 Else           Prime = "不是素数"         End If   En

69、d If   (5) End Sub (1) (2) (3) (4) (5) 1.Prime = "不是素数" 2.For i = 2 To n-1 3.If i > n-1 Then 4.Print n & Prime 5.Prime = "是素数"   问题 19 2.25 分   保存    1、 在文本框Text1中输入一个正整数，单击按钮Command1，判断该数的奇偶性，结果显示在标签框label2中，要求偶数用蓝色显示，奇数用红色显示。 Priva

70、te Sub Command1_Click()  Dim x As Integer          (1)           If           (2)          Then  

71、60; Label2.ForeColor = vbBlue              (3)                     (4)             &#

72、160;         (5)             Label2.Caption = x & "是奇数"  End IfEnd Sub (1) (2) (3) (4) (5) 1.x Mod 2 = 0 2.Else 3.Label2.ForeColor = vbRed 4.x = Val(Text1.Text) 5.Label2.Caption = x

73、 & "是偶数"   问题 20 2.25 分   保存    编写程序，在工作表上打印九九乘法表如下。Sub print99()    Dim i As Integer, j As Integer              (1)           

74、0; For i = 1 To 9        Cells(1, i + 1) = i        Cells(i + 1, 1) = i    Next i              (2)        

75、60;                 (3)                               (4)   

76、              Next j    Next i    Range("A:A").Font.Bold = True    Range("A:A").HorizontalAlignment = xlCenter           

77、0;  (5)             Range("1:1").HorizontalAlignment = xlCenterEnd Sub (1) (2) (3) (4) (5) 1.Range("1:1").Font.Bold = True 2.Cells(i + 1, j + 1) = i * j 3.For i = 1 To 9 4.ActiveSheet.Cells.Clear 5.For j = i To 9 &#

78、160; 问题 21 2.25 分   保存    在工作表1上创建“控件工具箱”命令按钮“产生数据”（CommandButton1）和“判断”（CommandButton2）。 单击“产生数据”按钮完成在A1：A10上产生两位随机正整数；单击“判断”按钮完成将其中重复数用红色标注。Private Sub CommandButton1_Click()    Dim i As Integer           

79、60;  (1)             For i = 1 To 10                  (2)             Next iEnd SubPrivate Sub

80、CommandButton2_Click()    Dim i As Integer, j As Integer    For i = 1 To 9                  (3)                

81、;               (4)                                   (5) &#

82、160;                   End If        Next j    Next iEnd Sub (1) (2) (3) (4) (5) 1.For j = i + 1 To 10 2.If Cells(i, 1) = Cells(j, 1) Then 3.ActiveSheet.Cells.Clear

83、4.Cells(i, 1) = Int(Rnd * 90) + 10 5.Cells(j, 1).Font.Color = vbRed   问题 22 2.25 分   保存    从文本框Text1输入一个二进制正整数，单击窗体，在窗体上打印出相应的十进制数；且文本框中只允许输入0和1。Private Sub Form_Click()  Dim s As String, a As String, n As Integer, x As Long        

84、60;   (1)           n = Len(s)  For i = 1 To n              (2)             x = x + Val(a) * 2 (i - 1)  Next i

85、            (3)         End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)  If           (4)         Then&

86、#160;               (5)           End IfEnd Sub (1) (2) (3) (4) (5) 1.KeyAscii < Asc("0") Or KeyAscii > Asc("1") 2.Print x 3.KeyAscii = 0 4.s = Text1.Text 5.a = Mid

87、(s, n + 1 - i, 1)   问题 23 2.25 分   保存    随机产生两位数的整数放入一个5行5列的二维数组中，求该二维数组对角线上最大值所在的行和列。Private Sub Form_Click()  Dim a(1 To 5, 1 To 5) As Integer, max As Integer  Dim pi As Integer, pj As Integer  Randomize  For i = 1 To 5    For j = 1 To 5&

88、#160;       a(i, j) = Int(Rnd * 90 + 10)    Next j  Next i  For i = 1 To 5    For j = 1 To 5        Print a(i, j);    Next j          &

89、#160;   (1)           Next i  max = a(1, 1)            (2)           pj = 1  For i = 1 To 5    For j = 1 To 5 

90、                 (3)                             (4)     

91、60;                max = a(i, j)             pi = i                    

92、0;  (5)                   End If        End If    Next j  Next i  Print "对角线上最大值在第" pi; "行和第" pj; "列"End Sub (1) (2

93、) (3) (4) (5) 1.pi = 1 2.If i = j Or i + j = 6 Then 3.pj = j 4.Print 5.If max < a(i, j) Then   问题 24 2.25 分   保存    产生10个30，50的随机整数，并按从小到大的顺序打印出来，要求调用Swap子过程。Public Sub Swap(a As Integer, b As Integer)Dim temp As Integertemp = a        &

94、#160; (1)                   (2)         End Sub Private Sub Form_Click()Dim a(10) As IntegerDim i As Integer, j As IntegerFor i = 1 To 10a(i)= Int(Rnd * 21) + 30Next

95、 iFor i = 1 To 9For j = i + 1 To 10            If a(i) > a(j) Then                   (3)           

96、60;         End If      Next j                (4)         Next i          &

97、#160;(5)         End Sub (1) (2) (3) (4) (5) 1.Call Swap(a(i), a(j) 2.a = b 3.b = temp 4.Form1.print  a(10) 5.Form1.Print  a(i);   问题 25 2.25 分   保存    输入n后，再输入n个数a1 ，a2 ，.，an ，按照下列公式计算s的值并显示。已知求v值的函数过程 f程序如下。编写事件过程Command1_C

98、lick()，计算s值，其中v值要求调用函数过程 f来完成。Private Function f (x() As Single, n As Integer) as singleDim i As IntegerFor i = 1 To n              (1)         Next i         &

99、#160;(2)         End Function Private Sub Command1_Click()Dim a() As Single, n As Integer, s As SingleDim v As Single, i As Integern = InputBox("请输入n的值")          (3)     

100、0;   For i = 1 To n    a(i) = InputBox("")Next i          (4)         For i = 1 To n    s = s + (a(i) - v) 2Next i         &#

101、160;(5)         Print sEnd Sub (1) (2) (3) (4) (5) 1.f=f / n 2.ReDim a(n) 3.f = f + x(i) 4.s = Sqr(s) / n 5.v = f(a, n)   问题 26 2.25 分   保存    验证哥德巴赫猜想大于6的偶数可以分解为两个素数之和, 通过调用函数过程实现判断任一输入的正整数是不是素数。Private Function prime(ByVal n As Integ

102、er) As BooleanDim i As Integer          (1)         For i = 2 To Sqr(n)              (2)         Next iEnd Fun

103、ction Private Sub Form_Click()Dim n1 As Integer, n2 As Integer, n As IntegerDo   n = InputBox("输入一个大于6 的偶数")Loop While n <= 6 Or n Mod 2 <> 0For n1 = 3 To n / 2 Step 2              (3)   

104、0;                   (4)                           (5)       

105、;          Exit For    End IfNext n1End Sub (1) (2) (3) (4) (5) 1.If n Mod i = 0 Then prime = False: Exit For 2.If prime(n1) And prime(n2) Then 3.n2 = n - n1 4.Print n; "=" n1; "+" n2 5.prime = True   问题 27 2.25 分 &

106、#160; 保存    单击窗体，实现以下的分段函数，其中x从输入框输入，求出y显示在窗体上。Private Sub Form_Click()            (1)                     (2)     

107、      If x < -5 Then     y = 3 * x 2 + 2 * x - 1            (3)              y = x * Sin(x) + 2 x  Else     

108、;y = Sqr(x - 5) + Log(x) / Log(10)            (4)                     (5)         End Sub (1) (2) (3) (4) (5)

109、1.Print y 2.x = Val(InputBox("请输入x") 3.Dim x As Single, y As Single 4.End If 5.ElseIf x <= 5 Then   问题 28 2.25 分   保存    从键盘输入一批英文字母并逐个放入数组中，然后将其中的大写字母转换为小写字母，小写字母转换为大写字母并输出。Private Sub Form_Click()  Dim a() As String  Dim s As String, ns As String

110、0; Dim n As Integer  s = InputBox("s=")  n = Len(s)            (1)           For i = 1 To n               

111、0;(2)           Next i  For i = 1 To n      If a(i) >= "A" And a(i) <= "Z" Then                    (3)