2022年2022年江苏省计算机等级考试上机试卷 .pdf

《2022年2022年江苏省计算机等级考试上机试卷 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年江苏省计算机等级考试上机试卷 .pdf（4页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、江苏省计算机等级考试上机试卷（2007春）二级 VB - 来源：南天计算机更新时间： 2008-9-1 关键字：江苏省计算机等级考试上机试卷（ 2007 春）VB 江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2007 春）二级 Visual Basic语言 （试卷代号 VB05）（本试卷完成时间70 分钟）【考试须知】1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3程序代码书写应呈锯齿形。一、改错题（ 14 分）【题目】本程序的功能是找出这样的四位数：各

2、位上的数字不重复， 且不为 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

3、= 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 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 4 页 - - - - - - - - - P

4、rivate 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 T

5、hen 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 所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界

6、面元素大小适中，且均可见；2在文本框 1 中输入 A 值，在文本框 2 中输入 B 值，再按“运行”按钮，则在 112000 的范围内查找乘积为A,B区间的反序数对，并在列表框中显示结果；按“清理”按钮，则将 2 个文本框及列表框清空， 焦点置于文本框 1；按“结束”按钮，结束程序运行；3程序中应定义一个名为nx 的函数过程，用于求一个整数的反序数。算法提示 如果一个整数末位数为0，则不需要求反序数。【要求】将窗体文件和工程文件分别命名为F2 和 P2，并保存到软盘A 的根目录下。图 2 图 1 江苏省计算机等级考试上机试卷（2007春）二级 Visual Basic语言 （试卷代号 VB02

7、）（本试卷完成时间70 分钟）【考试须知】1改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 4 页 - - - - - - - - - 2考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；3程序代码书写应呈锯齿形。一、改错题（ 14 分）【题目】从 10 个各不相同的正整数中，剔除若干个数。使得保留下来的数中，任意两个数的和都不是平方数（所谓的平方数就是该数等于某一个

8、数的平方，例如 4 就是一个平方数）。Option Explicit Option Base 1 Private Sub Command1_Click() Dim A(10) As Integer, I As Integer, J As Integer, P As Integer, K As Integer Do While P P Then P = P + 1 A(P) = K Text1 = Text1 & Str(K) End If Loop Call Delete(A, P) For I = 1 To P Text2 = Text2 & Str(A(I) Next I End Sub

9、Private Sub Delete(A() As Integer, P As Integer) Dim Idx As Integer, J As Integer, Sum As Integer Idx = 2 Do While Idx Idx - 1 Then A(Idx) = A(P) P = P - 1 Else Idx = Idx + 1 End If Loop End Sub 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 4 页 - - - - - - - -

10、 - 【要求】1新建工程，输入上述代码，改正程序中的错误；2改错时，不得增加或删除语句，但可适当调整语句位置；3 将窗体文件和工程文件分别命名为F1 和 P1， 并保存到软盘 A 的根目录下。二、编程题（ 26 分）【题目】编写程序 ,生成 n 组 22 选 5 的彩票码组。（每组由各不相同的5 个数码组成，且每个数码只能取1-22 之间的数字。） 。【编程要求】1程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2在文本框 1 中输入 n 值，按“运行”按钮，在列表框中显示结果；按“清除”按钮，将文本框及列表框清空，焦点置于文本框；按“结束”按钮，结束程序运行；3程序中应定义一个名为tc 的通用过程，用于生成一组彩票数码。【要求】将窗体文件和工程文件分别命名为F2 和 P2，并保存到软盘A 的根目录下。名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 4 页 - - - - - - - - -