【1】Private Sub Form_Load()
Timer1.Interval = 100: Form1.WindowState = 2
Label1.Width = ScaleWidth / 2: Label1.Left = ScaleLeft
Label1.Alignment = 0: Label1.Caption = \"运行中…\"
End Sub
Private Sub Timer1_Timer()
Static m As Byte
m = m 8: Label1.FontSize = m
Timer1.Interval = Timer1.Interval 100
If m80 Then Timer1.Enabled = False
End Sub
（1）Interval属性设置为100，Timer事件执行的时间间隔是：
A、100秒
B、10秒
C、1秒
D、0.1秒
（2）程序运行后，事件过程Timer1_Timer自动执行的次数为：
A、9
B、10
C、1l
D、0
（3）“运行中…”这段文字的显示位置始终在_______。
A、窗体的左边
B、Label1的右边
C、窗体的右边
D、Label1的中间
（4）Label1的标题在窗体上的显示多次变化，其规律为：
A、字体变大、变化减慢
B、字体变小、变化减慢
C、字体变小、变化加快
D、字体变大、变化加快
【2】Private Sub f1(a() As Single, n As Integer, x1 As _
Single, x2 As Single)
Dim i As Integer
x1 = a(1): x2 = a(1)
For i = 2 To n
If a(i)x1 Then x1 = a(i)
If a(i)x2 Then x2 = a(i)
Next i
End Sub
Private Sub Command1_Click()
Dim n As Integer, i As Integer, a As Single, b As Single
n = InputBox(\"n=\")
ReDim x(n) As Single
For i = 1 To n
x(i) = InputBox(\"x(\"Sqr(i) And k
If i Mod j = 0 Then k = False Else ______(11)_______
Wend
If _______(12)______· Then Print #1, i
Next i
Close #1
End Sub
（1）A、OutPut
B、Input
C、Append
D、Read
（2）A、1
B、False
C、True
D、0
（3）A、j = j 1
B、j = j 2
C、k = k 1
D、k = k – 1
（4）A、kTrue
B、Not k
C、k = False
D、k |
