vb (春)上机部分【DOC精选】.docVIP

江苏省高等学校非计算机专业学生计算机基础知识和应用能力等级考试上机试卷（2004年春）二级 Visual Basic语言 （试卷代号VB01）（本试卷完成时间 70分钟） 【考试须知】1、 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；2、 程序代码书写应呈现锯齿形。 一、 改错题（17分）【题目】找出10至100之间的互质数（即这些数中任意两个数的最大公约数为1）。Option ExplicitOption Base 1Private Sub Command1_Click()　　Dim A() As Integer, I As Integer, J As Integer, Logic As Boolean　　Dim K As Integer　　ReDim A(1)　　A(1) = 10　　For I = 11 To 100　　　　K = 1　　　　Logic = False　　　　Call Sub1(A, I, Logic)　　　　If Logic Then　　　　　　K = K + 1　　　　　　ReDim Preserve A(K)　　　　　　A(K) = I　　　　End If　　Next I　　For I = 1 To UBound(A)　　　　　Text1 = Text1 Str(A(I))　　　　　If I Mod 5 = 0 Then Text1 = Text1 vbCrLf　　Next IEnd SubPrivate Sub Sub1(A() As Integer, N As Integer, F As Boolean)　　Dim I As Integer, J As Integer, Ub As Integer　　Ub = UBound(A)　　For I = 1 To Ub　　　　　For J = 2 To A(I)　　　　　　　If A(I) Mod J = 0 And N Mod J = 0 Then　　　　　　　　　Exit For　　　　　　　End If　　　　　Next J　　　　　F = True　　Next IEnd Sub 　　　　　　　　　 　　　　　　　　　　　　　　改错题参考界面 【要求】1、 新建工程，输入上述代码，改正程序中的错误；2、 改错题的界面应给出的参考界面相似，主要用来调试程序；3、 改错时，不得增加或删除语句，但可适当调整语句位置；4、 将窗体文件和工程文件分别命名为F1和P1，并保存到软盘A的根目录下。 二、 编程题（23分） 【题目】编写求n项和的程序。求和公式如下：n可取值1、2、3、4、，……【编程要求】1、 在文本框Text1中输入x值，文本框Text2中输入n值，按“计算”按钮，则计算并在列表框List1中显示S1、S2、Sn；按“清除”按钮，则将两个文本框及列表框清空，焦点置于Text1上；按：“退出”按钮，结束程序运行；2、 程序中应定义一个名为fact的函数过程，用于计算阶乘值。 【要求】1、 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2、 将窗体文件和工程文件分别命名为F2和P2，并保存到软盘A的根目录下。　　　　　　　 　　　　　　　　　　　　　　编程题参考界面 二级 Visual Basic语言 （试卷代号VB02）（本试卷完成时间 70分钟） 【考试须知】1、 考试结束后，文件必须存放在指定位置，否则适当扣分；考试盘中若无指定文件，则不予评分；2、 程序代码书写应呈现锯齿形。 一、 改错题（17分）【题目】本程序功能是：随机生成15个3位正整数，找出其中的升序数并移动放置到数列的左端；非升序数放置在数列右边。升序数是指其各位数字从高位到低位，一个比一个大的整数，如134、257、389等均为升序数。Option ExplicitPrivate Sub Command1_Click()　　Dim a(15) As Integer, I As Integer　　Dim st As String, t As Integer, J As Integer　　Randomize　　For i = 1 To 15　　　　a(i) = Int(Rnd * 900) + 100　　　　st = st Str(i)　　Next i　　Text1 = st　　For i = 1 To 15　　　　If flag(a(i)) Then　　　　　　t = a(i)　　　　　　For J = i - 1 To Step - 1