江苏省计算机等级考试上机试卷2.docVIP

江苏省计算机等级考试上机试卷（2007春）二级VB -------------------------------------------------------------------------------- 来源：南天计算机 更新时间：2008-9-1 关键字：江苏省计算机等级考试上机试卷（2007春）VB 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷（2007春） 二级 Visual Basic语言 （试卷代号VB05） （本试卷完成时间 70分钟） 【考试须知】 1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考； 2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分； 3． 程序代码书写应呈锯齿形。 一、改错题（14分） 【题目】本程序的功能是找出这样的四位数：①各位上的数字不重复，且不为0；②相邻两个数字之和为素数；③首尾两个数字之和也为素数。(界面参见图1) 算法提示：从可能符合条件的4位数中，首先判断其是否含有重复的数码和0，若无则调用函数Prime，判断这个4位数的相邻两个数字和首尾两个数字之和是否都是素数。 Private Sub Command1_Click() Dim A(9) As Integer, I As Integer, K As Integer, S As String, J As Integer For I = 1234 To 9876 Erase A S = CStr(I) For J = 1 To Len(S) K = Val(Mid(S, J, 1)) If K = 0 Then Exit Sub If A(K) = 0 Then ‘ 此If结构功能是判断4位数是否含有重复的数码 A(K) = 1 Else Exit For End If Next J If J = Len(S) And Prime(I) Then List1.AddItem I End If Next I End Sub Private Function Prime(N As Integer) As Boolean Dim S As String, L As Integer, K As Integer, Tem As Long, I As Integer S = CStr(N) L = Len(N) For I = 1 To L If I L Then Tem = Val(Mid(S, I, 1)) + Mid(S, I + 1, 1) Else Tem = Val(Mid(S, 1, 1)) + Mid(S, L, 1) End If For K = 2 To Sqr(Tem) If Tem Mod K = 0 Then Exit Function Next K Next I Prime = True End Function 【要求】 1． 新建工程，输入上述代码，改正程序中的错误； 2． 改错时，不得增加或删除语句，但可适当调整语句位置； 3． 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。 二、编程题（26分） 【题目】编写程序，求乘积在给定区间内的互为反序的两个自然数。所谓互为反序的自然数是指如102 和201，35 和53，11 和11这样的数。而120 和21 则不是。 【编程要求】 1． 程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2． 在文本框1中输入A值，在文本框2中输入B值，再按“运行”按钮，则在11～2000的范围内查找乘积为[A,B]区间的反序数对，并在列表框中显示结果；按“清理”按钮，则将2个文本框及列表框清空，焦点置于文本框1；按“结束”按钮，结束程序运行； 3． 程序中应定义一个名为nx的函数过程，用于求一个整数的反序数。 [算法提示]如果