2001年秋VB二级试（含答案）(3)

二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）

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

print

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);

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库2001年秋VB二级试（含答案）(3)在线全文阅读。