09微机升学班《Visual Basic6.0》练习题一
一、选择题：
1、窗体上有一个列表框和一个文本框，编写如下两个事件过程：
Private Sub Form_Load()
List1.Additem＂Beijing＂
List1.Additem ＂Tianjin＂
List1.Additem＂Shanghai＂
Text1.Text= ＂＂
End Sub
Private Sub List1_DblClick()
x=List1.Text
Print X+Text1.Text
End Sub
程序运行后，在文本框中输入＂China＂,然后双击列表框中的＂Shanghai＂,则输出结
果为________。
A.China Beijing B.China Tianjin C.China Shanghai D.Shanghai China
2、在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程；
Private Sub Form_Load()
List1.AddITem＂357＂
List1.AddITem＂246＂
List1.AddITem＂123＂
List1.AddITem＂456＂
Text1.Text=＂＂
End Sub
Private Sub List1.DblClickO
M=List1.Text
Print M+Text1.Text
End Sub
程序运行后,在文本框中输入“123”,然后双击列表框中的“456”,则输出结果为________。
A.1245 B.456123 C.123456 D.0
3、在列表框中当前被选中的列表项的序号是由下列________属性表示的。
A.List B.Index C.Listlndex D.False
4、在Visual Basic中，组合框是文本框和________特性的组合。
A.复选框 B.标签 C.列表框 D.目录列表框
5、为组合框Combol增加一个数据项"计算机"，下列命令正确的是________
A.Combol.Text="计算机" B.Combol.ListIndex="计算机"
C.Combol.Addltem "计算机" D.Combol.ListCount="计算机"
6、执行了下面的程序后，组合框中数据项的值是________。
Private Sub Form_Click()
For i=1 To 6
Combol.AddItem i
Next i
For i=1 To 3
Combol.RemoveItem i
Next ivb编程基础知识1
End Sub
A.1 5 6 B.2 4 6 C.4 5 6 D.1 3 5
7、要清除列表框中所有的列表项时，应使用________ 方法。
A.Remove B.Clear C.Removeltem D.Move
8、引用列表框(Listl)最后一个数据项应使用________。
A.Listl.List(Listl.ListCount) B.List1.List(List1.ListCount-1)
C.Listl.List(ListCount) D.Listl.List(ListCount-1)
9、窗体上有一个按钮和一个列表框(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.！
10、为了在列表框中使用Ctrl和Shift键进行多个列表项的选择，应将列表框的Multiselect属性设置为________。
A.0 B.1 C.2 D.3
11、组合框控件是将________组合成一个控件。
A.列表框控件和文本框控件 B.标签控件和列表框控件
C.标签控件和文本框控件 D.复选框控件和选项按钮控件
12、以下关于复选框的说法，正确的是________。
A.复选框的Enabled属性用于决定该复选框是否被选中
B.复选框的Value属性用于决定该复选框是否被选中
C.复选框的Checked属性用于决定该复选框是否被选中
D.复选框的Visible属性用于决定该复选框是否被选中
13、复选框的Value属性为1时，表示________。
A.复选框未被选中 B.复选框被选中 C.复选框内有灰的勾 D.复选框操作有误
14、假定定时器的Interval属性为1000，Enabled属性为True，调用下面的事件过程，程序运行结束后变量x的值为________。
Dim x As Integer
Sub Timer1_Timer()
For i = 1 To 10
x=x+1
Next i
End Sub
A.1000 B.10000 C.10 D.以上都不对
15、确定复选框是否选中，可访问的属性是________。
A.Value B.Checked C.Selected D.Caption
16、在窗体上画一个名称为Check1的复选框，在程序运行过程中，若选中复选框，则Check1.Value的值是________。
A.True B.2 C.0 D.1
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、要使文本框只具有垂直滚动条则就________。
A.将其Multiline设置为True，同时将Scrollbars属性设置为0
B.将其Multiline设置为True，同时将Scrollbars属性设置为1
C.将其Multiline设置为True，同时将Scrollbars属性设置为2
D.将其Multiline设置为True，同时将Scrollbars属性设置为3
23、通常情况下，垂直滚动条的值是________。
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_________
=Time
End Sub 在下划线上应填入的内容是：________。
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论