南京农大VB上机考试题目2

1、本试卷适应范围植保61-62 南 京 农 业 大 学 试 题 纸2007-2008学年 1 学期 课程类型：必修、选修 试卷类型：A、B课程 VB实验 班级 水产九一 学号 35109104 姓名 王登峰 成绩 题号一二三四五六七八九总分签名装订线装订线得分得分评阅人 【考试须知】1 考生首先在D盘上建一个以自己学号命名的文件夹；2 考试结束后，窗体文件必须存放在以自己学号命名的文件夹下，指定文件夹中若无指定文件，则不予评分；3 程序代码书写应呈现锯齿形。一、改错题（50分）【题目】求出1099之间所有因子（包括1与该数本身）个数为6的数。 Option ExplicitOption Base

2、 1Private Sub cmdFind_Click() Dim i As Integer, j As Integer Dim s As String Dim 1yz() As Integer Text1= "" For i = 10 To 99 Call Factor(yz , i ) If UBound(yz) = 6 Then s = Str(i) + "=>" For j = 1 To 6改错题参考界面 s = s + yz(j) & " " Next j【要求】1 新建工程，输入上述代码，改正程序中的错误；2

3、 改错题的界面应与给出的参考界面相似，主要用来调试程序；3 标签标题“我的学号是”请填写你自己的学号；4 改错时，不得增加或删除语句；5 将窗体文件和工程文件分别命名为“学号F1”（如1716101F1和“学号P1”（如1716101P1），并保存到D盘以你的学号命名的文件夹下。 Text1 = s + vbCrLf End If Next iEnd SubPublic Sub Factor (n As Integer, p () As Integer) Dim i As Integer, k As Integer k = 1 For i = 1 To n If n Mod i = 0 The

4、n ReDim p(k) p(k) = i k = k + 1 End If Next iEnd Sub二、编程题（50分）【题目】随机生成20个10至100之间的数，把它们显示在一个多行的文本框中；然后把是素数的那些数剔除后显示在列表框中。【编程要求】1 当按“产生数据”命令按钮时，产生20个10至100之间的随机数，并按5个一行显示在一个多行的文本框中；再按“剔除素数”命令按钮时，把非素数的数显示在列表框中。【要求】1 程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见。2. 将窗体文件和工程文件分别命名为“学号F2”（如1716101F2

5、和“学号P2”（如1716101P2），并保存到D盘以你的学号所建的文件夹目录下。 Vb第一题需设置属性：cmdF text1.multiline = true text1.scrollbars = 2 label1.caption = “我的学号是”Option ExplicitOption Base 1Private Sub cmdFind_Click() Dim i As Integer, j As Integer Dim s As String Dim yz() As Integer Text1 = "" For i = 10 To 99 Call

6、Factor(i, yz) If UBound(yz) = 6 Then s = s & Str(i) + "=>" For j = 1 To 6 s = s & yz(j) & " " Next j s = s & vbCrLf Text1.Text = s End If Next iEnd SubPublic Sub Factor(n As Integer, p() As Integer) Dim i As Integer, k As Integer k = 1 For i = 1 To n If n Mod i

7、 = 0 Then ReDim Preserve p(k) p(k) = i k = k + 1 End If Next iEnd Sub第二题Text1.multiline = true text1.scrollbars = 2 command2.enabled = false Option ExplicitDim i As Integer, j As IntegerDim a(4, 5) 定义全局变量 a()Private Sub Command1_Click() List1.Clear Text1.Text = "" Dim m As String For i = 1

8、 To 4 For j = 1 To 5 a(i, j) = Int(90 * Rnd(100 - 10) + 10) 产生随机数 m = m & Str(a(i, j) 连接数组的值 Next j m = m & Chr(13) & Chr(10) 换行 Next i Text1.Text = m 将数组输出 Command2.Enabled = True End SubPrivate Sub Command2_Click()Dim n As Integer, b As String For i = 1 To 4 For j = 1 To 5 n = 2 Do 判断a(i,j)是否为素数 If a(i, j) Mod n <> 0 Then n = n + 1 Else List1.AddItem a(i, j) 非素数 则添加语句 n = a(i, j) + 1 End If Loop While n < a(i, j) Next j Next i Command2