(3) 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色) 。当向文框中输入任何字符时，命令按钮Command1变为可用。请在 [6] 处填入适当的内容，将程序补充完整。
Private Sub Form_Load()
Command1.Enabled=False
End Sub
Private Sub Text1_ [6] ()
Command1.Enabled=True
End Sub
(4) 在菜单编辑器中建立了一个菜单，名为pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。
Form1. [7] Pmenu
(5) 以下程序的功能是：从键盘上输入若干个学生的考试分数，当输入负数时结束输入，然后输出其中的最高分数和最低分数。请在 [8] 和 [9] 处填入适当的内容，将程序补充完整。
Private Sub Form_Click()
Dim x As Single,amax As Single,amin As Single
x=InputBox(“Enter a score”)
amax=x
amin=x
Do While [8]
If x>amax Then
Amax=x
End If
If [9]Then
Amin=x
End If
x=InputBox(“Enter a score”)
Loop
Print”Max=”;amax,”Min=”;amin
End Sub
(6) 在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程：
Private Sub Form_Load()
Text1.Text=”计算机”
End Sub
Private Sub Text1_Change()
Picture1.Print“等级考试”
End Sub
程序运行后，在文本框中显示的内容是 [10] ，而在图片框中显示的内容是 [11] 。
(7) 在窗体上画一个命令按钮，其名称为Command1，然后编写如下程序：
Function M(x As Integer,y As Integer)As Integer
M=IIf(x>y,x,y)
End Function
Private Sub command1_Click()
Dim a As Integer,b As Integer
a=100
b=200
Print M(a,b)
End Sub
程序运行后，单击命令按钮，输出结果为 [12] 。
(8) 为了改变计时器控件的时间间隔，应该修改该控件的 [13] 属性。
(9) 在窗体上画一个名称为Lable1的标签和一个名称为List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Label1中显示所选中的项目，如图所示。请在 [14] 和 [15] 处填入适当的内容将程序补充完整。
Private Sub Form_load()
List1.AddItem”北京”
List1.AddItem”上海”
List1.AddItem”湖北”
End Sub
Private Sub [14] ()
Label1.Caption= [15]
End Sub
责任编辑：cyth
