江苏省等级考试二级 VB 上机试卷 2025 年（秋）及参考答案 【题目 1】本程序的功能是：找出 2~10000 之间可以表示成 2²-1 形式的素数.本题程序界面见图 1. 答： 源程序： Option Explicit Private Sub Command1_Click() Dim Exp As Integer, Idx As Integer For Idx = 2 To 10000 If Mersenne(Idx, Exp) Then If Prime(Idx) Then List1.AddItem Idx & " =" & 2 & "^" & Exp & "-1" End If End If Exp = 0 Next Idx End Sub Private Function Mersenne(N As Integer, Exp As Integer) As Boolean Dim M As Integer, Ex As Long M = N Ex = 1 Do While M > Ex Exp = Exp + 1 Ex = Ex * 2 Loop If M = Ex - 1 Then Mersenne = True End If End Function Private Function Prime(N As Integer) As Boolean Dim K As Integer For K = 2 To Sqr(N) If N Mod K = 0 Then Exit Function Next K Prime = True End 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 Then Text1.Text = Text1.Text & "( " & s1 & " + " & s2 & " + " & s3 & " ) mod " & 77 & "=0" & vbCrLf End If Next i End Sub Private Sub part(ByVal s As String, i As Int...
