BB平台(日常测试)循环

问题 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 未给 定 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 总共有 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 n x 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 Print s s x 未给 定 11 Next i 未给 定 12 ave s n Print 未给 定 13 Print 平均值为 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 未给定 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 100 s i Mod 100 10 g i Mod 10 未给 定 5 If i b 3 s 3 g 3 Then 未给 定 6 Print 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 Randomize x Int 600 Rnd 1 Print x 未给定 6 If i mod 5 0 Then Print If 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 n For 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 5 And n 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 n 1 Then 未给 定 9 Prime 是素数 未给 定 10 Else 未给 定 11 Prime 不是素数 End If 未给 定 12 End If 未给 定 13 Print n 和 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 1 s 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 1 s 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 30 For y 1 To 500 20 未给 定 4 z 30 x y 未给 定 5 If 30 x 20 y 10 z 500 Then 未给 定 6 Print 男士 女士 小孩 s 未给定 10 End Sub 未给定 问题 4 得 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 Do 未给 定 4 n Val InputBox n 未给 定 5 Loop Until n 5 And n 0 未给定 7 Print s 未给定 8 End Sub 未给定 问题 1 得 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 未给定 问题 2 得 0 分 满分 20 分 单击窗体 从输入框 InputBox 输入整数 n 求下列表达式的值 并把计 算结果输出到窗体 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给定 2 Dim n As Integer s As Single 未给定 3 n Val InputBox n 未给定 4 For i 1 To n 未给定 5 s s 1 i 1 i 未给定 6 Next i 未给定 7 Print s 未给定 8 End Sub 未给定 问题 3 得 0 分 满分 20 分 单击窗体 从输入框输入一个 10 进制正整数 在窗体上打印出相应的二 进制数 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给定 2 Dim n As String x As String s As String 未给定 3 n InputBox 请输入一个 10 进制数 未给定 4 Do x n Mod 2 未给定 5 n n 2 s x z 20 元 y 50 元 x 未给 定 8 n n 1 未给 定 9 End If 未给 定 10 Next y 未给 定 11 Next x 未给 定 12 Print 总共有 s 未给定 10 End Sub 未给定 问题 3 得 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 n x 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 Print s s x 未给 定 11 Next i 未给 定 12 ave s n Print 未给 定 13 Print 平均值为 s 未给 定 9 End Sub 未给 定 问题 5 得 0 分 满分 20 分 编制 Form Click 过程 在窗体上打印如下图形 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给 定 2 Dim n As Integer i As Integer j As Integer Dim k As Integer p As Integer 未给 定 3 For i 1 To 5 未给 定 4 Print Tab 6 i 未给 定 5 For j 1 To 2 i 1 未给 定 6 Print Next j 未给 定 7 Print Next i 未给 定 8 For k 4 To 1 Step 1 未给 定 9 Print Tab 6 k 未给 定 10 For l 1 To 2 k 1 未给 定 11 Print 未给 定 12 Next l Print 未给 定 13 Next k 未给 定 14 End Sub 未给 定 问题 1 得 0 分 满分 20 分 单击窗体 打印 1 1000 之间所有被 3 5 7 除都余 1 的整数 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给 定 2 Dim i As Integer 未给 定 3 For i 1 To 1000 未给 定 4 If i Mod 3 1 And i Mod 5 1 And i Mod 7 1 Then 未给 定 5 Print i 未给 定 6 End If 未给 定 7 Next i 未给 定 8 End Sub 未给 定 问题 2 得 0 分 满分 20 分 编制 Form Click 过程 从输入框 InputBox 输入行数 n 5 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 未给 定 问题 3 得 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 n x 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 Print s s x 未给 定 11 Next i 未给 定 12 ave s n Print 未给 定 13 Print 平均值为 未给 定 8 For j 1 To 2 i 1 未给 定 9 Print Trim Str i 未给 定 10 Next j 未给 定 11 Print 未给 定 12 Next i 未给 定 13 End Sub 未给 定 问题 5 得 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 未给 定 问题 1 得 0 分 满分 20 分 编制 Form Click 过程 求下列算式的值 并把结果显示在窗体 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给定 2 Dim i As Integer a As Single s As 未给定 Single 3 a 1 s 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 未给定 问题 2 得 0 分 满分 20 分 编制 Form Click 过程 从输入框 InputBox 输入行数 n 5 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 未给 定 问题 3 得 0 分 满分 20 分 单击窗体 从输入框 InputBox 输入整数 n 求下列表达式的值 并把计 算结果输出到窗体 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给定 2 Dim n As Integer s As Single 未给定 3 n Val InputBox n 未给定 4 For i 1 To n 未给定 5 s s 1 i 1 i 未给定 6 Next i 未给定 7 Print s 未给定 8 End Sub 未给定 问题 4 得 0 分 满分 20 分 从文本框 Text1 输入一个二进制正整数 单击窗体 在窗体上打印出相应 的十进制数 且文本框中只允许输入 0 和 1 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给 定 2 Dim s As String a As String n As Integer x As Long 未给 定 3 s Text1 Text n Len s 未给 定 4 For i 1 To n 未给 定 5 a Mid s n 1 i 1 未给 定 6 x x Val a 2 i 1 未给 定 7 Next i 未给 定 8 Print x 未给 定 9 End Sub 未给 定 10 Private Sub Text1 KeyPress KeyAscii As Integer 未给 定 11 If KeyAscii Asc 1 Then 未给 定 12 KeyAscii 0 未给 定 13 End If 未给 定 14 End Sub 未给 定 问题 5 得 0 分 满分 20 分 编制 Form Click 过程 在窗体上输出九九乘法表 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给定 2 Dim i As Integer j As Integer 未给定 3 For i 1 To 9 未给定 4 For j 1 To i 未给定 5 Print i j i j 未给定 6 Next j 未给定 7 Print 未给定 8 Next i 未给定 9 End Sub 未给定 问题 1 得 20 分 满分 20 分 单击窗体 从输入框 InputBox 输入 x 和 n 并计算下列表达式的值 结果显 示在窗体 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 1 Private Sub Form Click 2 Dim s As Single x As Single a As Single n As Integer 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 3 x Val InputBox 请输入 x n Val InputBox 请输入 n s 1 4 a 1 4 a 1 5 For i 1 To n 5 For i 1 To n 6 a a x i 6 a a x i 7 s s a 7 s s a 8 Next 8 Next 9 Print s s 9 Print s s 10 End Sub 10 End Sub 问题 2 得 0 分 满分 20 分 编程 从输入框 InputBox 输入一串字符串 统计其中所包含的数字字符 大写英文字母 小写英文字母以及其他字符的个数 在窗体上输出统计结 果 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 未给定 2 Dim s As String x As String a As Single 未给定 3 s InputBox 请输入字符串 未给定 4 For i 1 To Len s 未给定 5 x Mid s i 1 未给定 6 If x 0 And x A And x a And x z Then 未给定 10 xiaoxie xiaoxie 1 未给定 11 Else 未给定 12 qita qita 1 未给定 13 End If 未给定 14 Next i 未给定 15 Print 数字字符有 4 Print Tab 6 i 5 For j 1 To 2 i 1 5 For j 1 To 2 i 1 6 Print Next j 6 Print Next j 7 Print Next i 7 Print Next i 8 For k 4 To 1 Step 1 8 For k 4 To 1 Step 1 9 Print Tab 6 k 9 Print Tab 6 k 10 For l 1 To 2 k 1 10 For l 1 To 2 k 1 11 Print 11 Print 12 Next l Print 12 Next l Print 13 Next k 13 Next k 14 End Sub 14 End Sub 问题 3 得 20 分 满分 20 分 单击窗体 找出 10 99 之间所有的同构数 显示在窗体上 所谓同构数是 指一个数出现在它的平方数的右端 如 25 在 25 的平方 625 的右端 则 25 为同构数 窗体上显示 25 是同构数 正确答案正确答案所选答案所选答案 1 Private Sub Form Click 1 Private Sub Form Click 2 Dim i As Integer 2 Dim i As Integer 3 For i 10 To 99 3 For i 10 To 99 4 If i i 2 Mod 100 Then 4 If i i 2 Mod 100 Then 5 Print i 女士 小孩 女士 小孩 n 7 Print 最大值为 n 7 Next i 8 End Sub 8 End Sub 问题 1 得 15 56 分 满分 20 分 单击窗体 显示出所有的水仙花数 所谓水仙花数 是指一个 3 位正整数 其各位数字的立方和等于该数字本身 例如 153 是水仙花数 因为 153 13 53 33 正确答案正确答案所选答案所选答案 1