2012VB理论练习题
框List2中（如下图所示）。
【程序】
Private Sub Command1_Click()
Dim i As Integer, j As Integer, k As Integer, n As Integer n = (1) For i = 0 To n - 1 For j = 0 To n - 1 For k = 0 To n - 1
If (2) Then If (3) Then List2.AddItem List1.List(i) (4) End If End If Next k
If k <= n - 1 Then Exit For Next j Next i End Sub
【供选择的答案】 (1) A、 ListCount
B、List1.ListCount-1
C、 List1.ListCount
D、ListCount-1
(2) A、 i <> j Or j <> k Or i <> k B、i <> j And j <> k And i <> k C、 i <> j Or j <> k D、Not i= j Or j = k Or i = k (3) A、List1.List(i) = List1.List(j) + List1.List(k)
B、Val(List1.List(i)) = Val(List1.List(j)) + Val(List1.List(k)) C、List(i) =List(j) + List(k) D、List(i) =List(j) & List(k) (4) A、k=k+1
B、j=j+1
C、Exit Do
D、Exit For
试题24
21
【程序说明】
单击Command1后，将所有在List1中存在、而在List2中不存在的表项添加到列表框控件List3中。
Private Sub Command1_Click() Dim i As Integer, j As Integer (1)
For i = 0 To (2)
For j = 0 To (3)
If List1.List(i) = List2.List(j) Then (4) Next j
If (9) Then List3.AddItem List1.List(i) Next i End Sub
【供选择的答案】
(1) A、List3.Clear B、List3.List=\ C、List3.delete D、List3.Cls (2) A、List1.ListCount C、List2.ListCount (3) A、List2.ListCount - 1 C、List1.ListCount – 1
B、List1.ListCount - 1 D、List2.ListCount - 1 B、List2.ListCount D、List1.ListCount B、j<= List2.ListCount D、j>= List2.ListCount
(4) A、Exit For B、Exit (5) A、j< List2.ListCount C、j> List2.ListCount
C、Exit Do D、Break
试题25
【程序】
(1) 控件List1的MultiSlect属性值为：
A、True B、0 None C、1 Simple D、False (2)控件List1的Listcount属性值为：
A、2 B、3 C、4 D、5
(3)控件List1的Selected数组各元素中，值为True的元素的索引值（下标）为： A、0、2、4 B、1、3、5 C、1、3 D、2、4 (4)控件List1的Text属性值为：
A、”张三” B、“刘七” C、“李四” D、“张三 王五 刘七”
22
2012VB理论练习题
试题26
【程序】
Private Sub Command1_Click()
Dim i As Integer, j As Integer, x As Integer List1.Clear
List1.List(0) = InputBox(\x=\ For i = 1 To 3 x = InputBox(\x=\
For j = 0 To List1.ListCount - 1
If x < List1.List(j) Then List1.AddItem x, j:Exit For Next j
If j = List1.ListCount Then List1.AddItem x Next i End Sub
【供选择的答案】
(1) 单击命令按钮Command1后输入3、2、7、5这4个数，列表框中依次显示： A、2 3 7 5 B、2 3 5 7 C、7 5 3 2
D、2 5 3 7
(2) 单击命令按钮Command1后输入3、-4、6、5这4个数，列表框中依次显示： A、6 5 3 -4 B、3 -4 6 5 C、-4 3 5 6 D、3 -4 5 6 (3) 如果删除其中语句“Exit For“，单击命令按钮Command1后输入2、3、4、5这4个数，列表框中依次显示：
A、2 4 5 3 B、4 5 3 2 列表框中依次显示：
A、2 3 3 5 B、2 3 2 5
C、5 3 2 2
D、2 3 5 2
C、5 4 3 2
D、2 3 4 5
(4) 如果删除其中语句“Exit For“，单击命令按钮Command1后输入2、3、5、3这4个数，
试题27
【程序说明】运行时每隔10秒，显示上第几节课或晚餐、午休。 【程序】
Private Sub Form_Load() Timer1.Interval= (1) End Sub
Private Sub (2) _Timer() Dim x as single
x= (3) +Minute(Time)/60 select case x case Is>21
Form1.caption=“Over”
23
case (4)
Form1.caption=“9~11” case Is>18
Form1.caption=“晚餐” case Is>=14
Form1.caption=“5~8” case Is>=12
Form1.caption=“午休” case Is>=8
Form1.caption=“1~4” End Select End Sub
【供选择的答案】
(1) A、10 B、100 C、1000 D、10000
(2) A、Interval B、Command1 C、Timer1 D、Timer (3) A、Hour(Now) B、House(Time) C、Hour(Date) D、Hour() (4) A、19,20,21 B、19 To 21 C、19..20 D、Is>=19 And Is<=21
试题28
【程序】
Private Sub Form_Load() Timer1.Interval = 1000 End Sub
Private Sub Timer1_Timer() Static k As Byte
Form1.CurrentX=0: Form1.CurrentY=0 '窗体的所有其他属性均取缺省值 Form1.Cls
If k = 0 Then k = 1 Else k = 0
If k=0 Then Form1.ForeColor = RGB(0, 255, 0) Else _ Form1.ForeColor = RGB(0, 0, 255) Print Time End Sub
【供选择的答案】
(1) 激活Timer1后，每间隔1秒显示一次系统时间，方式是：
A、蓝、绿色交替显示 B、蓝色显示 C、绿色显示 D、红色显示 (2) 系统时间的显示位置，是在：
A、窗体右上角 B、窗体左上角 C、窗体右下角 D、窗体左下角 (3) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1
24
2012VB理论练习题
后，窗体系统时间显示上的颜色为：
A、蓝、绿色交替 B、蓝色 C、绿色 D、红色 (4) 如果要同时显示系统日期、时间，对Timer过程中Print语句之输出列表不可取的是： A、Date,Time B、Date;Time C、Date-Time D、Date + Time
试题29
【程序】
Private Sub Form_Load()
Timer1.Interval = 100 : Form1.WinDowState = 2 Label1.Width = ScaleWidth / 2: Label1.Left = ScaleLeft Label1.Alignment = 0: Label1.Caption = \运行中...\End Sub
Private Sub Timer1_Timer() Static m As Byte
m = m + 8: Label1.FontSize = m Timer1.Interval = Timer1.Interval + 100 If m > 80 Then Timer1.Enabled = False
End Sub
(1) 程序运行后，事件过程Timer1_Timer自动执行的次数为： A、9
B、10
C、11 D、0
C、窗体的右边 D、Label1的中
(2) “运行中...”这段文字的显示位置始终在窗体的 A、窗体的左边 B、Label1的右边 间
(3) Label1的标题在窗体上的显示多次变化，其规律为： A、字体变大、变化减慢
B、字体变小、变化减慢 D、字体变大、变化加快
C、字体变小、变化加快
25