第 1 页 共 2 页命题人： 朱翠娥、全萍、吴明芬、刘兴林等 试卷分类（A 卷或 B 卷） B 五邑大学五邑大学 试试 卷卷学期： 2009 至 2010 学年度 第 2 学期课程： 计算机语言与程序设计 专业： 班级： 姓名： 学号： 题号一二三四五六七八九十总分得分一、 选择题（每题 2 分，15 小题，共 30 分）1、 B2、 A3、 D4、D5、B6、 D7、A8、 D9、C10、A11、C12、C13、C14、C15、D二、 填空题（每空 2 分，10 空，共 20 分） 1、 冒号2、93、 cdef4、窗体5、 传值6、随机文件7、 字符型8、循环结构9、 方法10、语法错误三、 程序填空（每空 2 分，每小题 2 空，5 小题，共 20 分）1(1)UBound(a)(2) sum = sum + a(i)2(3)1 To 9(4) 2 * i 13(5)List1.AddItem Text1 (6) List1.RemoveItem List1.ListIndex4(7)a(j)a(j+1)(8) Next j5(9)a(10) n=n-1试卷编号得分得分得分第 2 页 共 2 页四、 程序阅读（每小题 5 分，4 小题，共 20 分）1. (1) 8(2) 窗体的单击事件过程(3) 定义整型变量 a,b2. (1) 定义 stri 为不定长的字符串变量(2) 当 Text1 中输入的不是数字时将焦点移至 Text1 并清空3. (1) 当 Text1 中输入的不是数字时将焦点移至 Text1 并清空(2) 调用定义的 f 函数求数组 b 的各元素和，s 的值为 354. (1) 随机产生 0 至 100 的整数存放于数组 a 中(2) 当 i 值为 5 的倍数时换行，输出 a 的各元素值五、 程序设计（每小题 5 分，2 小题，共 10 分）参考程序如下：Option Base 1 Dim a(4, 4) As Integer Private Sub Form_Load ()For i = 1 To 4For j = 1 To 4a(i, j) = Int(Rnd * 41 + 10)Picture1.Print Tab(j - 1) * 5); a(i, j);Next jNext i End SubPrivate Sub Picture2_Click()Dim b(4, 4) As IntegerPicture4.ClsFor i = 1 To 4For j = 1 To 4b(i, j) = a(j, i)Picture2.Print Tab(j - 1) * 5);b(i, j);Next jNext i End Sub得分得分