BB平臺(tái)VB程序匹配題

1、  問(wèn)題 3 2.25 分   保存    從鍵盤輸入一段英文文章（都是小寫字母），統(tǒng)計(jì)一下該段文章中26個(gè)英文字母的使用情況。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)   問(wèn)題 4 2.25 分   保存    單擊窗體，產(chǎn)生20個(gè)從1到600之間的隨機(jī)整數(shù)，并以每行

6、5個(gè)把數(shù)據(jù)顯示在窗體上，并在窗體上顯示20個(gè)數(shù)據(jù)中的所有偶數(shù)之和。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)   問(wèn)題 5 2.25 分   保存    實(shí)現(xiàn)文本框的復(fù)制、剪切、粘貼、刪除功能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   問(wèn)題 6 2.25 分  

13、; 保存    調(diào)用VB的RND和INT函數(shù)，在當(dāng)前工作表的A列的110行輸入序號(hào)110，B列的110行填入01之間的隨機(jī)數(shù)，C列的110行填入兩位正整數(shù)，最后在C列的11行求出該列的最大數(shù)（調(diào)用EXCEL的內(nèi)部MAX函數(shù)）。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   問(wèn)題 7 2.25 分   保存    編制Form_Click過(guò)程，用近似公式求自然對(duì)數(shù)的底數(shù)e的值，直到末項(xiàng)

18、小于10-4為止，結(jié)果顯示在窗體上。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   問(wèn)題 8 2.25 分   保存    從鍵盤輸入一個(gè)字符串，然后將該字符串中的每個(gè)字符按ASCII碼值的大小從小到大進(jìn)行重新組合輸出。如：輸入abc123XYZ，處理后應(yīng)輸出123XYZabc。(難度系數(shù)*)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)   問(wèn)題 9 2.25 分   保存    利用二維數(shù)組編程輸出“楊輝三角形”圖案，圖案行數(shù)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   問(wèn)題 10 2.25 分   保存    隨機(jī)產(chǎn)生100個(gè)學(xué)生的成績(jī)（3598之間），統(tǒng)計(jì)各分?jǐn)?shù)段的人數(shù)。即09、1019、2029、3039、4049、5059、6069、7079、8089、9099，并輸出結(jié)

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   問(wèn)題 11 2.25 分   保存    建立一個(gè)“猜數(shù)程序”。單擊窗體，產(chǎn)生一個(gè)2位的隨機(jī)正整數(shù)。在文本框Text1中輸入你猜測(cè)的數(shù)字，單擊按鈕Comma

34、nd1在窗體上顯示猜測(cè)結(jié)果：如果你輸入的數(shù)字比程序生成的隨機(jī)數(shù)要大，則顯示“大了”；如果比程序生成的隨機(jī)數(shù)要小則“小了”；然后繼續(xù)輸入數(shù)字進(jìn)行猜測(cè)。如果猜中，則顯示“恭喜你猜中啦！”，并用消息框顯示一共猜了幾次。 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; 問(wèn)題 12 2.25 分   保存    單擊窗體，從輸入框InputBox輸入x和n，并計(jì)算下列表達(dá)式的值，直至末項(xiàng)小于 為止，結(jié)果顯示在窗體。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   問(wèn)題 13 2.25 分   保存    從1到10000中找出這樣的數(shù)，該數(shù)各個(gè)位的數(shù)字的階乘相加之和等于該數(shù)，并將結(jié)果輸出。已知fact函數(shù)用于計(jì)算階乘。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)   問(wèn)題 14 2.25 分   保存    輸入10個(gè)數(shù)放入數(shù)組中，將第1個(gè)數(shù)移到最后位置，其余數(shù)依次往前移動(dòng)一個(gè)位置。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)   問(wèn)題 15 2.25 分   保存    隨機(jī)產(chǎn)生200個(gè)互不相等的三位正整數(shù)并按每10個(gè)一行輸出。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   問(wèn)題 1

53、6 2.25 分   保存    隨機(jī)產(chǎn)生10個(gè)6100之間的偶數(shù)，對(duì)每個(gè)數(shù)進(jìn)行哥德巴赫猜想（Goldbach Conjecture）驗(yàn)證。其中判斷一個(gè)整數(shù)是否為素?cái)?shù)用以下Prime函數(shù)。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的偶數(shù)"    Cells(1, 2) = "第一個(gè)素?cái)?shù)"              (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、) = "第二個(gè)素?cái)?shù)" 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   問(wèn)題 17 2.25 分   保存    單擊窗體，根據(jù)輸入框所輸入的百分制成績(jī)score，在窗體上顯示相應(yīng)的等級(jí)，即“優(yōu)秀”(score>=90)、“良好”(80<=score<90)、“中”(70<=score<80)

