Change事件。
25．由于定时器控件在运行时是不可见的，因此在设置时可将其放在窗体的任何位置。 二、选择题
1．标签控件的标题和文本框控件的显示文本的对齐方式由 属性来决定。 A、WordWrap A、Enabled A、Text A、SetDate A、Index A、Text A、Enabled A、AutoSize A、Text4 A、SelText A、True A、Appearance A、文本框 A、Selected A、方法
B、AutoSize C、Alignment D、Style B、Value C、Default D、Cancel B、Caption
C、Left D、Name
2．将命令按钮Command1设置为窗体的取消按钮，可修改该控件的 属性。 3．下列 属性用来表示标签或窗体的标题。
4．将焦点主动设置到指定的控件或窗体上，应采用 方法。
B、SetFocus C、SetText D、GetGata B、TabIndex C、TabStop
D、SetFocus
5．按Tab键时，焦点在各个控件之间移动的顺序是由 属性来决定的。 6．下列 属性用来表示各对象（控件）的位置。
B、Caption C、Left D、Name B、Locked C、Visible D、MultiLine B、MultiLine C、Alignment D、Visible B、\ C、Locked D、Name B、SelLength C、Text D、Caption B、False C、0 D、1 B、Style
C、Enabled D、TabIndex
7．当文本框的 属性设置为True时，在运行时文本框不能编辑。
8．要使文本框显示滚动条，除了设置ScrollBars属性外还必须设置 属性。 9．文本框控件Text4的Text属性默认值为 。 10．文本框中选定的内容，由下列 属性来反映。 11．选中复选框控件时，Value属性的值为 。
12．要使复选框控件不响应Click事件，可设置复选框的 属性。 13．若要在同一窗体中安排两组单选钮，可用 控件予以分隔。
B、框架 C、列表框 D、组合框 B、List C、Text D、Caption B、对象 C、属性 D、事件
14．列表框的 属性返回或设置列表框中各列表项的文本。 15．List1.Clear中的Clear是 。
16．以下 语句将删除列表框List1中的最后一项。 A、List1.RemoveItem List1.ListCount B、List1.Clear
C、List1.List(List1.ListCount-1)= \ D、List1.RemoveItem List1.ListCount-1
17．若要把\添加到列表框List1中的第三项，则可执行语句 。 A、List1.AddItem \ C、List1.AddItem 3,\ A、LargeChange A、KeyDown A、Interval 三、填空题
1．控件的Top属性是指控件的 （上、下）边至窗体标题栏 （上、下）边的 距离；Left属性是指控件 （左、右）边到窗体 （左、右）边的距离。
2．Visual Basic窗体的位置、大小属性值的度量单位为 ，与窗体坐标刻度 （有关/无关）。
3．如果字符“Y”是某个命令按钮的访问键，在设计时，设置命令按钮的Caption属性时要在其中字符“Y”前输入 ；运行时，可以通过按 键执行单击操作。
4．运行时，若需要命令按钮为灰色，即不被击活，在设计时可以通过 属性来实现。 5．文本框中输入的字符数需加以限定时，用的是文本框的 属性。 6．把焦点移到文本框Text1中的语句为 。 7． 属性决定文本框是否可以接受多行文本。
8．要让控件隐藏起来，处于不可见状态，可修改其 属性。 9．要使输入文本框的字符靠右对齐，可修改文本框的 属性。 10．要使标签框的大小随Caption属性做自动调整，应修改其 属性。 11．对象的标题文字的颜色是由 属性决定的。 12．运行时单击复选框，将使复选框的Value值取 。 13．运行时单击单选钮，将使单选钮的Value值取 。
14．要使复选框或单选钮的标题文字靠左，应设置Alignment属性为 。 15． 方法用来向列表框中加入列表项。
16．当列表框的MultiSelect属性值为 时，单击列表项或按空格键可以实现复选。 17．语句 将清空列表框List1中所有列表项。 18．组合框具有 和 两种控件的基本功能。
19．组合框Style属性为0、1和2时决定的组合框样式分别是 、 和 。 20．拖动滚动条的滚动滑块时仅发生 事件。 21．滚动条的滚动滑块的位置由 属性决定的。
22．执行语句“HScroll1.Value=HScroll1.Value+100”时，发生 事件。 23．定时器的Interval属性值为0时，表示 。 24．定时器控件只能接收 事件。 25．定时器的Interval属性值不得大于 。
B、SmallChange
B、List1.AddItem \D、List1.AddItem 2,\C、Value D、Change
18．滚动条的 属性用于指定用户单击滚动条的滚动箭头时，Value属性值的改变量。 19．单击滚动条两端的任意一个滚动箭头，将触发该滚动条的 事件。
B、Change C、Scroll D、Click B、Timer C、Move D、Enabled
20．设计动画时通常用定时器控件 属性来控制动画速度。
四、程序阅读题
程序1. 请写出在Text1、Text2、Text3中依次输入3、4、5后，单击窗体时Label1的显示结果。
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single a = Text1.Text: b = Text2.Text: c = Text3.Text Label1.Caption = Str(a * a + 2 * b * b + 3 * c * c) End Sub
程序2. 请写出在Text1、Text2中输入96、40后，单击Command1时窗体上的显示结果。 Private Sub Command1_Click()
Dim a As Long,b As Long,r As Long a = Text1.Text: b = Text2.Text Do While b <> 0
r = a Mod b: a = b: b = r Loop Print a End Sub
程序3. 请写出在文本框中输入“12345”（5个字符）并按回车键后标签控件上的显示结果。 Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As String * 1, b As String, n As Byte, i As Integer If KeyAscii = 13 Then
b = Text1.Text: n = Len(b) For i = 1 To n \\ 2
a = Left(b, 1)
b = Right(b, n - 1) + a
Label1.Caption = Label1.Caption + b + Chr(13) + Chr(10) Next i End If End Sub
程序4. 请写出在文本框中输入“小李”（2个汉字）并按下回车键后，窗体上显示的结果。 Private Sub Text1_Change() Print Text1.Text; \，你好！\End Sub
程序5. 写出程序运行时，单击Option1(2)后，窗体上的显示结果。 Private Sub Form_Load()
Option1(0).Value = False: Option1(1).Value = False: Option1(2).Value = False End Sub
Private Sub Option1_Click(Index As Integer) Select Case Index Case 0
Check1(0).Value = 1: Check1(1).Value = 0 Case 1
Check1(0).Value = 0: Check1(1).Value = 1 Case 2
Check1(0).Value = 1: Check1(1).Value = 1 End Select
If Check1(0).Value = 1 Then Print \您好\
If Check1(1).Value = 1 Then Print \欢迎使用Visual Basic!\End Sub
程序6. 写出程序运行时，在组合框中输入“香蕉”并按回车键后，列表框中的所有表项。 Private Sub Form_Load()
Combo1.AddItem \西瓜\苹果\橘子\ Combo1.AddItem \葡萄\哈密瓜\ Combo1.AddItem \火龙果\柚子\ Combo1.List(0) = \李子\猕猴桃\End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim i 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) Next i End Sub
程序7. 已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置： HScroll1.Min:1 HScroll1.Max:10 HScroll1.SmallChange:1 HScroll1.LargeChange:2 HScroll1.Value:5
写出连续3次单击水平滚动条HScroll1右端箭头后，窗体上显示的结果。 Private Sub HScroll1_Change() Static y As Integer
If HScroll1.Value Mod 2 = 0 Then y = y + HScroll1.Value Print \ End If End Sub
程序8. 写出程序运行后窗体上显示的结果。 Dim x As Integer
Private Sub Form_Load()
Timer1.Interval = 1000: Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Call sub1(x) x = x + 1
If x > =5 Then Timer1.Enabled = False End Sub
Public Sub sub1(n As Integer) n = n + 1 Print \End Sub
五、程序填空题
1．【程序说明】窗体上已建立命令按钮Command1（开始）、Command2（结束）和文本框Text1，Text1中输入字符个数不得超过100个。开始运行时，“结束”命令按钮不能响应；按“开始”命令按钮后，将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列，并在窗体上输出重新排列后的字符串，同时“结束”命令按钮能响应，“开始”按钮不能响应。
Private Sub Command1_Click()
Dim n As Byte, i As Byte, j As Byte, p As Byte
Dim a(100) As String * 1, str1 As String, t As String str1 = Text1.Text: n = Len(str1)
For i = 1 To n: （1） : Next i For i = 1 To n - 1 p = i
For j = i + 1 To n
If a(p) > a(j) Then （2） Next j
If p <> i Then t = a(i): （3） : a(p) = t Next i
For i = 1 To n: Print a(i);: Next i （4）
Command1.Enabled = False End Sub
Private Sub Command2_Click() End End Sub