2008(秋)(上机)VB01-04.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2008秋) 二级Visual Basic语言(试卷代号VB01) (本试卷完成时间70分钟) 改错题(14分) [题目]本程序的功能是：随机生成一个有n个元素的数组（n由inputBox函数输入），找出其中的最大元素并将它删除，再输出删除后的数组。 Option Explicit Option Base 1 Dim a() as integer,n as integer Private Sub Command1_Click() Dim i As Integer n=InputBox(“请输入数组个数”,10) ReDim a(n) For i=1 To n a(i)=Int(Rnd*100)+1 Text1=Text1 Str(a(i)) Next i Call Lookup(a) For i=1 To n Text2=Text2 Str(a(i)) Next i End Sub Private Sub Lookup(a() As Integer) Dim Maxv As Integer,maxp As Integer ,i As Integer Maxv=a(1):maxp=1 For i= 2 To n if a(i)Maxv Then Maxv=a(i): maxp=i End If Next i Call move_f(a,maxp) End Sub Private Sub move_f(a() As Integer,k As Integer) Dim i As Integer For i=k+1 to UBound(a) a(i)=a(i+1) Next i ReDim a(UBound(a)-1) End Sub [要求] 新建工程，输入上述代码，改正程序中的错误； 改错时，不得增加或删除语句，但可适当调整语句位置； 将窗体文件和工程文件分别命名为F1和P1，并保存到T盘的根目录下。 二、编程题（26分） [题目]编写程序，找出介于a和b之间所有构成幻影素数的数。所谓幻影素数是指自身为素数，其反序数也是素数的数。例如107与701都是素数，所以107是幻影素数。 [编程要求] 程序参与界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见； 运行程序，在文本框A和文本框B中输入指定数据范围，再按“运行”按钮，将找出的幻影素数存放在列表框中（若指定区间无幻影素数，则输出“本区间无幻影素数”）。按“清除”按钮，将文本框和列表框清空，焦点置于文本框A上； 程序中应定义一个名为prime的函数过程，用于判断力一个整数是否为素数；再定义一个求一个整数的反序数的通用过程。 [要求] 将窗体文体和工程文件分别命名为F2和P2，并保存到T盘的根目录下。 江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2008秋) 二级Visual Basic语言(试卷代号VB02) (本试卷完成时间70分钟) 改错题（14分） [题目]本程序的功能是查找80~150范围内的特殊十进制数，其特点是该十进制数对应的8进制数为回文数（指从左向右读与从右向左读是一样的数）。例如十进制数105对应八进制数为151，151属于回文数，所以105就是符合要求的数。 Option Explicit Private Sub Command1_Click() Dim i As Integer,hw As String,fg As Boolean Dim st As string For i=80 To 150 Fg=False Call hw8(i,hw,fg) If fg Then St=CStr(i) “==” hw “o” List1.Additem st End if Next i End Sub Private Sub hw8(n As Integer,hw As String,f As Boolean) Dim k As Integer, st() As String*1,i As Integer hw=”” Do