第二章标准控件一、选择题1文本框的属性不包括A。A

第二章(1)-标准控件-一、选择

题-1-文本框的属性不包括

(-A-)。-A

第二章（1） 标准控件

一、选择题

1. 文本框的属性不包括( A )。

A. Caption

C. Name

B. Text

D. Top

2. 在属性窗口中设置命令按钮的Caption属性为"&End"，则( A )是该命

令按钮的快捷访问键。

A. Alt+E

C. Shift+E

B. Ctrl+E

D. Ctrl+Shift+E

3. 设置命令按钮的( B )属性值为False，可以使命令按钮处于不可用状

态。

A. Value

C. Default

B. Enabled

D. Cancel

4. 下列设置中，可以使计时器Timer1停止计时的是( D )。

A. =True

B. =False

D. d=False C. d=True

5. 设置标签的的显示内容的属性是( C )。

A. Name

B. Text

C. Caption D. Top

6. 为了将复选框(名称为Check1)设置为选中状态，应该使用( A )语句。

A. =1 B. =0

D. =False C. =True

7. 单选按钮处于选中状态时,它的Value属性值是( B )。

A. False

C. 0

B. True

D. 1

8. 下列关于组合框的叙述中，正确的是(C )。

A. 组合框有Click事件，没有Change事件

B. 组合框有Change事件，没有Click事件

C. 组合框既有Click事件，也有Change事件

D. 组合框没有Click事件和Change事件

9. 设置( A )属性，可以使图片显示在图片框或图像框中。

A. Picture

C. Icon

B. Image

D. DownPicture

10. 在图像控件Image1中加载图片后，为使图像控件能够自动调整大小而

显示整幅图片,可以使用语句( D )。

A. ze=True

C. h=True

B. ze=False

D. h=False

11. 在图片框控件Picture1中加载图片后，为使图片框控件能够自动调整

大小而显示整幅图片，可以使用语句( A )。

A. ze=True

C. h=True

h=False

B. ze=False

D.

12. 下列不能接收焦点的控件是( B )。

A. 命令按钮

C. 文本框

B. 标签框

D. 单选按钮

13. 下列控件中( D )不能触发GetFocus和LostFocus事件。

A. 命令按钮

C. 复选按钮

B. 组合框

D. 计时器

14. 下列操作中，能够触发滚动条的Scroll事件的是( D )。

A. 单击滚动条两端的滚动箭头

B. 单击滚动条上滑块两侧的空白处

C. 单击滚动条上的滑块

D. 拖动滚动条上的滑块

15. 窗体中包含3个同名命令按钮CmdNum, 其Caption分别等于对应下标

值0，1，2；依次单击这三个按钮，窗体中的输出结果是( C )。

Private Sub cmdNum_Click(Index as Integer)

Print Index

End Sub

A. 0 B. 0 C. 0 D. 012

0 1

0 2

16. 在窗体上有一个文本框控件，名称为Text1；一个计时器控件，名称为

Timer1。要求每秒钟在文本框中显示一次当前时间。请将程序填完全。

Private Sub Timer1_【 】( C )

Text1=Time

End Sub

A. Visible

C. Timer

B. Interval

D. Enabled

17. 下列事件过程的功能是：在加载窗体时，启动计时器，并使计时器每

隔1秒钟触发一次Timer事件。请填空。

Private Sub Form_Load( A )

【 】

End Sub

A. al = 1000

C. d = 1000

B. al = 1

D. d = 1

18. 在窗体上有一个文本框控件,名称为Text1；程序运行后,要求文本框中

只能接收数字字符。请填空。

Private Sub Text1_【C 】(KeyAscii As Integer)

If KeyAsciiAsc("9") Then

KeyAscii = 0

End If

End Sub

A. KeyDown

B. KeyUp

D. Change C. KeyPress

19. 设窗体中包含1个命令按钮Command1，1个列表框List1，并有以下的

事件过程。程序运行后，单击Command1按钮，列表框中显示的内容是( A )。

Private Sub Command1_Click()

Dim i As integer

For i = 10 To 1 step -1.5

m i

Next i

End Sub

A. 10, 8, 6, 4, 2

B. 10, 9, 7, 5, 3

C. 10, 8.5, 7, 5.5, 4, 2.5

1

D. 8.5, 7, 5.5, 4, 2.5,

20. 使用( C )方法，可以同时清除列表框的所有项目。

A. RemoveItem

C. Clear

B. Remove

D. Move

二、填空题

1. 密码验证程序。在窗体上有一个标签，名称为Label1，Caption属性值

为"密码"；一个文本框，名称为Text1；一个命令按钮，名称为Command1；并

