12-13第一学期vb试卷a

20122013 学年第一学期 VB 期末考试卷答题纸（A 卷） 专业班级： 学号： 姓名： 一、单选题 (用铅笔把选中的方格涂黑 501=50 分) 1 A B C D 2 A B C D 3 A B C D 4 A B C D 5 A B C D 6 A B C D 7 A B C D 8 A B C D 9 A B C D 10 A B C D 11 A B C D 12 A B C D 13 A B C D 14 A B C D 15 A B C D 16 A B C D 17 A B C D 18 A B C D 19 A B C D 20 A B C D 21 A B C D 22 A B C D 23 A B C D 24 A B C D 25 A B C D 26 A B C D 27 A B C D 28 A B C D 29 A B C D 30 A B C D 31 A B C D 32 A B C D 33 A B C D 34 A B C D 35 A B C D 36 A B C D 37 A B C D 38 A B C D 39 A B C D 40 A B C D 41 A B C D 42 A B C D 43 A B C D 44 A B C D 45 A B C D 46 A B C D 47 A B C D 48 A B C D 49 A B C D 50 A B C D 二、填空题（每空占一行，每行写一个答案 202=40 分） 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. 16. 17. 18. 19. 20. 2 三、程序设计（52=10 分） 1. 编写程序，找出 20 以内的所有素数并在窗体上输出。 2设在图片框中已经生成了一个 55 的二维数组，如图所示，并且在窗体的通用声明部 分已经将数组 A（5,5）定义为整型。编写程序，完成单击“副对角线之和”命令按钮，对 副对角线（左下角到右上角连线）上的元素求和，并将结果在文本框中输出。 Private Sub Command2_Click() End Sub 20122013 学年第一学期 VB 期末考试卷（ A 卷）2012 级 第 3 页 共 11 页 3 20122013 学年第一学期 VB 期末考试卷（A 卷） 一、选择题（1 分50=50 分） 1. VB 窗体文件的扩展名是 。 A.Frm B.Bas C. .Vbp D. .Xls 2. 变量 S 为字符型，若在文本框 Text1、Text2 中分别输入数字 40 与 60 后，再执行以下 语句，S 的最终结果为“100“的是 。 A. S = Text1.Text x Next x Print x; y End Sub 9执行下面程序 , 单击 Commandl 按钮 , 则窗体上显示的 a(1, 3) 的值为 （10） ； a(2, 2) 的值为 （11） 。 Option Explicit Option Base 1 8 Private Sub Command1_Click() Dim a(3, 3) As Integer, i As Integer, j As Integer, t As Integer For i = 1 To 3 For j = 1 To 3 a(i, j) = i * 10 + j Next j Next i For i = 1 To 2 For j = 1 To 4 - i t = a(i, j) a(i, j) = a(4 - i, 4 - j) a(4 - i, 4 - j) = t Next j Next i For i = 1 To 3 For j = 1 To 3 Print a(i, j); Next j Print Next i End Sub 10. 执行下面程序 , 单击 Command 1 按钮 , 则在窗体上显示的第一行内容是 （12） ；第三行内容是 （13） 。 Option Explicit Private Sub Command1_Click() Dim i As Integer For i = 1 To 6 Step 2 Call Sub1(i) Next i End Sub Private Sub Sub1(a As Integer) Static b As Integer b = b + 1 If (a + b) Mod 4 = 0 Then Print a; b Else Call Sub1(a + 1) End If End Sub 11如果一个正整数从高位到低位上的数字依次递减 , 则称其为降序数 ( 如 : 9632 是 降序数 , 而 8516 则不是降序数 ) 。现编写如下程序 , 判断输入的正整数是否为降序数。 Option Explicit Private Sub Command1_Click() 20122013 学年第一学期 VB 期末考试卷（ A 卷）2012 级 第 9 页 共 11 页 9 Dim n As Long, s As String, i As Integer n = InputBox(“ 输入一个正整数 “) s = CStr(n) For i = 2 To （14） If Mid(s, i - 1, 1) Len(s) Then Print n; “ 是降序数 “ Else Print n; “ 不是降序数 “ End If End Sub 12. 用递归函数过程实现求两个数的最大公约数。 完善程序代码： Option Explicit Private Sub Form_Click() Dim M As Integer, N As Integer, G As Integer M = InputBox(“请输入 M“) N = InputBox(“请输入 N“) G=Gcd(M,N) Print M; “和“; N; “ 的最大公约数是“; G End Sub Private Function Gcd(ByVal X as Integer, ByVal Y as Integer) Dim R As Integer R = X Mod Y If (16) Then Gcd = Y Else X = Y Y = R （17） End If End Function 13本程序用于验证西西弗斯串数学黑洞 123。 验证过程是：对于任意一个位数不限的自 然数 , 依次统计出这个数中偶数字（数字 0 被看作偶数字）的个数 , 奇数字的个数 , 总 位数 , 将偶数字的个数值、奇数字的个数值、总位数值拼接成一个新的数；若这个新的数 不是 123， 则再对这个数重复以上的 “ 统计个数、拼数 “ 操作、如此经过若干次操作 , 必能得到数 123。例如 , 若初始数是 35962, 第一次统计个数 , 偶数字个数是 2, 奇数字 个数是 3, 总位数是 5, 拼成的新数是 235, 不是 123; 再对 235 统计个数 , 其中偶数字 个数是 1, 奇数字个数是 2, 总位数是 3, 拼成的新数恰是 123. 请完善程序。 Option Explicit Private Sub Command1_Click() Dim m As String, s As String, t As String m = Text1.Text 10 Do t = test(m) s = s & “ & t （18） Loop Until t = “123“ Text2.Text = Text1.Text & s End Sub Private Function test( （ 19） ) As String Dim i As Integer, x As Integer, y As Integer For i = 1 To Len(s) If （20） Then x = x + 1 Else y = y + 1 End If Next i test = x & y & Len(s) End Function 三、程序设计（52=10 分） 请将以下两道编写程序题目的答案，写在答题纸上 1. 编写程序，找出 20 以内的所有素