vb高职考

Visual Basic程序设计试卷（Ｃ）

（考试时间100分钟，满分100分）

注意事项

1．考生应严格遵守考场规定，得到人员指令后方可答题。

2．考生拿到试卷后应首先填写密封线内各项内容（学号、姓名、专业），不得填出密封线外。 3．注意字迹清楚、保持卷面整洁。

4．考试结束将试卷放在桌上，不得带走。待监考人员收毕清点后，方可离场。

题号一二三四五六七八总分阅卷人

分数

一、单项选择题（本大题共20小题，每小题2分，共40分） 1、设有如下语句： Dim a，

b As Integer c="VisualBasic" d=#7／20／2005# 以下关于这段代码的叙述中，错误的是

（） A) a被定义为Integer类型变量 B) b被定义为Integer类型变量

C) c中的数据是字符串 D) d中的数据是日期类型

2、设a=4，b=3，c=2，d=1，下列表达式的值是（） a>b+1 Or c

A)True B)1 C)-1 D)0

3、以下可以作为VisualBasic变量名的是（） A) A#A B) counstA C)3A D)？AA

4、设x=4，y=6，则以下不能在窗体上显示出“A=10”的语句是（）

A) Print A=x+y B) Print "A="；x+y

C) Print "A="+Str(x+y) D) Print "A="&x+y

5、当组合框的Style属性设置为何值时，组合框称为简单组合框（） A．0 B．1 C．2 D．3

6、在参数传递过程中，使用关键字（）来修饰参数，可以按值传

递 A．ByVal B．ByRef C．Value D．Reference

7、在VB中，要将一个窗体装入内存，应使用的语句是（）

A．UnLoad B．Hide C．Show D．Load 8、假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（） A．选择图片框，然后按Del键 B．执行语句Picture1.Picture=LoadPicture(“”) C．执行语句Picture1.Picture=”” D．选择图片框，在属性窗口中选择Picture属性，

9、Private Sub Command1_Click() Dim a As Integer a=2

For i=1 To 3 Print Gad (a) Next i End Sub

Function Gad (a As Integer) b=0 Static c b=b + 1 c=c + 1

Gad=a + b + c End Function

运行上面的程序后，单击命令按钮，输出结果为（）

A．1 2 3 B．2 3 4 C．4 5 6 D．1 4 6 10、下列数组定义语句错误的是

（） A．k%=10 Dim Arr(k) B．Const k%=10 Dim Arr(k)

C．Dim Arr1(10) As Integer Dim Arr2 (10) D．Dim Arr1(1 To 10)

Dim Arr2(1 To 10, 2 To 11)

11 如果要将窗体中的某个命令按钮设置成无效状态，应该动命令按钮的何种属性（）A．Value B．Visible C．Default D．Enabled

12 在窗体上有多个控件，要实现程序运行后焦点默认在某一控件上，应该设置的属性是

（）

A．设置Enabled的值为True B．设置TabIndex的值为1 C．设置TabIndex的值为0 D．设置Index的值为0

13下列几项中，属于合法的日期型常量的是（）

A．"10/10/02" B．10/10/02 C．{10/10/02} D．#10/10/02# 14、下列程序段的执行结果为（）

A=2 B=5

If A * B < 1 Then B=B - 1 Else B=-1

Print B - A > 0

A．True B．False C．-1 D．1

15、标签控件能够显示文本信息，决定其文本内容的属性是（）

A．Alignment B．Caption C．Visible D．BorderStyle

16、在属性窗口中，加载指定的图形放入当前对象中的属性是（）

A．CurrentY B．Picture C．CurrentX D．Caption 17、在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

Private Function fun ( ByVal m As Integer ) If m Mod 2 = 0 Then

fun = 2

Else

fun = 1 End If

End Function

Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0

For i = 1 To 5

s = s + fun(i)

Next ｉ Print s End Sub

程序运行后,单击命令按钮,则窗体上显示的是（） A．6 B．7 C．8 D．9

18、在窗体上画一个名称为Label1的标签,然后编写如下事件过

程: Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j

Next i

Label1.Caption = Str(arr(2, 2) + arr(3, 3)) End Sub

程序运行后,单击窗体,在标签中显示的内容是（） A．12 B．13 C．14 D．15 19、下列程序段的执行结果为（）

I=1 x=5 Do

I=I + 1 x=x + 2

Loop Until I >=7 Print "I="; I , Print "x="; x

A．I＝4 x＝5 B． I＝7 x＝15 C．I＝6 x＝8 D．I＝7 x＝17 20、根据变量的作用域，可以将变量分为3类，分别为（）

A．局部变量、模块变量和全局变量 B．局部变量、模块变量和标准变量 C．局部变量、模块变量和窗体变量 D．局部变量、标准变量和全局变量

二、填空题（本大题共5小题，每小题3分，共15分）

1、随机产生10到1000之间的整数（包括10和1000）。

2、表达式3 ^ 2 Mod 36 ＼ 2 ^ 5的值是。

3、当对象得到焦点时，会触发事件，当对象失去焦点时将触发事件。

4、3、在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:

Private Sub Form_Click() Text1.Text = "VB程序设计" End Sub

Private Sub Text1_Change()

Picture1.Print "VBProgramming" End Sub

程序运行后,单击窗体,在文本框中显示的内容是，而在图片框中显示的内容是。