BB平台VB程序匹配题.doc

问题 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 (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 问题 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 = 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) 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) 问题 9 2.25 分 保存 利用二维数组编程输出“杨辉三角形”图案，图案行数n从键盘输入。Private Sub Form_Click() Dim x() As Integer Dim n As Integer (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 问题 10 2.25 分 保存 随机产生100个学生的成绩（3598之间），统计各分数段的人数。即09、1019、2029、3039、4049、5059、6069、7079、8089、9099，并输出结果。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 Integer 4.k = Int(a(i) / 10) 5.a(i) = Int(Rnd * 64)+35 问题 11 2.25 分 保存 建立一个“猜数程序”。单击窗体，产生一个2位的随机正整数。在文本框Text1中输入你猜测的数字，单击按钮Command1在窗体上显示猜测结果：如果你输入的数字比程序生成的随机数要大，则显示“大了”；如果比程序生成的随机数要小则“小了”；然后继续输入数字进行猜测。如果猜中，则显示“恭喜你猜中啦！”，并用消息框显示一共猜了几次。Dim n As Integer, k As Integer (1) Randomize (2) End SubPrivate Sub Command1_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 问题 13 2.25 分 保存 从1到10000中找出这样的数，该数各个位的数字的阶乘相加之和等于该数，并将结果输出。已知fact函数用于计算阶乘。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 kEnd 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) 问题 14 2.25 分 保存 输入10个数放入数组中，将第1个数移到最后位置，其余数依次往前移动一个位置。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 To 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) 问题 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) Do While k6的偶数 Cells(1, 2) = 第一个素数 (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) = 第二个素数 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=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) 1.Print 及格 2.End If 3.ElseIf score = 60 Then 4.Dim score As Integer 5.score = 90 问题 18 2.25 分 保存 单击窗体，从输入框InputBox输入一个整数，判断其是否为素数。例如输入7，则屏幕上显示“7是素数”；如果输入的是9则屏幕上显示“9不是素数”。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.Prime = 是素数 问题 19 2.25 分 保存 1、在文本框Text1中输入一个正整数，单击按钮Command1，判断该数的奇偶性，结果显示在标签框label2中，要求偶数用蓝色显示，奇数用红色显示。 Private Sub Command1_Click() Dim x As Integer (1) If (2) Then Label2.ForeColor = vbBlue (3) (4) (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 & 是偶数 问题 20 2.25 分 保存 编写程序，在工作表上打印九九乘法表如下。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 = xlCenter (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 问题 21 2.25 分 保存 在工作表1上创建“控件工具箱”命令按钮“产生数据”（CommandButton1）和“判断”（CommandButton2）。单击“产生数据”按钮完成在A1：A10上产生两位随机正整数；单击“判断”按钮完成将其中重复数用红色标注。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) = Cells(j, 1) Then 3.ActiveSheet.Cells.Clear 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 (1) n = Len(s) For i = 1 To n (2) x = x + 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) 问题 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 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) max = a(i, j) pi = i (5) End If End If Next j Next i Print 对角线上最大值在第; 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.print a(10) 5.Form1.Print a(i); 问题 25 2.25 分 保存 输入n后，再输入n个数a1 ，a2 ，.，an ，按照下列公式计算s的值并显示。已知求v值的函数过程 f程序如下。编写事件过程Command1_Click()，计算s值，其中v值要求调用函数过程 f来完成。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() As Single, n As Integer, s As SingleDim v As Single, i As Integern = InputBox(请输入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) 问题 26 2.25 分 保存 验证哥德巴赫猜想大于6的偶数可以分解为两个素数之和, 通过调用函数过程实现判断任一输入的正整数是不是素数。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