一、选择题
1. 在文本框上显示文本的属性是。
A) Value B) T ext C) Print D) Enabled
2. 列表项选择后得到的选中索引是指。
P83 ：复习列表框（ListBox）和组合框（ComboBox）
A) Value B) ListValue C) Index D) ListIndex
3. 为了把焦点移到某个指定控件，所使用的方法是。
A) GotFocus B)Visible C)Refresh D) SetFocus
P89 ：复习焦点的事件：GotFocus、LostFocus（窗体或控件的焦点发生改变所发生的事件）；复习焦点的方法：SetFocus （强制将焦点转换到某个窗体或控件上）。
4. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是。
A）Value B）Cancel C）Default D）Enabled
5. 判断两个逻辑关系同时满足的逻辑运算是。
A) Or B) And C) Not D) Ok
6. 判断两个逻辑关系任一满足的逻辑运算是。
A) Or B) And C) Not D) Ok
P38：四个常用的逻辑运算符：And、Or、Xor、Not
7. InputBox函数返回值的类型为。
A）字符串B）数值C）变体D）数值或字符串（视输入的数据而定）
P29：复习InputBox函数的用法
使用：输入返回值=InputBox(提示信息，标题栏，缺省值)
例子：n= InputBox("请输入第一季度的产量", "产量输入",100)
8. 加载并显示窗体的命令是。
A） Show B)  Load C) Move D) Call
P105：复习关于窗体的几种方法：Load、Unload、Show、Hide
二、程序界面设计题（包括添加控件、设置属性和编程）
完成此类题型的三大步骤：
1、界面设计（添加控件，调整控件位置）
2、对象的属性设置
3、程序的编写
编制程序：
Private Sub HScroll1_Change()
Text1.Text = HScroll1.V alue
End Sub
三、程序阅读题
Private Sub Command1_Click()
f = 0
n =val( InputBox("请输入某个整数"))
For k = n T o -5 Step -2
f = f + 1
Next k
Print f
End Sub
如果f输出为20，那么InputBox输入的n 是多少？
说明：For循环需要循环20次，但第一次循环的时候并未-2，
因此从n到-5只经历了19个（-2），所以从此得到n+(-2)*19=-5
n=-5+38=33
Private Sub Command2_Click()
x = Int(Rnd) + 3
If x ^ 2 > 8 Then y = x ^ 2 + 1
If x ^ 2 = 9 Then y = x ^ 2 - 2
If x ^ 2 < 8 Then y = x ^ 3
Print y
End Sub
程序运行后，单击命令按钮，其输出结果为7。
P72 ：Int(x)用于得到不大于x的最大整数；
Rnd 函数用于得到一个大于或等于0而小于1的随机Single 类型数。
四、编程题
1.设计在一框架中包含三个复选框，只有当其1,3选中而2未选中时，才在T ext1中显示“Hello”
字符。
P rivate Sub Command1_Click()
T ext1.T ext = ""
If Check1.Value=1 and  Check2.Value=0 and Check3.Value=1  then
T ext1.T ext="Hello "E nd I f
E nd Sub
2. 利用随机函数Rnd 生成9个100以内的正整数，存于一个3行3列的数组中，请按行列显示数组元素，并显示最大元素及所在的行列位置。
Private Sub Command2_Click()
Dim a(3,3),i,j,Max,Hang,Lie As Integer
Max=0 For i=1 to 3  For  j= 1 to 3        a(i,j)=Int(Rnd*100)        Print a(i,j),
If Max<a(i,j) then            Max=a(i,j)            Hang=i            Lie=j                            End If    Next j    Print  Next i  Print "最大元素:" & Max  Print "最大元素所在行:" & Hang
Print "最大元素所在列:" & Lie
End Sub
双重循环共循环9次得到三行
三列数组中的各个元素，并求
3. 构建一个含有“开始”，“停止”，“退出”的弹出式菜单，分别打开form2、关闭form2和退出程序。在退出程序时，要有警告提示。
说明：由于涉及到菜单，所以一定要事先设计弹出式菜单。方法见新教材P157
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu MenuA
End If
End Sub
Private Sub F_Click(Index As Integer)
Select Case Index
Case 1
Form2.Show
Case 2
Unload Form2
Case Else
If MsgBox("退出吗？", vbOKCancel, "警告") = vbOK Then End End Select
End Sub
4. 输入4个季度的产量，求各季度产量占全年产量的百分比，并出最大产量的季度。
Private Sub Command1_Click()
Dim a(4) As Single
Max = 0
For i = 1 T o 4
a(i) = Val(InputBox("请输入第" & i & "季度的产量", "产量输入"))
s = s + a(i)
If a(i) > Max Then
Max = a(i)
maxa = i
End If
Next i
For i = 1 T o 4
Print 100 * a(i) / s
Next i
Print maxa
End Sub
5. 编写在文本框输入一些字符，当该文本框失去焦点后，将清除字符的显示；当另一文本框得到焦点时，在此文本框显示这些字符的程序。
Public a As String
Private Sub Text1_LostFocus()
a = Text1.Text
Text1.Text = ""
End Sub
Private Sub Text2_GotFocus()
Text2.Text = a
End Sub
textbox控件边框设置
说明：
焦点的得到和失去往往是通过切换Tab键来实现的，因此可以事先设定每个控件的TabIndex属性。