vb上机06.docVIP

江苏省高等学校非计算机专业学生 计算机基础知识应用能力等级考试上机试卷 二级Visual Basic语言(试卷代号VB06) 一、改错题（14分） [题目]下面程序的功能是:将给定的字符串中的数字字符筛选出来,依次组成若干个两位整数;并求出它们的最大公约数.本题程序界面见图1. Option Explicit Private Sub Command1_Click() Dim A () As Integer,I As Integer, Ch As String Dim j As Integer,G As Integer , Id As Integer Dim S As String, St As String S = “36a487b2541224301842e72” Text = S For I = 1 To Len(S) If Mid(S, I , 1) Ch = Ch Mid(S , I, 1) End If If Len(Ch) = 2 Then Id = Id + 1 ReDim Preserve A(Id) A(Is) = Ch Text2 = Text2 Str(A(Id)) End IF Ch =” ” Next I G = A(1) For I = 2 To Id G=Gcd(G, A(I)) Next I Text2 = Text2 vbCrLf “ “ vbCrLf “以上数据的最大公约数是: ” G End Sub Private Function Gcd(N As Integer, M As Integer) Dim R As Integer R = N Mod M If R 0 Then Gcd = Gcd(M, R) Else Gcd = R End If End Function [要求] 1.新建工程,输入上述代码,改正程序中的错误; 2.改错时,不得增加或删除语句,但可适当调整语句位置; 3.将窗体文件和工程文件分别命名为F1和P1,并保存到考生目录下. 二、编程题(26分) [题目]编写程序找出倒数之和等于19/20的四个连续的自然数. [编程要求] 1.程序参考界面如图2所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2.单击”运行”按钮,找出倒数之和等于19/20的四个连续的自然数,并按图示格式显示在多行文本框中; 3.单击”清除”按钮,则将文本框清空;单击”退出”按钮,结束程序运行; 4.程序中必须包含一个求四个连续的自然数倒数之和的通用过程. [要求] 将窗体文件和工程文件分别命名为F2和P2,并保存到考生目录下. 图1图2