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

1、問(wèn)題 3 2.25 分 保存 從鍵盤(pán)輸入一段英文文章（都是小寫(xiě)字母），統(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 (1) (2) For i = 1 To n (3) If xs = a And xs = 0.0001 2.Print e=; s 3.s = s + a 4.a = a / i 5.s = 1

2、問(wèn)題 8 2.25 分 保存 從鍵盤(pán)輸入一個(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 = InputBox(s=) (1) For i = 1 To n (2) Next i For i = 1 To n - 1 For j = i + 1 To n (3) (4

3、) c(i) = c(j) c(j) = temp End If Next j Next i nc = 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 = Len(s) 5.c(i) = Mid(s, i, 1) 問(wèn)題 9 2.25 分 保存 利用二維數(shù)組編程輸出“楊輝三角形”圖案，圖案行數(shù)n從鍵盤(pán)輸入。Private Sub Form_Click() Dim x() As Integer Dim n As I

4、nteger (1) (2) (3) For i=2 To n For j=1 To i (4) Next j Next i For i=1 To n For j=1 To i Print x(i,j); Next j (5) 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

5、、4049、5059、6069、7079、8089、9099，并輸出結(jié)果。Private Sub Form_Click() Dim a(1 To 100) As Integer (1) For i = 1 To 100 (2) Next i For i = 0 To 9 c(i) = 0 Next i (3) (4) c(k) = c(k) + 1 Next i (5) 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 Inte

6、ger 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ù)字，單擊按鈕Command1在窗體上顯示猜測(cè)結(jié)果：如果你輸入的數(shù)字比程序生成的隨機(jī)數(shù)要大，則顯示“大了”；如果比程序生成的隨機(jī)數(shù)要小則“小了”；然后繼續(xù)輸入數(shù)字進(jìn)行猜測(cè)。如果猜中，則顯示“恭喜你猜中啦！”，并用消息框顯示一共猜了幾次。Dim n As Integer, k As Integer (1) Randomize (2) End SubPrivate Sub Co

7、mmand1_Click() Dim x As Integer (3) k = k + 1 If x n Then Print x; 大了 (4) Print x; 小了 Else Print x; 恭喜你猜中了！ MsgBox 一共猜了 & k & 次 End If (5) (1) (2) (3) (4) (5) 1.n = Int(Rnd * 90) + 10 2.Private Sub Form_Click() 3.ElseIf x = 0.00001 5.a = 1 問(wèn)題 13 2.25 分 保存 從1到10000中找出這樣的數(shù)，該數(shù)各個(gè)位的數(shù)字的階乘相加之和等于該數(shù)，并將結(jié)果輸出。已

8、知fact函數(shù)用于計(jì)算階乘。Private Function fact(ByVal k As Integer) As LongDim i As Integer (1) For i = 2 To k fact = fact * iNext iEnd FunctionPrivate 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 For i= 1 To Len(a) (3) (4) Next i (5) Next kE

9、nd Sub (1) (2) (3) (4) (5) 1.fact = 1 2.If n = k Then Print k 3.n = n + fact(p) 4.p = 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 = 1 To 10 (2) Next i For i = 1 To 10 Print x(i); Next i Print (3) For i = 1 T

10、o 10-1 (4) Next i x(10) = t For i = 1 To 10 (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(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 Inte

11、ger Dim f As Integer (1) Do While k6的偶數(shù) Cells(1, 2) = 第一個(gè)素?cái)?shù) (1) For i = 1 To 10 (2) Next i For i = 2 To 11 (3) If Prime(a) And Prime(Cells(i, 1) - a) Then (4) (5) Exit For End If Next a Next iEnd Sub (1) (2) (3) (4) (5) 1.Cells(1, 3) = 第二個(gè)素?cái)?shù) 2.Cells(i, 2) = a 3.For a = 3 To Cells(i, 1) / 2 4.Cells(i

12、, 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=score90)、“中”(70=score80)、“及格”(60=score70)、“不及格”(score= 80 Then Print 良好 ElseIf score = 70 Then Print 中 (3) (4) Else Print 不及格 (5) End Sub (1) (2) (3) (4) (5

13、) 1.Print 及格 2.End If 3.ElseIf score = 60 Then 4.Dim score As Integer 5.score = 90 問(wèn)題 18 2.25 分 保存 單擊窗體，從輸入框InputBox輸入一個(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 n-1 Then 4.Print n & Prime 5.

14、Prime = 是素?cái)?shù) 問(wèn)題 19 2.25 分 保存 1、在文本框Text1中輸入一個(gè)正整數(shù)，單擊按鈕Command1，判斷該數(shù)的奇偶性，結(jié)果顯示在標(biāo)簽框label2中，要求偶數(shù)用藍(lán)色顯示，奇數(shù)用紅色顯示。 Private Sub Command1_Click() Dim x As Integer (1) If (2) Then Label2.ForeColor = vbBlue (3) (4) (5) Label2.Caption = x & 是奇數(shù) End IfEnd Sub (1) (2) (3) (4) (5) 1.x Mod 2 = 0 2.Else 3.Label2.ForeCo

