2005春江苏省计算机等级考试二级VB语言06 |
江苏省高等学校非计算机专业学生 计算机基础知识和应用能力等级考试上机试卷(2005春) 二级Visual Basic语言 (试卷代号 VB06) (本试卷完成时间 70分钟) 【考试须知】 1. 改错题的界面不作要求,主要用来调试程序,若题目中有参考界面,则仅作参考; 2. 考试结束后,文件必须存放在指定位置,否则适当扣分;考试盘中若无指定文件,则不予评分; 3. 程序代码书写应呈锯齿形。 一、改错题(14分) 【题目】下面程序功能是:求出10~99之间所有因子(包括1与该数本身)个数为6的数。 Option Explicit Private Sub Command1_Click() Dim i As Integer,cn() As Integer,s As String,j As Integer For i=10 To 99 //此处插入图片。 Call cd(i,cn) If UBound(cn)=6 Then s=CStr(i)&"=>" For j=1 To 6 s=s&Str(cn(i)) Next j s=s&Chr(13)&Chr(10) End If Next i Text1=s End Sub
Private Sub cn(n As Integer,cn() As Integer) Dim i As Integer,k As Integer For i=1 To n k=k+1 If n Mod i=0 Then ReDim Preserve cn(k) cn(k)=i End If Next i End Sub 【要求】 1. 新建工程,输入上述代码,改正程序中的错误; 2. 改错时,不得增加或删除语句,但可适当调整语句位置; 3. 将窗体文件和工程文件分别命名为F1和P1,并保存到软盘A的根目录下。 二、编程题(26分) 【题目】找出1~100之间所有连续4个或4个以上整数组成的序列,要求序列中每个整数均必须具有两个不同素因子。例如,33(素 因子3,11),34(素因子2,17),35(素因子5,7),36(素因子2,3),故33,34,35,36就符合要求。 【编程要求】 1. 按“开始”按钮,则开始运行程序,将结果按图示格式显示在文本框中;按“清除”按钮,则将文本框清空;按“结束”按钮, 结束程序运行; 2. 程序中至少要有一个通用过程,判断一个数是否有两个不同的素因子。 【要求】 1. 程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2. 将窗体文件和工程文件分别命名为F2和P2,并保存到软盘A的目录下。
|