pythonbb平台答案_bb平台(日常测试)循环

bb平台(日常测试)循环

(54页)

本资源提供全文预览，点击全文预览即可全文预览,如果喜欢文档就下载吧，查找使用更方便哦！

9.90 积分

问题 1 得 0 分，满分 20 分   单击窗体，找出10~99之间所有的同构数，显示在窗体上。所谓同构数是指一个数出现在它的平方数的右端，如25在25的平方625的右端，则25为同构数，窗体上显示“25是同构数”。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer -[未给定] 3. For i = 10 To 99 -[未给定] 4. If i = (i ^ 2) Mod 100 Then -[未给定] 5. Print i & "是同构数" -[未给定] 6. End If -[未给定] 7. Next i -[未给定] 8. End Sub -[未给定]   问题 2 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入行数n(5≤n≤15)，然后在窗体上打印如下图形。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, i As Integer, j As Integer -[未给定] 3. Don = Val(InputBox("n="))-[未给定] 4. Loop Until n >= 5 And n < 10 -[未给定] 5. For i = 1 To n -[未给定] 6. Print Tab(n + 1 - i); -[未给定] 7. For j = 1 To n -[未给定] 8. Print "*"; -[未给定] 9. Next j -[未给定] 10. Print -[未给定] 11. Next i -[未给定] 12. End Sub -[未给定]   问题 3 得 0 分，满分 20 分   编制Form_Click()过程，有10元、20元、50元纸币若干张，从中取出20张纸币使其面额总值为600元，求出取法的总数量以及每一种取法的10元、20元、50元纸币张数，并显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim x As Integer, y As Integer, z As Integer, n As Integer -[未给定] 3. For x = 0 To 600 \ 50 -[未给定] 4. For y = 0 To 20 - x -[未给定] 5. z = 20 - x - y -[未给定] 6. If z * 10 + y * 20 + x * 50 = 600 Then -[未给定] 7. Print "10元:"; z, "20元:"; y, "50元:"; x -[未给定] 8. n = n + 1 -[未给定] 9. End If -[未给定] 10. Next y -[未给定] 11. Next x -[未给定] 12. Print "总共有：" & n & "种取法" -[未给定] 13. End Sub -[未给定]   问题 4 得 0 分，满分 20 分   单击窗体，从输入框InputBox输入x和n，并计算下列表达式的值，结果显示在窗体。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim s As Single, x As Single, a As Single, n As Integer -[未给定] 3. x = Val(InputBox("请输入x"))n = Val(InputBox("请输入n"))s = 1-[未给定] 4. a = 1 -[未给定] 5. For i=1 To n -[未给定] 6. a = a * x / i -[未给定] 7. s = s + a -[未给定] 8. Next -[未给定] 9. Print "s="; s -[未给定] 10. End Sub -[未给定]   问题 5 得 0 分，满分 20 分   从输入框InputBox输入n，再从输入框输入这n个整数，要求以每行5个的形式输出这n个数(其中的偶数用红色显示)，计算它们的平均值并显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, x As Integer, ave As Single, s As Single -[未给定] 3. n = Val(InputBox("n")) -[未给定] 4. For i = 1 To nx = Val(InputBox("x"))-[未给定] 5. If x Mod 2 = 0 Then -[未给定] 6. Form1.ForeColor = vbRed -[未给定] 7. Else -[未给定] 8. Form1.ForeColor = vbBlack -[未给定] 9. End If -[未给定] 10. Print x;If i Mod 5 = 0 Then Prints = s + x-[未给定] 11. Next i -[未给定] 12. ave = s / nPrint-[未给定] 13. Print "平均值为：" & ave -[未给定] 14. End Sub -[未给定] 问题 1 得 0 分，满分 20 分   实现文本框的复制(Command1)、剪切(Command2)、粘贴(Command3)、删除(Command4)功能。  编制Form_Click()过程，从输入框InputBo正确答案所选答案1. Private Sub Command1_Click() -[未给定] 2. Clipboard.ClearClipboard.SetText Text1.SelTextEnd Sub-[未给定] 3. Private Sub Command2_Click() -[未给定] 4. Clipboard.ClearClipboard.SetText Text1.SelText-[未给定] 5. Text1.SelText = ""End Sub-[未给定] 6. Private Sub Command3_Click() -[未给定] 7. Text1.SelText = Clipboard.GetTextEnd Sub-[未给定] 8. Private Sub Command4_Click()Text1.SelText = ""-[未给定] 9. End Sub -[未给定]   问题 2 得 0 分，满分 20 分   编制Form_Click()过程，计算下式的和并显示在窗体上，变量x与n的数值用输入对话框InputBox输入。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim s As Single, x As Single, a As Single, n As Integer -[未给定] 3. x = Val(InputBox("请输入x"))n = Val(InputBox("请输入n"))a = 1s = 0-[未给定] 4. For i = 2 To n + 1 -[未给定] 5. a = a * x / i -[未给定] 6. s = s + a -[未给定] 7. Next -[未给定] 8. Print "s="; s -[未给定] 9. End Sub -[未给定]   问题 3 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入整数n，求n!的值，并把结果打印在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, i As Integer, s As Long -[未给定] 3. n = Val(InputBox("请输入n"))s = 1-[未给定] 4. For i = 1 To n -[未给定] 5. s = s * i -[未给定] 6. Next i -[未给定] 7. Print "n!=" & s -[未给定] 8. End Sub -[未给定]   问题 4 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入行数n(5≤n<10)，然后在窗体上输出如下图形。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, i As Integer, j As Integer -[未给定] 3. Do -[未给定] 4. n = Val(InputBox("n="))Loop Until n >= 5 And n < 10-[未给定] 5. For i = 1 To n -[未给定] 6. Print Tab(n + 1 - i); -[未给定] 7. For j = 1 To 2 * i - 1 -[未给定] 8. Print "*"; -[未给定] 9. Next j -[未给定] 10. Print -[未给定] 11. Next i -[未给定] 12. End Sub -[未给定]   问题 5 得 0 分，满分 20 分   单击窗体，用输入对话框InputBox输入一个正整数n，计算n的各位数字之和并输出在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, x As Integer, s As Integer -[未给定] 3. n = Val(InputBox("n")) -[未给定] 4. Do While n > 0 -[未给定] 5. x = n Mod 10 -[未给定] 6. s = s + x -[未给定] 7. n = n \ 10 -[未给定] 8. Loop -[未给定] 9. Print s -[未给定] 10. End Sub -[未给定] 问题 1 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入行数n(5≤n<10)，然后在窗体上输出n层数字金字塔。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, i As Integer, j As Integer -[未给定] 3. Do -[未给定] 4. n = Val(InputBox("n=")) -[未给定] 5. Loop Until n >= 5 And n < 10 -[未给定] 6. For i = 1 To n -[未给定] 7. Print Tab(n + 1 - i); -[未给定] 8. For j = 1 To 2 * i - 1 -[未给定] 9. Print Trim(Str(i)); -[未给定] 10. Next j -[未给定] 11. Print -[未给定] 12. Next i -[未给定] 13. End Sub -[未给定]   问题 2 得 0 分，满分 20 分   单击窗体，显示出所有的水仙花数。所谓水仙花数，是指一个3位正整数，其各位数字的立方和等于该数字本身。例如：153是水仙花数，因为153=13+53+33。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, b As Integer, s As Integer, g As Integer -[未给定] 3. For i = 100 To 999 -[未给定] 4. b = i \ 100s = (i Mod 100) \ 10g = i Mod 10-[未给定] 5. If i = b ^ 3 + s ^ 3 + g ^ 3 Then -[未给定] 6. Print i & "是水仙花数" -[未给定] 7. End If -[未给定] 8. Next i -[未给定] 9. End Sub -[未给定]   问题 3 得 0 分，满分 20 分   单击窗体， 求s=1!+2!+3!+...+10! 的值，并把结果显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, a As Long, s As Long -[未给定] 3. a = 1s = 0-[未给定] 4. For i = 1 To 10 -[未给定] 5. a = a * i -[未给定] 6. s = s + a -[未给定] 7. Next i -[未给定] 8. Print s -[未给定] 9. End Sub -[未给定]   问题 4 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入行数n(5≤n<10)，然后在窗体上输出如下图形。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, i As Integer, j As Integer -[未给定] 3. Do -[未给定] 4. n = Val(InputBox("n="))Loop Until n >= 5 And n < 10-[未给定] 5. For i = 1 To n -[未给定] 6. Print Tab(n + 1 - i); -[未给定] 7. For j = 1 To 2 * i - 1 -[未给定] 8. Print "*"; -[未给定] 9. Next j -[未给定] 10. Print -[未给定] 11. Next i -[未给定] 12. End Sub -[未给定]   问题 5 得 0 分，满分 20 分   单击窗体，产生20个从1到600之间的随机整数，并以每行5个把数据显示在窗体上，最后在窗体上显示20个数据中的所有偶数之和。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, x As Integer, s as Long -[未给定] 3. s = 0 -[未给定] 4. For i = 1 To 20 -[未给定] 5. Randomizex = Int(600*Rnd+1)Print x;-[未给定] 6. If i mod 5 =0 Then PrintIf x Mod 2 = 0 Then s = s + x-[未给定] 7. Next i -[未给定] 8. Print "s="; s -[未给定] 9. End Sub -[未给定] 问题 1 得 0 分，满分 20 分   单击窗体，输出下列数字图案(行数从输入框InputBox输入)。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer -[未给定] 3. n = InputBox("请输入行数") -[未给定] 4. For i = 1 To nFor j = 1 To n-[未给定] 5. If j < i Then -[未给定] 6. Print n + 1- j; -[未给定] 7. Else -[未给定] 8. Print j - i + 1; -[未给定] 9. End If -[未给定] 10. Next j -[未给定] 11. Print -[未给定] 12. Next i -[未给定] 13. End Sub -[未给定]   问题 2 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入行数n(5≤n<10)，然后在窗体上输出n层数字金字塔。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, i As Integer, j As Integer -[未给定] 3. Do -[未给定] 4. n = Val(InputBox("n=")) -[未给定] 5. Loop Until n >= 5 And n < 10 -[未给定] 6. For i = 1 To n -[未给定] 7. Print Tab(n + 1 - i); -[未给定] 8. For j = 1 To 2 * i - 1 -[未给定] 9. Print Trim(Str(i)); -[未给定] 10. Next j -[未给定] 11. Print -[未给定] 12. Next i -[未给定] 13. End Sub -[未给定]   问题 3 得 0 分，满分 20 分   已知下列公式，单击窗体，编程求pi的近似值(保留五位小数)，并把结果显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim s As Single, x As Single, a As Single -[未给定] 3. a = 1s = 1i = 1-[未给定] 4. Do While a >=10^(-5) -[未给定] 5. a = 1 / (2 * i + 1)s = s + (-1)^ i * a-[未给定] 6. i = i + 1 -[未给定] 7. Loop -[未给定] 8. Print "pi="; 4*s -[未给定] 9. End Sub -[未给定]   问题 4 得 0 分，满分 20 分   单击窗体，从输入框InputBox输入一个整数，判断其是否为素数。例如输入7，则屏幕上显示“7是素数”；如果输入的是9则屏幕上显示“9不是素数”。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, n As Integer, Prime As String -[未给定] 3. n = Val(InputBox("n=")) -[未给定] 4. If n < 2 ThenPrime = "不是素数"-[未给定] 5. ElseFor i = 2 To n-1-[未给定] 6. If n Mod i = 0 Then Exit For -[未给定] 7. Next i -[未给定] 8. If i > n-1 Then -[未给定] 9. Prime = "是素数" -[未给定] 10. Else -[未给定] 11. Prime = "不是素数"End If-[未给定] 12. End If -[未给定] 13. Print n & Prime -[未给定] 14. End Sub -[未给定]   问题 5 得 0 分，满分 20 分   编制Form_Click()过程，从输入框InputBox输入两个任意正整数n和m，求出它们的最大公约数，并显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim m As Integer, n As Integer, i As Integer, div As Integer -[未给定] 3. Do -[未给定] 4. m = Val(InputBox("m="))n = Val(InputBox("n="))-[未给定] 5. Loop While m <= 0 Or n <= 0 -[未给定] 6. If n < m Then -[未给定] 7. div = n -[未给定] 8. Else -[未给定] 9. div = m -[未给定] 10. End If -[未给定] 11. Do Until m Mod div = 0 And n Mod div = 0 -[未给定] 12. div = div + 1 -[未给定] 13. Loop -[未给定] 14. Form1.Print m; "和"; n; "的最大公约数是："; div -[未给定] 15. End Sub -[未给定]   问题 1 得 0 分，满分 20 分   单击窗体， 求s=1!+2!+3!+...+10! 的值，并把结果显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, a As Long, s As Long -[未给定] 3. a = 1s = 0-[未给定] 4. For i = 1 To 10 -[未给定] 5. a = a * i -[未给定] 6. s = s + a -[未给定] 7. Next i -[未给定] 8. Print s -[未给定] 9. End Sub -[未给定]   问题 2 得 0 分，满分 20 分   编制Form_Click过程，求下列算式的值，并把结果显示在窗体。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, a As Single, s As Single -[未给定] 3. a = 1s = 1-[未给定] 4. For i = 2 To 19 -[未给定] 5. a = (-1) ^ (i - 1) / (i * (i + 1)) -[未给定] 6. s = s + a -[未给定] 7. Next i -[未给定] 8. Print s -[未给定] 9. End Sub -[未给定]   问题 3 得 0 分，满分 20 分   有30个人在用餐，其中有男士、女士和小孩；男士花30元，女士花20元，小孩花了10元，30人共花了500元。单击窗体，计算出男士、女士、小孩各有几位，并把结果显示在窗体上。例如“男士1 位，女士18位，小孩11位”。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim x As Integer, y As Integer, z As Integer -[未给定] 3. For x = 1 To 500\30For y = 1 To 500\20-[未给定] 4. z = 30 - x - y -[未给定] 5. If 30 * x + 20 * y + 10*z = 500 Then -[未给定] 6. Print "男士" & x & "位,"; "女士" & y & "位"; "小孩" & z & "位" -[未给定] 7. End If -[未给定] 8. Next y -[未给定] 9. Next x -[未给定] 10. End Sub -[未给定]   问题 4 得 0 分，满分 20 分   单击窗体，输出下列图案(行数n从输入框InputBox输入)。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer -[未给定] 3. n = InputBox("请输入行数") -[未给定] 4. For i = 1 To nFor j = 1 To n-[未给定] 5. If j < i Then -[未给定] 6. Print 0; -[未给定] 7. Else -[未给定] 8. Print 1; -[未给定] 9. End If -[未给定] 10. Next j -[未给定] 11. Print -[未给定] 12. Next i -[未给定] 13. End Sub -[未给定]   问题 5 得 0 分，满分 20 分   从输入框InputBox输入n，再从输入框输入这n个整数，要求以每行5个的形式输出这n个数(其中的偶数用红色显示)，计算它们的平均值并显示在窗体上。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As Integer, x As Integer, ave As Single, s As Single -[未给定] 3. n = Val(InputBox("n")) -[未给定] 4. For i = 1 To nx = Val(InputBox("x"))-[未给定] 5. If x Mod 2 = 0 Then -[未给定] 6. Form1.ForeColor = vbRed -[未给定] 7. Else -[未给定] 8. Form1.ForeColor = vbBlack -[未给定] 9. End If -[未给定] 10. Print x;If i Mod 5 = 0 Then Prints = s + x-[未给定] 11. Next i -[未给定] 12. ave = s / nPrint-[未给定] 13. Print "平均值为：" & ave -[未给定] 14. End Sub -[未给定]  问题 1 得 0 分，满分 20 分   单击窗体，从输入框输入一个10进制正整数，在窗体上打印出相应的二进制数。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim n As String, x As String, s As String -[未给定] 3. n = InputBox("请输入一个10进制数") -[未给定] 4. Dox = n Mod 2-[未给定] 5. n = n \ 2s = x & s-[未给定] 6. Loop While n > 0 -[未给定] 7. Print s -[未给定] 8. End Sub -[未给定]   问题 2 得 0 分，满分 20 分   单击窗体，从输入框输入一个字符串，判断其是否为“回文”(Wraptext)并在窗体上打印结果。“回文”是指字符串顺读与倒读都是一样的，如“潮起潮落，落潮起潮”。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim s As String ,n as Integer -[未给定] 3. s = InputBox("请输入字符串")n = Len(s)-[未给定] 4. For i = 1 To n \ 2 -[未给定] 5. If Mid(s, i, 1) <> Mid(s, n + 1 - i, 1) Then Exit For -[未给定] 6. Next i -[未给定] 7. If i <= n \ 2 Then -[未给定] 8. Print s & "不是回文" -[未给定] 9. Else -[未给定] 10. Print s & "是回文" -[未给定] 11. End If -[未给定] 12. End Sub -[未给定]   问题 3 得 0 分，满分 20 分   编制Form_Click过程，求下列算式的值，并把结果显示在窗体。  正确答案所选答案1. Private Sub Form_Click() -[未给定] 2. Dim i As Integer, a As Single, s As Single -[未给定] 3. a = 1s = 1-[未给定] 4. For i = 2 To 19 -[未给定] 5. a = (-1) ^ (i - 1) / (i * (i + 1)) -[未给定] 6. s = s + a -[未给定] 7. Next i -[未给定] 关 键 词： bb 平台 日常 测试 循环

 天天文库所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。