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

江苏省计算机等级考试上机试卷（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的函数过程，用于求一个整数的反序数。 [算法提示]如果一个整数末位数为0，则不需要求反序数。 【要求】

将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。 图2

图 1

江苏省计算机等级考试上机试卷（2007春） 二级 Visual Basic语言 （试卷代号VB02） （本试卷完成时间 70分钟） 【考试须知】

1． 改错题的界面不作要求，主要用来调试程序，若题目中有参考界面，则仅作参考；

2． 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；

3． 程序代码书写应呈锯齿形。 一、改错题（14分）

【题目】从10个各不相同的正整数中，剔除若干个数。使得保留下来的数中，任意两个数的和都不是平方数（所谓的平方数就是该数等于某一个数的平方，例如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 <= 10 K = Int(20 * Rnd) + 1 For J = 1 To P

If K = A(J) Then Exit Do Next J

If J > 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

Private Sub Delete(A() As Integer, P As Integer)

Dim Idx As Integer, J As Integer, Sum As Integer Idx = 2

Do While Idx < P

For J = 1 To Idx - 1

Sum = A(Idx) + A(J)

If Int(Sqr(Sum)) = Sqr(Sum) Then Exit For Next J

If J > Idx - 1 Then A(Idx) = A(P) P = P - 1 Else

Idx = Idx + 1 End If Loop End Sub

【要求】

1． 新建工程，输入上述代码，改正程序中的错误；

2． 改错时，不得增加或删除语句，但可适当调整语句位置； 3． 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。 二、编程题（26分）

【题目】编写程序,生成n组22选5的彩票码组。（每组由各不相同的5个数码组成，且每个数码只能取1-22之间的数字。）。 【编程要求】

1． 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；

2． 在文本框1中输入n值，按“运行”按钮，在列表框中显示结果；按“清除”按钮，将文本框及列表框清空，焦点置于文本框；按“结束”按钮，结束程序运行；

3． 程序中应定义一个名为tc的通用过程，用于生成一组彩票数码。 【要求】

将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。