2008春VB上机试卷VB03.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2008春） 二级 Visual Basic语言 （试卷代号VB03） （本试卷完成时间 70分钟） 【考试须知】 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】本程序的功能是查找四位整数n，它的9倍正好等于n的反序数。 Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Integer Dim st As String Text1 = 结果是： For n = 1000 To 1111 k = 9 * n If nx(n) = k Then st = n -- k Text1 = Text1 st vbCrLf End If Next n End Sub Private Function nx (n As Integer) As Integer Dim i As Integer, sa As String Dim k As Integer i = 1 Do k = n Mod 10 sa = sa Str(k) n = n / 10 Loop While n 0 nx = sa End Function 【要求】 新建工程，输入上述代码，改正程序中的错误； 改错时，不得增加或删除语句，但可适当调整语句位置； 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘T:盘目录下。 二、编程题（26分） 【题目】编写程序，输入一个正整数n，求所有小于n大于1，且与n互质的数，存入一个数组，并按每行五个的格式输出到一个多行文本框中。（所谓两个数互质，是指两个数除了1之外，没有其他公约数） 【编程要求】 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 运行程序，在文本框1中输入数据n，按“运行”按钮，则开始查找并按要求格式在多行文本框2中显示结果；按“清除”按钮，则将两个文本框清空，焦点置于文本框1上；按“结束”按钮，结束程序运行； 程序中应定义一个名为gcd的函数过程，用于求两个整数的最大公约数。 【要求】 将窗体文件和工程文件分别命名为F2和P2，并保存到T:盘根目录下。 2008年春VB04-1