有如下两个事件过程。请将程序填完全。

Private Sub Form_Load() '设置Text1的属性,使输入的字符全部显示为

*

Text1. ____Text____________ = "*"

End Sub

Private Sub Command1_Click() ' 验证Text1中输入的密码是否正确,不

区分大小写

If Ucase(Text1. _____PasswordChar___________) = "ABC" Then

MsgBox "密码正确"

Else

MsgBox "密码错误"

End If

End Sub

2. 在下列程序代码中，第一次单击命令按钮，在文本框Text1和Text2中

显示的内容是___10______10_______；第二次单击命令按钮，在文本框Text1

和Text2中显示的内容是__58______58________。

Dim y as Integer ' y为窗体级变量

Private Sub Command1_Click()

Dim x As Integer

x = 2

Text1 = Func_2(Func_1(x), y)

Text2 = Func_1(x)

End Sub

Private Function Func_1(x As Integer) As Integer

x = x + y: y = x + y

Func_1 = x + y

End Function

Private Function Func_2(x As Integer, y As Integer) As Integer

Func_2 = 2 * x + y

End Function

3. 在窗体上画一个名称为Label1的标签和一个名称为List1的列表框。

程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在

标签Label1中显示所选中的项目文本，并在窗体上显示所选项目的序号。请将

程序填完全。

Private Sub Form_Load()

m "数学"

m "物理"

m "VB程序设计"

m "外语"

End Sub

Private Sub ___

List1_DblClick( )

_____________

Print List1. _____

ListIndex

___________ '显示列表项序号

n=______

__________'显示列表项文本

End Sub

4. 在窗体上画两个标签，名称分别为Label1和Label2，Caption属性分

别为“数值”及空白；然后再画一个名称为Hscroll1的水平滚动条，其Min的

值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签

Label2中显示滚动条的值。请将程序填完全。

Private Sub Hscroll1_ _____

Change

________()

n=Hscroll1. _______

Value

_____

End Sub

第二章（2） 对话框

1. VB窗体设计器的主要功能是( B )。

A. 显示文字

B. 建立用户界面

D. 画图 C. 编写源程序代码

2. 以下叙述中正确的是( D )。

A. 对象的Name属性值可以为空

B. 可以在程序运行期间改变对象的Name属性值

C. 窗体的Name属性值是显示在窗体标题栏中的字符串

D. 窗体的Name属性用来标识和引用窗体

3. 改变显示在窗体标题栏中的标题使用的属性是( C A )。

A. (名称)

C. Caption

B. FontName

D. Text

4. 设有如下窗体事件

Option Base 0

Private Sub Form_Click()

Dim a

Dim i As Integer

a=Array(1,2,3,4,5,6,7,8,9)

For i=0 To 3

Print a(5-i);

Next

End Sub

程序运行后，单击窗体，则在窗体内显示的结果是( B )。

A. 5 4 3 2

C. 4 3 2 1

B. 6 5 4 3

D. 7 6 5 4

5. 对窗体编写如下事件过程。程序运行后,在窗体上单击鼠标右键,则输出

结果为( C )。

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X

As Single, Y As Single)

Print "AA";

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As

Single, Y As Single)

If Button = 1 Then Print "BB";

End Sub

A. BBAA

C. AA

B. AABB

D. BB

6. 以下叙述中错误的是( B )。

A. 窗体的Show方法的作用是将指定的窗体装入内存并显示该窗体

B. 窗体的Hide方法和Unload方法的作用完全相同

C. 若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体

D. 使Print方法在窗体上失效的窗体事件是Load

7. 下列语句中，能够暂时隐藏窗体Form1，但不释放它所占用的内存空间

的是( D )。

A. Unload Form1

C. Hide Form1

B.

D.

8. 下列语句中，能够加载并显示窗体Form1的是( D )。

A. load Form1

C. show Form1

B.

D.

9. 下面的程序运行后，若从键盘输入-1，则输出结果为( A )。

Private Sub Form_Click()

xcase = 1

t = InputBox("请输入一个数：")

Select Case t

Case Is > 0

y = xcase + 1

Case Is = 0

y = xcase + 2

Case Else

y = xcase + 3

End Select

Print xcase; y

End Sub

A. 1 4

C. 1 2

B. 1 3

D. 1 1

10. 以下叙述中错误的是( C )。

A. 在KeyUp和KeyDown事件过程中，从键盘上输入A或a被视为相同

的KeyCode码

B. 在KeyUp和KeyDown事件过程中，将键盘上的“1”和右侧小键盘上的“1”

视为不同的KeyCode码

C. KeyPress事件不能识别某个键的按下与释放

D. KeyPress事件可以识别某个键的按下与释放