05年秋江苏计算机二级VB上机试题及答案

江苏省等级考试二级VB上机试卷2005年（秋）及参考答案【题目1】本程序的功能是：找出2~10000之间可以表示成2²-1形式的素数.本题程序界面见图1.答：源程序：Option ExplicitPrivate Sub Command1_Click()Dim Exp As Integer, Idx As IntegerFor Idx = 2 To 10000If Mersenne(Idx, Exp) ThenIf Prime(Idx) ThenList1.AddItem Idx & " =" & 2 & "^" & Exp & "-1"End IfEnd IfExp = 0Next IdxEnd SubPrivate Function Mersenne(N As Integer, Exp As Integer) As BooleanDim M As Integer, Ex As LongM = NEx = 1Do While M > ExExp = Exp + 1Ex = Ex * 2LoopIf M = Ex - 1 ThenMersenne = TrueEnd IfEnd FunctionPrivate Function Prime(N As Integer) As BooleanDim K As IntegerFor K = 2 To Sqr(N)If N Mod K = 0 Then Exit FunctionNext KPrime = TrueEnd Function【题目2】将1～9这9个数字顺序排列围成一圈,从中任意一个数字开始,依次将其分成三段,每段数字连在一起算一个数,得到一个2位数、一个3位数和一个4位数,将这三个数相加,使其和数能被77整除.编写一个能找出这三个数的程序.【编程要求】1.程序参考界面如图2所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见;2.单击“运行”按钮,找出符合条件的三个数,并将它们显示在文本框中;3.单击“清理”按钮,则将文本框清空,并将焦点设置在“运行”按钮上;单击“结束”按钮,结束程序运行;4.程序中必须包含一个将数字分段,得到一个2位数、一个3位数和一个4位数的通用过程.答：源程序：Private Sub Command1_Click()Dim s As String, i As Integer, sum As Integer, s1 As Integer, s2 As Integer, s3 As Integer s = "123456789"For i = 1 To Len(s)Call part(s, i, s1, s2, s3)If (s1 + s2 + s3) Mod 77 = 0 ThenText1.Text = Text1.Text & "( " & s1 & " + " & s2 & " + " & s3 & " ) mod " & 77 & "=0" & vbCrLfEnd IfNext iEnd SubPrivate Sub part(ByVal s As String, i As Integer, s1, s2, s3)s = s & ss1 = Int(Mid(s, i, 2))s2 = Int(Mid(s, i + 2, 3))s3 = Int(Mid(s, i + 5, 4))End SubPrivate Sub Command2_Click()EndEnd Sub[题目3]下面程序的功能是将给定的十六进制整数转换成二进制整数（删除高位0）。

答：源程序：Option ExplicitPrivate Sub Command1_Click()Dim H As String, Bin As String, L As Integer, I As IntegerDim K As Integer, S As String * 1H = UCase(Trim(Text1))L = Len(H)For I = 1 To LS = Mid(H, I, 1)If S <= "9" And S >= "0" ThenK = Val(S)ElseK = Asc(S) - 55End IfIf K < 0 Or K > 15 ThenBin = "十六进制数据错误"End IfCall Trans(Bin, K)Next IBin = Right(Bin, Len(Bin) - InStr(Bin, "1") + 1)End SubPrivate Sub Trans(Bin As String, K As Integer)Dim S As String, I As Integer, N As IntegerDo While K > 0S = K Mod 2 & SK = K \ 2LoopS = "0000" & SBin = Bin & Right(S, 4)End Sub[题目4]编写程序，找出由1，2，3，4四个不同数字组成的4位整数中的素数。

[编程要求]1程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2单击“开始”按钮，生成（或筛选出）由1，2，3，4四个数字组成的4位整数，并显示在列表框List1中，在列表框List2中显示其中的素数；3单击“清理”按钮，则将两个列表框清空；单击“退出”按钮，结束程序运行；4程序中必须包含一个判断某数是否为素数的通用过程。

答：Private Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, t As Integer, s As StringFor i = 1 To 4For j = 1 To 4For k = 1 To 4For t = 1 To 4If i <> j And i <> k And i <> t And j <> k And j <> t And k <> t Then s = i & j & k & tList1.AddItem sIf prime(Int(s)) Then List2.AddItem sEnd IfNext tNext kNext jNext iEnd SubPrivate Function prime(ByVal x As Integer) As BooleanDim i As Integerprime = TrueFor i = 2 To Sqr(x)If x Mod i = 0 Then prime = False: Exit FunctionNext iEnd FunctionPrivate Sub Command2_Click()List1.ClearList2.ClearEnd SubPrivate Sub Command3_Click()EndEnd Sub[题目5]下面程序的功能是：从由2，4，5，7四个数字组成的没有重复数字的24个四位数中，找出一个具有倍数关系的四位数对。

本题程序界面如图1。

答：源程序：Option ExplicitPrivate Sub Compare(A() As Integer, S As String, Idx As Integer)Dim I As Integer, J As IntegerFor I = 1 To IdxFor J = 1 To IdxIf A(I) Mod A(J) = 0 And J <> I ThenS = A(I) & "是" & A(J) & "的" & A(I) \ A(J) & "倍" & vbCrLfText1 = SExit SubEnd IfNext JNext IEnd SubPrivate Sub Command1_Click()Dim N(100) As Integer, I As Integer, S As String, Idx As IntegerDim J As Integer, Ch As String * 1, K As IntegerFor I = 2457 To 7542S = CStr(I)For J = 1 To 4Ch = Mid(S, J, 1)If Ch <> "2" And Ch <> "4" And Ch <> "5" And Ch <> "7" Then Exit ForK = JDoK = K + 1If Ch = Mid(S, K, 1) Then Exit ForLoop Until K > 4Next JIf J > 4 ThenIdx = Idx + 1N(Idx) = IList1.AddItem IEnd IfNext ICall Compare(N, S, Idx)End Sub[题目6]编写程序：生成两个等差数列A={3，10，17，24，31，……，108}与B={3，8，13，18，23，……，108}，再找出两个数列中的相同项。

[编程要求]1. 程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2. 单击“运行”按钮，生成这两个数列，分别输出到多行文本框1与多行文本框2中，找出两个数列中的相同项，并输出到文本框3中；3. 单击“清除”按钮，则将文本框清空，并将焦点置于“运行”按钮上；单击“结束”按钮，结束程序运行；4.程序中必须包含一个生成等差数列的通用过程。

答：源程序：Option Base 1Private Sub Command1_Click()Dim d1() As Integer, d2() As Integer, n1 As Integer, n2 As Integer, i As Integer, j As Integer Call scdcsl(d1, 3, 7, 108, n1)Call scdcsl(d2, 3, 5, 108, n2)For i = 1 To n1Text1 = Text1 & d1(i) & " "Next iFor i = 1 To n2Text2 = Text2 & d2(i) & " "Next ii = 1j = 1DoIf d1(i) = d2(j) ThenText3 = Text3 & d1(i) & " "i = i + 1j = j + 1ElseIf d1(i) > d2(j) Thenj = j + 1Elsei = i + 1End IfLoop Until (i > n1)End SubPrivate Sub scdcsl(a() As Integer, x As Integer, d, y , n) Don = n + 1ReDim Preserve a(n)a(n) = xx = x + dLoop While (x <= y)End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Command1.SetFocusEnd SubPrivate Sub Command3_Click()EndEnd Sub[题目7]下面程序的功能是，找出1~300之间的三个相临整数N ，N+1和N+2，且每个整数均为两个素数的乘积。