VB程序设计试卷A答案.docVIP

华 北 水 利 水 电 学 院 试 题 答 案 A 2008～2009学年 第 1学期 2006 级 地理信息系统 专业_VB程序设计_课程 一、选择题 1.B 2.A 3.D 4.A 5.A 6.A 7.B 8.C 9.C 10.A 二、判断题 1．× 2.× 3. √ 4. × 5. √ 6．√ 7. × 8. × 9. × 10.√ 三、填空题 1、selstart 2、Activate、 Deactivate 3、inteval 、 500 4、－3、 2 、－2 、 2 5、list、selected、 0、 ListCount-1 6、len(str1)、 length-1、 Mid(str1,I,2)、 sum=0 7、Int(Rnd*100) 、 p=10 、 p=j 、p=0 8、number(I,7) 、 n as integer, m as integer、 number=number*10+m 9、For Input、 For Output、 Not EOF(1)、 Line Input #1, str1、 Close #1, #2、 Kill c:\old.dat 四、程序阅读 1、78 5786 3578642、129 3、1 9 8 7 6 5 4 3 2 1 0 4、(1) 36 25 16 9 4 1 (2) 1 4 9 9 4 1 5、S=5 s=10 s=40 6、1 3 5 五、程序改错 1、错误行：Do Until s 2000 改正为：s2000 错误行：i = i + 1 改正为：i=i+2 2、错误行：If x Mod i = 0 Then Exit For 改正为：Exit Do 错误行：If i k Then 改正为：If Ik Then 3、错误行：For N = 300 To 100 改正为：step -1 错误行：If s Mod N = 0 Then 改正为：N Mod s=0 六、编程题 1、 Private Sub Form_Click() Dim n%,x! n = Val(InputBox(n=)) x = Val(InputBox(x=)) Print fe(n, x) 调用求值函数过程 End Sub 求值函数过程 Public Function fe(n%, x!) As Single Dim i As Integer, t As Single fe = 1: t = 1 For i = 1 To n t = t * x / i t为通项 fe = fe + t Next i End Function 2、 Option Base 1 Option Explicit Dim a(11) As Integer 定义数组 Private Sub cmdcreat_Click() 产生的一维数组 Dim i As Integer Picture1.Cls Picture1.Print 产生的一维数组为： Randomize For i = 1 To 10 a(i) = Int(Rnd * 20 + 10) Picture1.Print a(i); Next i Picture1.Print End Sub Private Sub cmdmax_Click() 求最大元数及所在的位置 Dim max As Integer, p As Integer, i As Integer max = a(1) 假设第一元素就是最大元素 p = 1 For i = 2 To 10 If a(i) max Then max = a(i) p = i End If Next i Picture1.Print Picture1.Print 第 p; 个元素 a(p) 为最大元素 End Sub Private Sub cmdave_Click() 计算平均值 Dim ave As Single, i