2009课终考试试卷A

一、单项选择题（1分/小题，共10分）

1、语句PRINT"SGN(-26)=";SGN(-26)的输出结果为( ).

（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、标题为"VisualBasic考试"的标签,两个名称分别为Command1和Command

2、标题分别为"开始"和"停止"的命令按钮,然后画一个名称为Timer1的计时器控件,并把其Interval属性设置为500. 编写如下程序:

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

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

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()