vb上机07.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷 二级Visual Basic语言（试卷代号VB07） 一、改错题（14分） [题目]下面程序的功能是：在140000至160000之间找出满足以下条件的六位数，该数分别乘以3与4得到的两个六位数，也由同样六个数字组成，只是排列次序不同，本题程序界面如图1。 Option Explicit Private Sub Command_Click() Dim M(0 To 9) As Integer, N(0 To 9) As Integer, F As Long, P As Long Dim I As Integer List1.AddItem” F ” ” F*3 ” ” F*4 ” For F=140000 To 160000 Erase M Call Analyze(F,M) Erase N For I=3 To 4 P=F*I If Len(CSte(P))=6 Then Call Analyze(P,N) If Not Compare(M,N) Then Exit For Eles Exit For End If Next I If I4 Then List.AddItem F Str(F*3)Str(F*4) Next F End Sub Private Sub Analyze(N As Long, An() As Interger) Dim S As String, I As Intege, Idx As Integer S=Str(N) For I=I To Len(S) Idx=Mid(S,I,I) An(Idx)=An(Idx)+1 Next I End Sub Private Function Compara(a() As Integer, B() As Interger) As Boolean Dim I As Integer Compare=True For I=0 To 9 If a(I) B(I) Then Exit Function Next I End Function [要求] 1.新建工程，输入上述代码，改正程序中的错误； 2.改错时，不得增加或删除语句，但可适当调整语句位置； 3.将窗体文件和工程文件分别命名为F1和P1，并保存到考生目录下。 二、编程题（26分） [题目]编写程序找出满足5M+7M=128的两个素数M和N。 [编程要求] 1.程序参考界面如图2所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 2.单击“开始”按钮，求出满足条件的M和N值，并按图示格式输出到文本框中； 3.单击“清除”按钮，则将文本框清空，焦点置于“开始”按钮上；单击“结束”按钮，结束程序运行； 4.程序中必须包含一个判断某数是否为素数的通用过程。 [要求] 将窗体文件和工程文件分别命名为F2和P2，并保存到考生目录下 ? 图1? ????????? 图 2