2018年9月计算机二级VB基础巩固题及答案(8)

 1.确定一个控件在窗体上的位置的属性是(C)(单)

A.Width和Height

B.Width或Height

C.Top和Left

D.Top或Left

2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

Text1.Text = "Visual"

Me.Text1 = "Basic"

Text1 = "Program"

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的是(C)(单)

A.Visual

B.Basic

C.Program

D.出错

3.以下关系表达式中，其值为False的是(A)(单)

A."ABC">"AbC"

B."the"<>"they"

C."VISUAL"=UCase("Visual")

D."Integer">"Int"

4.语句Print int(5/4*65) Mod 2的输出结果是(B)(单)

A.0

B.1

C.2

D.3

5.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

Private Sub Command1_Click( )

strText = InputBox("请输入")

Text1.Text = strText

End Sub

Private Sub Text1_Change( )

Label1.Caption = Right(Trim(Text1.Text), 3)

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入abcdef，则在标签中显示的内容是(D)(单)

A.空

B.abcdef

C.abc

D.def

6.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click( )

x = -5

If x >0 Then

y = x ^ 2

Else

y = x

End If

Print y

End Sub

程序运行后，单击命令按钮，窗体上显示的是(A)(单)

A.-5

B.25

C.1

D.-1

7.一个工程中含有窗体Form1、Form2和标准模块Model1，如果在Form1中有语句Pubilc X As

Integer，在Model1中有语句Pubilc Y As Integer，则以下叙述中正确的是(A)(单)

A.变量X、Y的作用域相同

B.Y的作用域是Model1

C.在Form1的任何地方中可以直接使用Y

D.在Form2中可以直接使用X和Y

8.在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框。当改变当前驱动器时，目录列表框应该与之同步改变。设置两个控件同步的命令放在一个事件过程中，这个事件过程是(A)(单)

A.Drive1_Change

B.Drive1_Click

C.Dir1_Click

D.Dir1_KeyPress

9.在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码：

Option Base 1

Private Sub Command1_Click( )

Dim a

s = 0

a = Array(1, 2, 3, 4)

For I = 4 To 1 Step -1

s = s + a(I)

Next I

Print s

End Sub

运行上面的程序，单击命令按钮，其输出结果是(D)(单)

A.4321

B.1234

C.34

D.10

10.在窗体上画一个名称为Text1的文本框，编写以下代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 65 　Or　 KeyAscii> 90 Then

msgBox "请输入大写字母"

KeyAscii = 0

End If

End Sub

以下能说明该事件过程正确是(A)(单)

A.要求文本框只能接收大写字母的输入

B.要求文本框只能接收小写字母的输入

C.要求文本框只能接收数字的输入

D.要求文本框只能接收65到90之间的数值的输入