15、lor = vbRed 4.x = Val(Text1.Text) 5.Label2.Caption = x & 是偶數(shù) 問(wèn)題 20 2.25 分 保存 編寫(xiě)程序，在工作表上打印九九乘法表如下。Sub print99() Dim i As Integer, j As Integer (1) For i = 1 To 9 Cells(1, i + 1) = i Cells(i + 1, 1) = i Next i (2) (3) (4) Next j Next i Range(A:A).Font.Bold = True Range(A:A).HorizontalAlignment = xlCen

16、ter (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 問(wèn)題 21 2.25 分 保存 在工作表1上創(chuàng)建“控件工具箱”命令按鈕“產(chǎn)生數(shù)據(jù)”（CommandButton1）和“判斷”（CommandButton2）。單擊“產(chǎn)生數(shù)據(jù)”按鈕完成在A1：A10上產(chǎn)生兩位

17、隨機(jī)正整數(shù)；單擊“判斷”按鈕完成將其中重復(fù)數(shù)用紅色標(biāo)注。Private Sub CommandButton1_Click() Dim i As Integer (1) For i = 1 To 10 (2) Next iEnd SubPrivate Sub CommandButton2_Click() Dim i As Integer, j As Integer For i = 1 To 9 (3) (4) (5) End If Next j Next iEnd Sub (1) (2) (3) (4) (5) 1.For j = i + 1 To 10 2.If Cells(i, 1) = C

18、ells(j, 1) Then 3.ActiveSheet.Cells.Clear 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 (1) n = Len(s) For i = 1 To n (2) x = x +

19、 Val(a) * 2 (i - 1) Next i (3) End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If (4) Then (5) End IfEnd Sub (1) (2) (3) (4) (5) 1.KeyAscii Asc(1) 2.Print x 3.KeyAscii = 0 4.s = Text1.Text 5.a = Mid(s, n + 1 - i, 1) 問(wèn)題 23 2.25 分 保存 隨機(jī)產(chǎn)生兩位數(shù)的整數(shù)放入一個(gè)5行5列的二維數(shù)組中，求該二維數(shù)組對(duì)角線上最大值所在的行和列。Private Sub Form

20、_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 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 (1) Next i max = a(1, 1) (2) pj = 1 For i = 1 To 5 For j = 1 To 5 (3) (4)

21、max = a(i, j) pi = i (5) End If End If Next j Next i Print 對(duì)角線上最大值在第; pi; 行和第; pj; 列End Sub (1) (2) (3) (4) (5) 1.pi = 1 2.If i = j Or i + j = 6 Then 3.pj = j 4.Print 5.If max a(j) Then (3) End If Next j (4) Next i (5) End Sub (1) (2) (3) (4) (5) 1.Call Swap(a(i), a(j) 2.a = b 3.b = temp 4.Form1.pri

22、nt 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程序如下。編寫(xiě)事件過(guò)程Command1_Click()，計(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 (2) End FunctionPrivate Sub Command1_Click()Dim a()

23、As Single, n As Integer, s As SingleDim v As Single, i As Integern = InputBox(請(qǐng)輸入n的值) (3) For i = 1 To n a(i) = InputBox()Next i (4) For i = 1 To n s = s + (a(i) - v) 2Next i (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 Integer) As BooleanDim i As Integer (1) For i = 2 To Sqr(n) (2) Next iEnd FunctionPrivate Sub Form_Click()Dim n1 As Integer, n2 As Integer, n As Int