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

江苏省二级VISUAL BASIC-10

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

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

第二部分 Visual Basic程序设计

二、填空题

执行下面的程序后，单击按钮Command1，则N的值是______，A的值是______，B的值是______。
Option Explicit
Dim n As Integer
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=2:b=3
For n=1 To 6
If n Mod 2=0 Then
b=fun(n, a)+a
Else
a=fun(b, n)+b
End If
Next n
Print n, a, b
End Sub
Private Function fun(x As Integer, y As Integer)As Integer
x=y-1+n
y=x+y-n
fun=x+y
End Function

执行下面的程序，单击Command1按钮时，列表框中显示的第一行是______，第二行是______，第三行是______。
Private Sub Command1_Click()
Dim x As Integer, k As Integer
x=483
k=2
Do Until x＜=1
If x Mod k=0 Then
x=x\k
List1.AddItem Str(k)
Else
k=k+1
End If
Loop
End Sub

执行下面的程序，单击命令按钮Command1，则数组元素A(2，1)的内容是______，A(1，2)的内容是______，A(3，1)的内容是______，A(1，3)的内容是______。
Option Explicit
Option Base 1
Private A(3, 3) As Integer
Private Sub Command1_Click()
Dim B(4)As Integer, i As Integer, k As Integer, t As Integer
For i=2 To 4
B(i)=i-1
Next i
B(1)=2
For i=1 To 2
t=A(B(1), B(4))
A(B(1), B(4))=A(B(2), B(1))
A(B(2), B(1))=A(B(3), B(2))
A(B(3), B(2))=A(B(4), B(3))
A(B(4), B(3))=t
Next i
For i=1 To 3
For k=1 To 3
Print A(i, k);
Next k
Print
Next i
End Sub
Private Sub Form_Load()
Dim i As Integer, j As Integer, k As Integer
k=1
For i=1 To 3
For i=1 To 3
A(i, j)=k
k=k+1
Next i
Next j
End Sub

执行下面的程序，单击Command1按钮，则窗体上显示的a(3，1)的值为______，a(1，2)的值为______。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim A(3, 3) As Integer, i As Integer, j As Integer
For i=1 To 3
For j=1 To 3
A(i, j)=j*10+i
Next j
Next i
Call ExChange(A)
End Sub
Private Sub ExChange(X() As Integer)
Dim i As Integer, j As Integer, t As Integer
For i=1 To 2
For j=1 To 4-i
t=X(i, j)
X(i, j)=X(4-i, 4-j)
X(4-i, 4-j)=t
Next j
Next i
For i=1 To 3
For j=1 To 3
Print X(i, j);
Next j
Print
Next 1
Print
End Sub

执行下面的程序，单击Command1按钮，窗体最后一行内容是______，共显示了______行。
Option Explicit
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 10 Step 2
Call Sub1(i)
Next i
End Sub
Private Sub Sub1(a As Integer)
Static b As Integer
b=b+1
If(a+b) Mod 3=0 Then
Print a; b
Else
Call Sub1(a+1)
End If
End Sub

执行下面的程序，单击Command1按钮，在Text1中输入“131352534”，则在窗体上显示的第一行内容是______，第二行内容是______，最后一行内容是______。
Option Explicit
Option Base 1
Private Sub Command1_Click()
Dim s As String, i As Integer, a()As Integer
s=Text1.Text
For i=1 To Len(s)
ReDim Preserve a(i)
a(i)=Val(Mid(s, i, 1))
Next i
Call Sub1(a)
End Sub
Private Sub Sub1(a() As Integer)
Dim i As Integer, j As Integer, k As Integer
i=2
Do Until i＞=UBound(a)
k=i-1
Do Until a(i-1)＞a(i)
i=i+1
Loop
For j=k To i-1
Print a(j);
Next j
Print
i=i+1
Loop
End Sub

执行下面的程序，单击命令按钮Command1后，窗体上显示的第一行内容是______，第二行内容是______，最后一行内容是______。
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
n=4
Print F1(n)
End Sub
Private Function F1(ByVal n As Integer)As Integer
Static x As Integer
If n＜16 Then
n=n+10
F1=F1(n-4)+n
Else
F1=n
End If
x=2*x+1
Print F1, x
End Function

答题卡