sy11

实验十一、模拟测试

【实验目的】 1、总结。

2、熟悉考试系统。 3、模拟测试。

【实验内容】

201102《VB程序设计语言》期末考试题（参考样题）

一．判断题（10*2分=20分）

1. Visual Basic程序开发的特点是面向对象的事件驱动。（T） 2. Print_Text是一个不合法的变量名。（F）

3. 窗体的AutoRedraw属性实现了屏幕图像的重建。（T） 4. 设置字体大小应使用Font属性。（F） 5. Sub过程可以实现嵌套调用（T） 6. IIF函数中的三个参数都不能省略。（T）

7. 块结构条件语句以End If结束，而单行结构条件语句没有End IF。（T） 8. 当终值小于初值时，步长为负数。（T）

9. 执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（T）

10. 关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用。（T）

二．单项选择题（10*2分=20分） 1．Print Format（123，“####”）执行之后的结果为（B）。

A、＃123 B、123 C、123＃ D、＃＃＃＃ 2．下面可以表示注释语句开头的为（C）。

A、Re B、R C、Rem D、dim 3．下列选项中窗体载入事件为（A）。

A、Load事件 B、Click事件 C、DblClick事件 D、Unload事件 4．Timer控件可以使用下列哪种事件（B）。

A、Click事件 B、Timer事件 C、Dblclick事件 D、Change事件 5．要添加一个标准模块，可使用“（C）”菜单中的“添加模块”命令。 A、文件 B、视图 C、工程 D、工具

6．语句Dim arr(-3 To 5, 2 To 6) As Integer定义的数组元素有（A）个。 A、45 B、40 C、11 D、54 7．Visual Basic的特点不包括下面的（A）。

A、不需编程 B、面向对象的程序设计 C、可视化程序设计 D、时间驱动的程序设计

8．在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）。 A、Output和Input B、Output和Append C、Output D、Append 9．Visual Basic 的数组下标默认为（B）。

A、1 B、0 C、2 D、用户指定 10．在语句“Print a；”中“；”实现的功能为（A）。 A、紧凑输出格式 B、格式输出格式 C、标准输出格式 D、以上说法不正确 三．程序阅读题（2*4*2.5分=20分） 1．阅读下列程序1： Option Base 1

Private Sub Form_Click()

Dim a As Variant, b As Variant Dim c(7) As Integer

a = Array(2, 8, 7, 6, 4, 26, 24)

b = Array(79, 27, 32, 40, 57, 66, 82) Print \"两组相加结果数值：\"; L1：For i = 1 To 7 c(i) = a(i) + b(i) Print c(i); Next i End Sub

1）以下关于语句“Option Base 1”的说法中正确的是（B） A、其功能是指定数组下标上界的缺省值为1 B、其功能是指定数组下标下界的缺省值为1 C、其功能是定义动态数组 D、其功能是定义静态数组

2）对于以上程序中的array函数，下列说法正确的是（D）

A、可以用来对动态数组赋值 B、可以用来对多维数组赋值

C、只能用来对静态的多维数组赋值 D、只能用来对静态的一维数组赋值 3）该程序的功能是（B）

A、打印数组a和数组b B、打印数组a与数组b的和

C、将数组a与数组b进行比较，打印出值大的元素 D、将数组a,b进行排序 4）L1行处的程序可以改为：（B）

A、for i=1 to lbound(c) B、for i=1 to ubound(c)

C、for i=lbound(c) to 1 step –1 D、for i=7 to ubound(c) step -1

2、阅读下列程序2：

Private sub form1_click() Dim a(3, 3) As Integer For m = 1 To 3 For n = 1 To 3

a(m, n) = (m - 1) * 3 + n Next n

Next m

For m = 2 To 3 For n = 1 To 2 Print a(m, n); Next n L1: print Next m End sub

1）在默认情况下，数组a(3,3)是（D）

A、一维数组，元素个数3+3个 B、二维数组，元素个数3×3个 C、一维数组，元素个数4+4个 D、二维数组，元素个数4×4个 2）第一个双重循环的循环次数为（C）

A、3 B、6 C、9 D、16 3）程序运行后 a(0,0)的值为（ C ）

A、10 B、5 C、0 D、不存在这样的数组元素 4）程序中L1行处Print语句的作用为（C）

A、退出内循环 B、打印循环变量

C、被打印对象每打印一行将换行 D、被打印对象每打印一行将空格

四．程序设计题（40分）

1、当单击“数据录入”按钮时能够用INPUTBOX函数输入6个数，并显示在第一个文本框内；当单击“排序”按钮时能够按照比较交换排序法对输入的数据进行从小到大排序，并将排序后的数显示在第二个文本框内。程序界面如图所示。

评分标准：

1、能够正确存盘 5分

2、能够正确设计界面 5分

3、能够正确使用循环和INPUTBOX函数对数组赋值 5分 4、能够正确显示在第一个文本框中显示数据 5分 5、能够正确排序 10分

6、能够正确将排序后的字符显示在第二文本框中 5分

7、程序结构清晰合理 5分

参考代码：

Private Sub Command1_Click() Dim x As Integer Text1.Text = \"\" For i = 1 To 6

a(i) = Val(InputBox(\"输入错误！\")) Text1.Text = Text1.Text & \" \" & a(i) Next i End Sub

Private Sub Command2_Click() Text2.Text = \"\" For i = 1 To 5

For j = i + 1 To 6 If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i

For i = 1 To 6

Text2.Text = Text2.Text & \" \" & a(i) Next i End Sub