VB窗体和控件2

VB 窗体和控件专练（二）2013.4.26

1、_____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该

对象功能的内部函数或过程。

a) 文件 b) 属性 c) 方法 d) 窗体

2、在列表框中当前被选中的列表项的序号是由下列________属性表示的。

A.List

B.Index

C.Listlndex

D.False

3、为组合框Combol增加一个数据项"计算机"，下列命令正确的是________

bol.Text="计算机"

bol.ListIndex="计算机"

bol.Addltem "计算机"

bol.ListCount="计算机"

4、执行了下面的程序后，组合框中数据项的值是________。

Private Sub Form_Click()

For i=1 To 6

Combol.AddItem i

Next i

For i=1 To 3

Combol.RemoveItem i

Next i

End Sub

A.1 5 6

B.2 4 6

C.4 5 6

D.1 3 5

5、要清除列表框中所有的列表项时，应使用________ 方法。

A.Remove

B.Clear

C.Removeltem

D.Move

6、引用列表框(Listl)最后一个数据项应使用________。

A.Listl.List(Listl.ListCount)

B.List1.List(List1.ListCount-1)

C.Listl.List(ListCount)

D.Listl.List(ListCount-1)

7、窗体上有一个按钮和一个列表框(Sorted属性为false)，执行下列过程后的输出结果

Private Sub Command1_Click()

List1.AddItem "China"

List1.AddItem "Great"

List1.AddItem "Is", 1

List1.AddItem "!", 3

Print List1.List(2)

End Sub A.Great B.China C.Is D.！

8、 ______对象不能响应Click事件。

a) 列表框 b) 图片框 c) 窗体 d) 计时器

9、没有Caption属性的控件是_____。

a) Label b) OptionButton c) Frame d) ListBox

10、使窗体自动向下移动的语句是Move_____。

a) Left, Top+100 b) Top+100 c) Top+100 d) Top=Top+100

11、RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），

括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别

输入3种基色，为保证输入数值有效，则应设置_____属性。

a)Max和Min b) SmallChange和LargeChange c) Scroll和Change ) Value

12、_____控件可以使用SetFocus()方法。

a) Frame b) Label c) TextBox d) Timer

13、滚动条单击边上的箭头按钮移动的大小由_____设定。

a) Change b) SmallChange c) Scroll d) Tabstop

14、ControlBox属性只适用于窗体，当窗体的______属性设置为0-None时，则

ControlBox属性不起作用。

a) Borderstyle b) Autoredraw c) Windowstate d) Enabled 15、确定复选框是否选中，可访问的属性是________。

A.Value

B.Checked

C.Selected

D.Caption

16、用InputBox函数可帮助生成_______。

a) 消息框 b) “保存”对话框 c) 简单输入框 d) “颜色”对话框

17、在程序运行期间，当滚运条的滑块被拖动时，则立即触发的滚动条事件是 ________ 。

A.Click

B.Chang

C.Scroll

D.DblClick

18、当滚动条位于最左端或最上端时，Value属性被设置为________。

A.Min

B.Max

C.Max和Min之间

D.Max和Min之外

19、不能触发滚动条Change事件的操作是________。

A.拖动滚动块

B.单击两端箭头

C.单击滚动块

D.单击箭头与滚动块之间的滚动条

20、单击滚动条的滚动箭头时，产生的事件是________。

A.Click

B.Scroll

C.Change

D. Move

21、能触发滚动条Scorll事件的操作是________。

A.拖动滚动条中滑块

B.单击滚动条中滑块

C.单击滚动条两端箭头

D.单击箭头与滑块之间的滚动条

22、为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的Multiselect

属性设置为________。

A.0

B.1

C.2

D.3

23、Inputbox函数的参数中，必选参数Prompt的作用是_____。

a) 输出信息 b) 定义提示信息 c) 定义隐含信息 d) 定义输入的位置

24、若要获得滚动条的当前值，可访问的属性是________

A.Text

B.Value

C.Max

D.Min

25、窗体上有一个图片控件和一个按钮控件，下列程序执行的结果是________

Private Sub Command1_Click()

Picture1.Picture = LoadPicture("c：＼1．jpg")

Picture1.Cls

Picture1.Print "Test"

End Sub

A.窗体无显示，图片框显示图片和文字Test

B.窗体上出现Test文本，图片框无显示

C.窗体上出现Test文本，图片框显示图片1．Jpg

D.窗体无显示，图片框只显示Test文字

26、设置命令按钮的属性时，只有将________属性设置为1，Picture属性才有效，否则无效。

A.Style

B.Caption

C.Enabled

D.DefauIt

27、在程序代码中将图片文件mypic.jpg装入图片框Pictrue1的语句是________。

A.Picture1.Picture=＂mypic.jpg＂

B.Picture1.Image=＂mypic.jpg＂

C.Picture1.Picture=LoadPicture(＂mypic.jpg＂)

D.LoadPicture(＂mypic.jpg＂)

28、下列对象不能响应Click事件的是________。

A.列表框

B.图片框

C.窗体

D.计时器

29、定时器的Interval属性以________ 为单位指定Timer事件之间的时间间隔。

A.分

B.秒

C.毫秒

D.微秒

30、在窗体上有一个文本框控件，名称为TextTime；一个计时器控件，名称为Timer1。

要求每一秒在文本框中显示一次当前的时间。程序为：

Private Sub Timer1_________

TextTime.text=Time

End Sub 在下划线上应填入的内容是：________。

A.Enabled

B.Visible

C.Interval

D.Timer

31、为启动定时器控件，需要设置定时器的属性是________。

B.Interval

C.Left

D.Top

32、若想使时钟控件每隔0.25秒触发一次Timer()事件，则可将Intenral属性值设为________

A.Interval=0.25

B.InterVal=25

C.Interval=250

D.InterVa1=2500