计算机等级考试二级VB全真模试题三下塑料油箱陆丰电工器材导电胶办公综合

计算机等级考试二级VB全真模试题（三）（下）

(26) 下列不能打开菜单器的操作是 。

A）按Ctrl+E

B）单击工具栏中的“菜单器”按钮

C兴平）执行“工具”菜单中的“菜单器”命令

D）按Shift + Alt + M

(27) 假定有一个菜单项，名为MenuItem，139建筑排水用硬聚氯乙烯管材为了在运行时使该菜单项失效（变灰），应使用的语句为 。

A) MenuItem. Enabled=False

B) MenuItem. Enabled=True

C) MenuItem. Visible=True

D) Menultem. Visible=False

(28) 在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是 。

A) Move B) Change C) Scroll D) GetFocus

(29) 假定窗体上有一个标签，名为Labell，为了使该标签透明并且没有边框，则正确的属性设置为 。

A) Label1. Back >Label1.Border >B) Label1.Back >Label1.Border >C) Label1.Back >Label1.Border >D) Label1.Back >Label1.Border >

(30) 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：

Private Sub Form_Load ()

dItem"357"

dItem"246"三亚

dItem"123"

dItem"456"

xt=""

End Sub

Private Sub List1_ DblClick ( )

a =xt

Print a+xt

End Sub

程序运行后，在文本框中输入“789”（见图1），然后双击列表框中的"456"，则输出结果为 。

A) 1245 B) 456789 C) 789456弱粘煤 D) 0

(31) 为了暂时关闭计时器，应把该计时器的某个属性设置为False ，这个属性是 。

A) Visible B) Timer C) Enabled D) Interval

(32) 为了把一个记录型变量的内容写入文件中指定的位置，所使用的语句的格式为 。

A）Get文件号，记录号，变量名

B）Get文件号，变量名，记录号

C）Put文件号，变量名，记录号

D）Put文件号，记录号，变量名

(33) 对窗体编写如下事件过程：

Private Sub Form _MouseDown(Button As Integer, _

Shift As Integer, X As Single Y As Single)

If Button =2 Then

Print "AAAAA"

End If

End Sub

Private Sub Form _ MouseUp(Button As Integer, _

Shift As Integer, X As Single, 用来鼓励弹簧*质量组件；另外一个是施加作用力到试件上的平均负载液压缸Y As Single)

Print "BBBBB"

End Sub

程序运行后，如果单击鼠标右键，则输出结果为 。

A) AAAAA B) BBBBB C) AAAAA D) BBBBB

BBBBB AAAAA

(34) 为了在运行时能显示窗体左上角的控制框（系统菜单），必须 。

A) 把窗体的Contro1Box 属性设置为Fale,其他属性任意

B) 把窗体的ControlBox 属性设置为True,并且把Boder Style属性设置为

C) 把窗体的ControlBox 属性设置为False,同时把BoderStyle属性调协为非0值

D) 把窗体的ControlBox 属性设置为True,同时把BoderStyle属性设置为0值

(35) 对窗体编写如下代码：

Option Base 1

Private Sub Form_KeyPress(KeyAscii As Integer)

a = Array(237,126,87,48,498)

m1 = a(1)

m2 = 1

If KeyAscii = 13 Then

For i =2 To 5

If a(i) ml Then

m1 =a(j)

m2 =i

End If

Next i

End If

Print m1

Print m2

End Sub

程序运行后，按回车键，输出结果为

A) 48 B) 237 C) 498 D) 498

4 1 5 4

二、填空题（每空２分，共30分）

请将每空的正确答案写在答题卡[1]—[15]序号的横线上，答在试卷上不得分。

（1）设有如下的Visual Basic表达式：

5 * x^2 – 3 * x – 2 * Sin(a)/3

它相当于代数式【1】 。

（2）执行下面的程序段后，s的值为 【2】 。

s = 5

For i = 2.6 To 4.9 Step 0.6

s = s+1

Next i

（3）表达式Fix(-32.68)+Int(-23.02)的值为 【3】 。

（4）为了在运行时把图形文件picfile. jpg装入图片框Picture1,所使用的语句为【4】 。

（5）在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

a = InputBox("请输入一个整数")

b = Inpu特殊租赁tBox("请输入一个整数")

Print a + b

End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【5】 。

(6) 执行下面的程序段后，b的值为【6】 。

a=300

b=20

a=a+b

b=a-b

a=a-b

于下午2点在大会议室开会(7) 以下程序段的输出结果是【7】 。

num=0

While num =2

num=num+1

Print num

Wend

(8) 在窗体画一个命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim a(1 To 1