61、、“及格”(60<=score<70)、“不及格”(score<60)。 Private Sub Form_click()            (1)           score = Val(InputBox("請(qǐng)輸入成績(jī)")  If         &#

62、160; (2)         Then      Print "優(yōu)秀"  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   問(wèn)題 18 2.25 分   保存    單擊窗體，從輸入框InputBox輸入一

65、個(gè)整數(shù)，判斷其是否為素?cái)?shù)。例如輸入7，則屏幕上顯示“7是素?cái)?shù)”；如果輸入的是9則屏幕上顯示“9不是素?cái)?shù)”。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 = "不是素?cái)?shù)"         End If   En

69、d If   (5) End Sub (1) (2) (3) (4) (5) 1.Prime = "不是素?cái)?shù)" 2.For i = 2 To n-1 3.If i > n-1 Then 4.Print n & Prime 5.Prime = "是素?cái)?shù)"   問(wèn)題 19 2.25 分   保存    1、 在文本框Text1中輸入一個(gè)正整數(shù)，單擊按鈕Command1，判斷該數(shù)的奇偶性，結(jié)果顯示在標(biāo)簽框label2中，要求偶數(shù)用藍(lán)色顯示，奇數(shù)用紅色顯示。 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 & "是奇數(shù)"  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、 & "是偶數(shù)"   問(wèn)題 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; 問(wèn)題 21 2.25 分   保存    在工作表1上創(chuàng)建“控件工具箱”命令按鈕“產(chǎn)生數(shù)據(jù)”（CommandButton1）和“判斷”（CommandButton2）。 單擊“產(chǎn)生數(shù)據(jù)”按鈕完成在A1：A10上產(chǎn)生兩位隨機(jī)正整數(shù)；單擊“判斷”按鈕完成將其中重復(fù)數(shù)用紅色標(biāo)注。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   問(wèn)題 22 2.25 分   保存    從文本框Text1輸入一個(gè)二進(jìn)制正整數(shù)，單擊窗體，在窗體上打印出相應(yīng)的十進(jìn)制數(shù)；且文本框中只允許輸入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)   問(wèn)題 23 2.25 分   保存    隨機(jī)產(chǎn)生兩位數(shù)的整數(shù)放入一個(gè)5行5列的二維數(shù)組中，求該二維數(shù)組對(duì)角線上最大值所在的行和列。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 "對(duì)角線上最大值在第" 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   問(wèn)題 24 2.25 分   保存    產(chǎn)生10個(gè)30，50的隨機(jī)整數(shù)，并按從小到大的順序打印出來(lái)，要求調(diào)用Swap子過(guò)程。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);   問(wèn)題 25 2.25 分   保存    輸入n后，再輸入n個(gè)數(shù)a1 ，a2 ，.，an ，按照下列公式計(jì)算s的值并顯示。已知求v值的函數(shù)過(guò)程 f程序如下。編寫事件過(guò)程Command1_C

98、lick()，計(jì)算s值，其中v值要求調(diào)用函數(shù)過(guò)程 f來(lái)完成。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("請(qǐng)輸入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)   問(wèn)題 26 2.25 分   保存    驗(yàn)證哥德巴赫猜想大于6的偶數(shù)可以分解為兩個(gè)素?cái)?shù)之和, 通過(guò)調(diào)用函數(shù)過(guò)程實(shí)現(xiàn)判斷任一輸入的正整數(shù)是不是素?cái)?shù)。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("輸入一個(gè)大于6 的偶數(shù)")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   問(wèn)題 27 2.25 分 &

106、#160; 保存    單擊窗體，實(shí)現(xiàn)以下的分段函數(shù)，其中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("請(qǐng)輸入x") 3.Dim x As Single, y As Single 4.End If 5.ElseIf x <= 5 Then   問(wèn)題 28 2.25 分   保存    從鍵盤輸入一批英文字母并逐個(gè)放入數(shù)組中，然后將其中的大寫字母轉(zhuǎn)換為小寫字母，小寫字母轉(zhuǎn)換為大寫字母并輸出。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)