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

第二章（1）标准控件

一、选择题

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

A. Caption

B. Text

C. Name

D. Top

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

A. Alt+E

B. Ctrl+E

C. Shift+E

D. Ctrl+Shift+E

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

A. Value

B. Enabled

C. Default

D. Cancel

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

A. Timer1.Locked=True

B. Timer1.Locked=False

C. Timer1.Enabled=True

D. Timer1.Enabled=False

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

A. Name

B. Text

C. Caption

D. Top

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

A. Check1.Value=1

B. Check1.Value=0

C. Check1.Value=True

D. Check1.Value=False

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

A. False

B. True

C. 0

D. 1

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

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

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

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

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

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

A. Picture

B. Image

C. Icon

D. DownPicture

10. 在图像控件Image1中加载图片后，为使图像控件能够自动调整大小而显示整幅图片,可以使用语句( D )。

A. Image1.AutoSize=True

B. Image1.AutoSize=False

C. Image1.Stretch=True

D. Image1.Stretch=False

11. 在图片框控件Picture1中加载图片后，为使图片框控件能够自动调整大小而显示整幅图片，可以使用语句( A )。

A. Picture1.AutoSize=True

B. Picture1.AutoSize=False

C. Picture1.Stretch=True

D.

Picture1.Stretch=False

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

A. 命令按钮

B. 标签框

C. 文本框

D. 单选按钮

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

A. 命令按钮

B. 组合框

C. 复选按钮

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

B. Interval

C. Timer

D. Enabled

17. 下列事件过程的功能是：在加载窗体时，启动计时器，并使计时器每隔1秒钟触发一次Timer事件。请填空。

Private Sub Form_Load( A )

【】

End Sub

A. Timer1.Interval = 1000

B. Timer1.Interval = 1

C. Timer1.Enabled = 1000

D. Timer1.Enabled = 1

18. 在窗体上有一个文本框控件,名称为Text1；程序运行后,要求文本框中只能接收数字字符。请填空。

Private Sub Text1_【C 】(KeyAscii As Integer)

If KeyAsciiAsc("9") Then

KeyAscii = 0

End If

End Sub

A. KeyDown

B. KeyUp

C. KeyPress

D. Change

19. 设窗体中包含1个命令按钮Command1，1个列表框List1，并有以下的事件过程。程序运行后，单击Command1按钮，列表框中显示的内容是( A )。

Private Sub Command1_Click()

Dim i As integer

For i = 10 To 1 step -1.5

List1.AddItem 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

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

1

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

A. RemoveItem

B. Remove

C. Clear

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

List1.AddItem "数学"

List1.AddItem "物理"

List1.AddItem "VB程序设计"

List1.AddItem "外语"

End Sub

Private Sub ___ List1_DblClick( )_____________

Print List1. _____ ListIndex ___________ '显示列表项序号

Label1.Caption=______ List1.Text __________'显示列表项文本

End Sub

4. 在窗体上画两个标签，名称分别为Label1和Label2，Caption属性分别为“数值”及空白；然后再画一个名称为Hscroll1的水平滚动条，其Min的值为0，Max的值为100。程序运行后，如果单击滚动条两端的箭头，则在标签Label2中显示滚动条的值。请将程序填完全。

Private Sub Hscroll1_ _____ Change________()

Label2.Caption=Hscroll1. _______ Value_____

End Sub

第二章（2）对话框

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

A. 显示文字

B. 建立用户界面

C. 编写源程序代码

D. 画图

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

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

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

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

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

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

A. (名称)

B. FontName

C. Caption

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

B. 6 5 4 3

C. 4 3 2 1

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

B. AABB

C. AA

D. BB

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

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

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

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

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

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

A. Unload Form1

B. Form1.Unload

C. Hide Form1

D. Form1.Hide

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

A. load Form1

B. Form1.load

C. show Form1

D. Form1.show

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

B. 1 3

C. 1 2

D. 1 1

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

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

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

视为不同的KeyCode码

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

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