03-04学年第1学期vb考试题及标准答案

20032004 学年第一学期计算机应用基础试题 命题教师： 审题教师： 注意事项：所有答案均写在答题纸上，并请写清题号。 一、选择题（共 10 分，每题 1 分） 1. 对于以下的四个对象，不能使用 PRINT 方法的是:（ ） A. 打印机 B. 窗体 C. 文本框 D. 图片框 2. 在下属性中，可以在代码中设置的是：（ ） A. Name B. Height C. MultiLine D. ScrollBars 3. 以下各选项中，前一个属性的设置不会影响后一个属性设置的是:( ) A.文本框的 MultiLine 与 ScrollBars B.命令按钮的 Style 与 Picture C.标签的 Caption 与 Name D.窗体的 MousePointer 与 MouseIcon 4. 通过文本框得到的数据类型为:（ ） A. 数值 B. 字符串 C. 变体 D. 数值或字符串 5. 一个文本框从得到焦点、输入一个字符“A”再失去焦点，以下事件的发生顺序为：（ ） A. GotFocus、KeyPress、Change、LostFocus B. GotFocus、Change、KeyPress、LostFocus C. LostFocus、Change、KeyPress、GotFocus D. LostFocus、KeyPress、Change、GotFocus 6. 关于 PictureBox 和 Image 对象的说法，不正确的是：（ ） A. 二者都可以用来显示多种图片； B. 二者都可以用来作容器使用； C. 二者在代码中装入图片使用的函数均为 LoadPicture； D. 二者都可以通过属性设置自动调整大小与显示的图片匹配 7. 文本框没有的属性是：（ ） A. Enabled B. Visible C. BackColor D. Caption 8. 给变量赋值时，若变量类型与表达式类型不一致时，以下说法错误的是：（ ） A. 若均为数值型，则变量自动改变类型，以适应表达式值的类型 B. 当变量为数值型，而表达式为数字字符串，则自动转换成数值型再赋值，当表达式中 有非数字字符或是空字符串时，出现“类型不匹配” 。 C. 当变量为数值型，而表达式为逻辑型时，True 转换成-1，False 转换成 0 再赋值，反 之，数值型数据赋给逻辑型变量时，非 0 转换为 True，0 转换成 False。 D. 任何非字符类型赋值给字符型变量，均自动转换为字符型。 9. 关于 Array 函数与 Split 函数的说法，正确的是：（ ） A二者都只能给变体动态数组赋值 B二者只能接收字符型数据 C二者给数组赋值后，数组的最小下标受 Option Base 语句的影响 D通过前者赋值时，数据必须写在代码中，而后者的数据可以在程序运行过程中通过键 盘或其它方式获得 10.顺序文件是因为文件中的记录是按：（ ） A记录号顺序存放 B某关键数据项排序存放 C记录的长度顺序存放 D按记录进入的先后顺序存放 二、指出下列各段程序的错误并改正，除第 6 小题外，不得增删程序行（共 30 分） 1本段程序 2 行有错误（4 分） 。 计算 y=x2，x 的值从键盘输入，如果|x|7,则输出 y 值 Dim x!, y! x = InputBox(“请输入 X 的值“) if x-7 and = 26 x = x * (1 + 0.015) n = n + 1 Loop MsgBox “当“ a(i, j) Next j Print Next i 6以下程序段要完成从键盘上输入若干个数，输出其中的最 大值和最小值，请说明程序的错误并重写程序。 （6 分） Dim x!, max!, min!, i% max = 0: min = 0 For i = 1 To 10 x = InputBox(“请输入第“ For i = 1 To 10 a(i) = Rnd * 90 + 10 Print a(i); Next i Print 确定 a 数组中各元素在 c 数组中的位置，放入 b 数组中 For i = 1 To 9 For j = i + 1 To 10 If Then Else End If Next j Next i 将 a 数组各元素按 b 数组中的位置放入 c 数组 For i = 1 To 10 Next i Print “排序后的数列为：“; For i = 1 To 10 Print c(i); Next i End Sub 西北农林科技大学本科课程考试 参考答案与评分标准 考试课程：计算机应用基础 学年学期：20032004 学年第 1 学期 试卷类型：A 卷 考试时间：2004 年元月 5 日 专业年级：统考试题 一、选择题（每小题 1 分，共 10 分） CBCBA BDADD 二、程序改错，除第 6 题外，不得增删行（共 30 分） 1.本段程序 2 行有错误（4） if x-7 and 7 then print y=x2 改为 print “y=”;x2 2.本段程序 3 行有错误（6） Dim x , y , t 改为 dim x% , y% , t% Text1.Text=x 改为 x=text1.text Text2.Text=y 改为 y=text2.text 3.本段程序 4 行有错误（6） for i=10 to 30 改为 for i=10 to 30 step 10 next i 改为 next j s=f 改为 s=s+f next j 改为 next i 4.改错并说明原因（4） 因为变量 x 被定义成整型，所以表达式 x=x*(1+0.015)不能使 x 的值改变，从而 造成死循环。将 x 改为单精度即可。 5.改正并说明原因（4） (1)输出语句后少了分号，造成每输出一个数据后换行。加上即可 (2)可以省略，因为前一个输出语句有 Tab 函数控制位置。 6.说明程序错误并重写程序（6） 最大值最小值赋初值为 0 是错误的，应该用需要比较的若干个数中的一个数作 初值。 三、写出程序运行结果（每小题 5 分，共 30 分） 14 220 38 4123 52 3 5 7 11 6对输入字符作限制，只能输入数字 0-9 及退格键 四、程序设计（共 30 分） 共 7 页 第 7 页 1.（6 分） (1)定义数组（1 分） (2)用循环为数组赋值（2 分） (3)用循环交换（2 分） (4)输出交换后的值（1 分） 2.（10 分） (1)定义变量（1 分） (2)正确打开文件（2 分） (3)正确读出文件内容（2 分） (4)正确的选择结构（2 分） (5)写入文件（2 分） (6)关闭文件（1 分） 3.（14 分，每空 2 分） 为 b 数组赋初值 For i = 1 To 10