Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub
Private Sub Form_Load() Text1.Text = \Text2.Text = \End Sub 程序运行后，在Text1和Text2中分别输12和34，然后单击命令按钮，则输出结果为 。 A、12 B、34 C、46 D、1234
23、在窗体上画一个列表框，一个标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是 。
A) Private Sub List1_Click(): Label1.Caption = List1.ListIndex: End Sub B) Private Sub List1_Click(): Label1.Name = List1.ListIndex: End Sub C) Private Sub List1_Click(): Label1.Name = List1.Text: End Sub D) Private Sub List1_Click(): Label1.Caption = List1.Text: End Sub 三、填空题
1．大多数控件都可设置其 属性使其有效或无效，可设置其 属性使其可见或不可见。
2．组合框具有 和 两种控件的基本功能。
3．执行语句“HScroll1.Value = HScroll1.Value + 100”时，发生 事件。 4．将焦点定位于命令按钮Command1之上的语句为 。 5．定时器控件只能接收 事件。
6．Text文本框能接受的最长字符数由文本框的 属性确定。 四、程序阅读题
1、写出下列程序运行时两次单击复选框控件check1后窗体上的显示结果？ Public s As Long, n As Integer Private Sub f2(ByRef n As Integer) Do While n > 0 s = s + n n = n - 1 Loop End Sub
Private Sub Form_Load() n = 5
Check1.Value = 0
37 VB网络课堂：info.zjfc.edu.cn/vbweb
End Sub
Private Sub check1_Click() Static ss As Long Call f2(n) ss = ss + s Print ss; s; n
End Sub
（1）两次单击复选框后窗体上显示的内容为 （1）
A、15 15 5 B、15 15 0 C、15 15 0 D、15 15 0 30 30 5 15 15 0 30 30 0 30 15 0 2.阅读下列程序并回答问题，在每小题提供的若干可选答案中，挑选一个正确答案。 【程序】
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 【供选择的答案】
(2) 激活Timer1后，每间隔1秒显示一次系统时间，方式是：
A、蓝、绿色交替显示 B、蓝色显示 C、绿色显示 D、红色显示 (3) 系统时间的显示位置，是在：
A、窗体右上角 B、窗体左上角 C、窗体右下角 D、窗体左下角 (4) 如果将Timer过程中的语句“Static k As Byte”改为“Dim k As Byte”，激活Timer1 后，窗体系统时间显示上的颜色为：
A、蓝、绿色交替 B、蓝色 C、绿色 D、红色
3．如图1所示的窗体上有一个列表框和一个文本框，下面程序运行后，在文本框中输入“789”，然后双击列表框中的“463”，写出文本框中的显示结果。
38 VB网络课堂：info.zjfc.edu.cn/vbweb
图1 窗体
Private Sub Form_Load()
List1.AddItem \List1.AddItem \结果: List1.AddItem \List1.AddItem \List1.AddItem \
Text1.Text = \End Sub Private Sub List1_DblClick()
a = List1.Text
Text1= a + Text1.Text End Sub
4．执行了下面的程序后，写出列表框中各项的数据。
Private Sub Form_Load()
Combo1.AddItem \西瓜\苹果\橘子\ Combo1.AddItem \葡萄\哈密瓜\
结果： Combo1.AddItem \火龙果\釉子\
Combo1.List(0) = \李子\猕猴桃\End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Combo1.List(Combo1.ListCount) _ =Combo1.Text List1.Clear
For i% = 0 To Combo1.ListCount - 1
If Len(Trim(Combo1.List(i%))) < 3 Then List1.AddItem Combo1.List(i%) End If Next i% End Sub
写出程序运行时，在组合框Combo1中输入文本“香蕉”（以回车键结束）后，控件List1中的所有表项。
5．控件Hscroll1的属性设置如下：
HScroll1.Min = 1 HScroll1.Max = 9 HScroll1.Value = 1
HScroll1.SmallChange = 2 HScroll1.LargeChange = 4
下列程序运行时，4次单击滚动条右端箭头按钮，写出各次单击时，Text1上的显示结果。
Dim y As Single
Private Function f1(x2 As Integer) As Single
Static x1 As Integer f1 = 0
39
VB网络课堂：info.zjfc.edu.cn/vbweb
结果: For i% = x1 To x2 f1 = f1 + i%
Next i% x1 = i%
End Function
Private Sub HScroll1_Change() y = y + f1(HScroll1.Value) Text1.Text = y End Sub
6．写出下列程序运行后窗体上的输出结果。 Dim a(100) As Integer Private Sub Form_Load() Timer1.Interval = 256 End Sub
Private Sub Timer1_Timer()
Static t As Byte '静态变量
t = t + 1
a(t) = a(t - 1) + t
Timer1.Interval = Timer1.Interval / 4 Print t, a(t) End Sub
结果: 五、程序填空题
1．本题是利用计时器控件来实现文字的水平移动。要求：如图2所示，运行时标签框内的文字从窗体左边向右边移动，当标签框的最左边超出窗体的右边界时，从窗体的左边进入窗体（尾部先进入），并要求在文字移动时，文字颜色随时间任意变化。
图2 标签框移动
代码如下：
Private Sub Form_Load()
Form1.WindowState = 2 : Timer1.Interval = 100 End Sub
Private Sub Timer1_Timer()
Label1.ForeColor = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd) ⑴ = Label1.Left + 150 If Label1.Left >= Form1.Width Then Label1.Left = ⑵ End If End Sub
Private Sub Form_Click() End End Sub
40
VB网络课堂：info.zjfc.edu.cn/vbweb