二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）
1. 执行下面的程序，在窗体上显示的输出结果的第一行是___this is a book.___，第二行结果是___This Is A Book.___。 Option Explicit Private Sub Form_Click()
Dim s As String,i As Integer,flag As Boolean s=\ s=LCase(s) Print s flag=True
For i=1 To Len(s)
If Mid(s,i,1)=\
flag=True ElseIf flag Then
s=Left(s,i-1)&UCase(Mid(s,i,1))&Right(s,len(s)-i)
flag=False End If
Next i Print s
End Sub
2. 执行下面的程序，在窗体上显示的输出结果的第二行是_4 9 13__，第三行结果是__19.5__。 OPtion Explicit
Dim a As Integer,b As Integer
Private Sub Form_Click() Dim c As Integer a=1 b=3 c=5 Print fun(c)
Print a,b,c Print fun(c)
End Sub
Private Function fun(x As Integer)As Single
fun=a+b+x/2 a=a+b b=a+x x=b+a
End Function
3. 执行下面的程序，第一行输出结果是__18___，第二行输出结果是___30___。
Option Explicit Private Sub Form_Click()
Dim M As Integer,N As Integer M=1:N=2
Print M+N+Fun1(M,N) M=2:N=1
Print Fun1(M,N)+Fun1(M,N)
End Sub
Private Function Fun1(X As Integer,Y As Integer)
X=X+Y Y=X+3 Fun1=X+Y
End Function
4. 执行下面程序，在窗体上显示的输出结果的第二行是___4 5 6___，第五行是___9 8 7___，第六行是___6 5 4___。
Option Explicit Private Sub Form_Click()
Dim a(3,3) As Integer, iAs Integer Dim j As Integer,k As Inteher
For i=1 To 3
For j=1 To 3
a(i,j)=(i-1)*3+j Print a(i,j); Next j Print next i
k=(i-1)*3 For i=1 To 3
For j=1 To 3
a(i,j)=k k=k-1 Print a(i,j);