二、填空题（每空2分，共30分）
（1）执行下面的程序段后，i的值为 〖1〗 ，s的值为 〖2〗 。
s = 2
For i = 3.2 To 4.9 Step 0.8
s = s + 1
Next i
（2）把窗体的KeyPreview属性设置为True，然后编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
程序运行后，如果直接按键盘上的"A"键（即不按住Shift键），则在窗体上输出的字符分别是 〖3〗 和 〖4〗 。
（3）在窗体上画一个标签（名称为Label1）和一个计时器（名称为Timer1），然后编写如下几个事件过程：
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 〖5〗
End Sub
Private Sub Form_Click()
Timer1.Enabled = 〖6〗
End Sub
Private Sub Timer1_Timer()
Label1.Caption = 〖7〗
End Sub
程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换一次（见图）。请填空。
——————————————————————
14：54：41
——————————————————————
（4）在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：
Private Sub Command1_Click()
S$ = InputBox("请输入一个字符串")
Text1.Text = S$
End Sub
Private Sub Text1_Change()
Label1.Caption = UCase(Mid(Text1.Text, 7))
End Sub
程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是 〖8〗 。
（5）在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为："第一个项目"、"第二个项目"、"第三个项目"、"第四个项目"。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择"第三个项目"的情况)。下面是实现上述功能的程序，请填空。
Private Sub Command1_Click()
If List1.ListIndex >= 〖9〗 Then
List1.RemoveItem 〖10〗
Label1.Caption = 〖11〗
Else
MsgBox "请选择要删除的项目"
End If
End Sub
—————————————————————
第一个项目
第二个项目 COMMAND1
第三个项目 3
—————————————————————
（6）设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
〖12〗 = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then 〖13〗
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
（7）以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在文本框Text1中显示出来。请填空。
Private Sub Command1_Click()
Dim inData As String
Text1.Text = ""
Open ".\smtext1.txt" 〖14〗 As #1
Do While 〖15〗
Input #1, inData
Text1.Text = Text1.Text & inData
Loop
Close #1
End Sub
责任编辑：cyth
