测试卷纸---VERS维普考试资源系统

江苏省二级VISUAL BASIC-9

(总分100, 做题时间90分钟)

第一部分计算机信息技术基础知识

第二部分 Visual Basic程序设计

二、填空题

执行下面的程序，单击按钮Command1后，A(5)的值为______，第二个For循环被执行了______次。
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim A(24)As Integer, i As Integer, k As Integer
For i=1 To 24
A(i)=i
Next
k=1
For k=1 To 24 Step k
A(k)=0
k=k+3
Next
End Sub

执行下面的程序，单击Command1按钮后，显示在窗体上的第一行内容是______，最后一行内容是______。
Option Explicit
Dim A As Integer
Private Function fun1(X As Integer, Y As Integer)As Integer
Dim I As Integer
For I=1 To Y
Y=Y+1
X=X+1
A=X+Y
Next I
fun1=A+Y
Print fun1
End Function
Private Sub Command1_Click()
Dim B As Integer
A=2
B=2
Print fun1(fun1(A, A), B)
Print A
Print B
End Sub

执行下面的程序，当单击Command1时，Picture1中显示内容的第二行与第四行分别是______与______，Picture2中第一行显示的内容是______。
Option Base 1
Option Explicit
Private Sub Command1_Click()
Dim a(4, 4) As Integer, I As Integer, j As Integer
Dim b(4, 4) As Integer, s As String
For I=1 To 4
s=""
For j=1 To 4
a(I, j)=((I-1)*4+j)
s=s&Right(""&Str(a(I, j)), 3)
Next j
Picture1.Print s
Next I
For I=1 To 4
For i=1 To 4
b(5-j, I)=a(I, j)
Next J
Next I
For I=1 To 4
s=""
For j=1 To 4
If Len(CStr(b(I, j)))＜2 Then
s=s&""&CStr(b(I, J))&""
Else
s=s&CStr(b(I, j))&""
End If
Next j
Picture2.Print s
Next I
End Sub

运行下面的程序，当单击窗体时，窗体上显示的内容的第一行是______，第三行是______，第五行是______。
Private Sub Form_Click()
Dim s As String, i As Integer, n(9)As Integer
Dim s1 As String*1, j As Integer
s=Trim("12345a307291b233")
For i=1 To Len(s)
s1=Mid(s, i, 1)
If s1＞="0" And s1＜="9" Then
j=Val(s1)
n(j)=n(j)+1
End If
Next i
For j=0 To 9
Print j; ":"; n(j)
Next j
End Sub

执行下面的程序，单击按钮Command1后，窗体上的第一行内容是______，第三行内容是______。
Private Sub Command1_Click()
Dim i As Integer, s As String, k As Integer
s="VISUAL"
k=Len(s)
For i=1 To k/2
Mid(s, i, k-2*(i-1))=Mid(s, k+1-i, 1)&Mid(s, i+1, k-2*i)&Mid(s, i, 1)
Print s
Next i
End Sub

执行下面的程序，单击命令按钮Command1后，显示在窗体上的第一行内容是______，最后一行内容是______。
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim I As Integer, J As Integer
For I=3 To 1 Step-2
N=Fun(I, N)
Print N
Next I
End Sub
Private Function Fun(A As Integer, B As Integer)As Integer
Static X As Integer
X=X+B
B=B+X+N
A=A+1
Fun=A+B
End Function

执行下面的程序，单击命令按钮Command1后，显示在窗体上的第一行内容是______，第二行内容是______，第三行内容是______。
Option Explicit
Private Sub Command1_Click()
Dim N As Integer, M As Integer
N=2
Do While M＜3
N=N+2
If Fun(N) Then
Print N
M=M+1
End If
Loop
End Sub
Private Function Fun(ByVal N As Integer) As Boolean
If N/2=Int(N/2)Then
Fun=Fun(N/2)
Else
If N=1 Then Fun=True
End If
End Function

执行下面的程序，单击按钮Command1，A(1，1)的值是______，A(1，4)的值是______，窗体第二行输出的内容是______。
Option Base 1
Private Sub Command1_Click()
Dim a()As Integer, i As Integer, j As Integer
Dim k As Integer, n As Integer
n=4
ReDim a(n, n)
i=1:j=n:a(i, j)=1
For k=2 To n*n
If i+1＞n Then
i=n-j+2:j=1
ElseIf i+1＜=n And j+1＞n Then
j=j-i:i=1
Else
i=i+1:j=j+1
End If
a(i, j)=k
Next k
For i=1 To n
For j=1 To n
Print Format(a(i, j), "00");
Next j
Print
Next i
End Sub

答题卡