【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-VB程序设计试卷B答案!2 - 讲义教程的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

1 华 北 水 利 水 电 学 院 试 题 答 案 B 20072008学年 第 1学期 2005 级 地理信息系统 专业_VB程序设计_课程 一、选择题 1 A 2 D 3 B 4 A 5 B 6 C 7 C 8 B 9 B 10 A 11 D 12 A 13 C 14 A 15 B 16 C 17 C 18 A 19 D 20 B 21 D 22 B 23 C 24 C 25 C 26 C 27 C 28 D 29 D 30 A 二、填空题 1、.bas 2、inteval 、 500 3、index 、 font或fontname 、 4、15 5、aij 、 aji 、 s 6、change 7、1 、3 3 3 8、1 7 17 、 52 9、9 6 15 、18 30 30 、 9 6 15 10、Int 99 - 10 1 Rnd 10 、 a i m 、 4 i - 1、 imax j。

     三、程序阅读 1. 78 5786 357864 13578642 2. 129 3. 1 36 25 16 9 4 1 2 1 4 9 9 4 1 4. y1 y2 y6 y24 y120 2 5. 2 2 2 四、程序改错不需写出全部程序只要说明错误发生在第几行及正确语句即可 第几行 正确语句 12分 32分 122分 204分 Private Sub Reserve b as integer m as integer For i1 To m/2 nInputBox“请输入数据个数” Call Reserve an 五、编程题 1、 Dim a As Double x0 As Double x1 As Double a ValInputBox“输入a” x0 a 初值 x1 2 / 3 x0 a / 3 x0 x0 第一次迭代后的值 Do While Absx1 - x0 0.000001 控制精度 x0 x1 迭代 x1 2 / 3 x0 a / 3 x0 x0 Loop Print “立方根: ” x1 2、 Dim a As Integer Private Sub sorts As Integer Dim i As Integer j As Integer t As Integer Dim imax As Integer For i 1 To UBounds - 1 imax i For j i 1 To UBounds If sj simax Then imax j Next j t si: si simax: simax t Next i End Sub Private Sub cmdComp_Click Dim i As Integer sum As Integer Dim min As Integer mini As Integer sum a1: min a1: mini 1 For i 2 To UBounda If min ai Then min ai: mini i sum sum ai Next i Text1 Formatsum / UBounda .0 3 Text2 min Text3 a mini End Sub Private Sub cmdCreate_Click Dim i As Integer x As Integer n As Integer Dim yes As Boolean j As Integer n txtn.Text ReDim a1 To n Randomize For i 1 To n Do x Int100 - 1 1 Rnd 1 yes False For j 1 To i - 1 If x aj Then yes True: Exit For Next j Loop While yes True ai x Next i For i 1 To n Picture1.Print ai num num 1 If num Mod 10 0 Then Picture1.Print Next i End Sub Private Sub cmdSort_Click sort a For i 1 To UBounda Picture2.Print ai num num 1 If num Mod 10 0 Then Picture2.Print Next i End Sub