09级期末考试（A）
一、单项选择题（1分/小题，共10分）
1、语句PRINT\的输出结果为( ).
（A）SGN(-26)=26 （B）SGN(-26)=-26（C）SGN(-26)=+1（D）SGN(-26)=-1 2、VB应用程序保存在磁盘上,至少会有以( )为扩展名两个文件.
（A）.DOC和.TXT （B）.COM和.EXE （C）.VBW和.BAS （D）.VBP和.FRM 3、组合框有三种风格,它们由Style属性所决定,其中为下拉列表框时,Style属性值应为( ).
（A）0 （B）1 （C）2 （D）3
4、Int(198.555*100+0.5)/100的值( ). （A）198 （B）199.6 （C）198.56 （D）200
5、若要访问组合框Comb1中被用户选中的表项，应使用（ ）
（A）Comb1.Text （B）Comb1.List （C）Comb1.ListIndex （D）Comb1.ListCount 6、下列各项变量中,哪一项所占的内存空间最多( ).
（A）dim x as currency x=99 （B）dim st1 as string st1='good' （C）dim st2 as string st2='goodbye' （D）dim d as data d='1898/09/12' 7、清除列表框的所有选项应选择下列哪种方法( ). （A）Clear （B）Cls （C）ClearItem （D）RemoveItem
8、如果在窗体上已经创建了一个文本框对象Text1,可以通过( )事件获得输入键值的ASCII码.
（A）Change （B）LostFocus （C）KeyPress （D）GotFocus 9、以下不属于VisualBasic系统的文件类型是( ). （A）.frm （B）.bat （C）.vbg （D）.vbp 10、控件是( ).
（A）建立对象的工具 （B）设置对象属性的工具 （C）编写程序的编辑器 （D）建立图形界面的编辑窗口 二、程序阅读（3分/题，共45分）
1、在窗体上画一个名称为Label1、标题为\考试\的标签,两个名称分别为Command1和Command2、标题分别为\开始\和\停止\的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500. 编写如下程序:
Private Sub Form_Load() Timer1.Enabled = False End Sub
1
Private Sub Command1_Click() Timer1.Enabled = True End Sub
Private Sub Command2_Click() Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() If Label1.Left < Width Then Label1.Left = Label1.Left + 120 Else
Label1.Left = 0 End If End Sub
（1）程序运行后,单击\开始\按钮,标签在窗体中移动. 对于这个程序,以下叙述中错误的是（ ）
（A）标签的移动方向为自左向右
（B）单击\停止\按钮后再单击\开始\按钮,标签从停止的位置继续移动 （C）当标签全部移出窗体后,将从窗体的另一端出现并重新移动 （D）标签每隔1秒移动一次 （2）程序使用了几个控件（ ）
（A）1 （B）2 （C）3 （D）4
（3）Timer控件的Interval属性的单位是（ ）
28 （A）秒 （B）毫秒 （C）微秒 （D）纳秒 2、程序如下
Function f(m As Integer) As Integer b = 1
Static c As Integer b = b + 1 c = c + 1 f = m * b * c End Function
Private Sub Command1_Click() Dim a As Integer a = 2
2
Sum = 0 For i = 1 To 3 Sum = Sum + f(a) Next i Print Sum End Sub
(4) 程序运行后，窗体上显示的值为（ ）。
(A) 24 (B) 12 (C) 28 (D) 32
(5) 如果将Static c As Integer改为dim c As Integer，则sum的值为（ (A) 24 (B) 12 (C) 28 (D) 32 (6) 如果将语句b=1去掉，则sum的值又为（ ）。
(A) 24 (B) 12 (C) 28 (D) 32 3、程序如下
Dim x As Integer, y As Integer, z As Integer Sub s1(a As Integer, b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub
Sub s2(a As Integer, ByVal b As Integer) Dim c As Integer a = 2 * a b = b + 2 c = a + b End Sub
Private Sub Command1_Click() x = 4 y = 4 z = 6
Call s1(x, y) Print x + y + z; Call s2(x, y) Print x + y + z
3
）。
End Sub
（7）程序运行后，窗体上显示的结果为（ ）。
(A) 24 28 (B) 20 28 (C) 20 18 (D) 20 20 （8） 将ByVal b As Integer改为b As Integer 后窗体上显示的结果为（ ）。 (A) 24 28 (B) 20 28 (C) 20 18 (D) 20 30 (9) 修改后变量x和y 的最后取值为（ ）.
(A) 24 28 (B) 20 20 (C) 16 8 (D) 20 30 4、程序如下
Private Sub Form_Click()
Dim num As Integer, dat1 As Integer, dat2 As Integer Dim swit As Boolean num = 0
Open \For dat1 = 2 To 10 swit = True
For dat2 = 2 To Sqr(dat1) If (dat1 Mod dat2) = 0 Then swit = False Exit For End If Next dat2 If swit Then num = num + 1
Write #1, \第\个数\ End If Next dat1 Close #1 End Sub
（10）程序中write语句的作用是（ ）.
(A) 读数据 （B）写数据 （C） 修改数据 （D）追加数据 （11）执行程序后，prime.dat文件的内容是（ ）。
(A)第1个数7 （B）第１个数２ 第2个数5 第2个数3
4
第3个数9 第3个数5 （C）第1个数2 （D）以上都不对
第2个数3 第3个数5 第4个数7
(12) 该程序的功能是（ ）。
(A) 统计2到10之间的数据个数。 （B）统计2到10之间的素数个数。 （C）找出2到10之间所有的素数。 （D）找出2到10之间的第一个素数。 5、程序如下
Sub s1(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub L1:
Private Sub Command1_Click() Dim a() As Integer Redim a(1 to 4) For i = 1 To 4 a(i) = i + 5 Next i s1 a()
For i = 1 To 4 Print a(i); Next i End Sub
(13)程序运行的结果是（ ）。
(A) 6 7 8 9 (B) 12 14 16 18 (C) 2 4 6 8 (D) 1 2 3 4 (14) 程序中所定义的 a()是（ ）。
(A) 用户自定义类型 (B) 静态数组
（C） 动态数组 （D） 用户自定义类型数组
5