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

江苏省二级VISUAL BASIC-1

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

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

第二部分 Visual Basic程序设计

二、填空题

执行下面的程序，单击Command1按钮后，列表框上显示的第一个列表项内容是______，最后一个列表项内容是______。
Option Explicit
Private Sub Command1_Click()
Dim st As String, p As String*1, i As Integer, js As Integer
st="12233"
p=Mid(st, 1, 1)
js=1
i=1
Do
i=i+1
If Mid(st, i, 1)=p Then
js=js+1
Else
List1.AddItem p &"："& js
p=Mid(st, i, 1)
js=1
End If
Loop While i＜Len(st)
List1.AddItem p &"："& js
End Sub

执行下面的程序，在“输入：”文本框Text1中输入“12，3，5，18，9”后单击“输入数组”按钮Command1，则数组元素a(2)的值是______，在单击“数组处理”按钮Command2后数组元素a(2)的值变为______。程序参考界面如下图所示。

Option Explicit
Option Base 1
Dim a()As Integer "定义模块级数组
Private Sub Command1_Click() "输入数组
Dim i As Integer, st As String, j As Integer
st=Text1.Text
Do Until InStr(st, ",")=0
i=InStr(st, ",")
j=j+1
ReDim Preserve a(j)
a(j)=Val(Left(st, i-1))
st=Right(st, Len(st)-i)
Loop
ReDim Preserve a(j+1)
a(j+1)=st
End Sub
Private Sub Command2_Click() "数组处理
Dim i As Integer, t As Integer, j As Integer
For i=2 To UBound(a)
If a(i)＞a(1)Then
t=a(i)
For j=i To 2 Step-1
a(j)=a(j-1)
Next j
a(1)=t
End If
Next i
For i=1 To UBound(a)
Text2.Text=Text2.Text&Str(a(i))
Next i
End Sub

执行下面的程序，单击命令按钮Command1后，窗体显示的第一行内容是______，第二行内容是______，第三行内容是______。
Option Explicit
Dim K As Integer
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A=11:B=2
K=Fun((A), B)+Fun(A, A)
Print K
End Sub
Private Function Fun(N As Integer, M As Integer)As Integer
N=N\2
K=K+N
If N Mod 2＜＞0 Then
N=N+1
End If
M=M+K
Fun=M+N
Print M, N
End Function

执行下面的程序，单击Command1按钮，则在窗体上显示的第一行内容是______，第二行内容是______，最后一行内容是______。
Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As String
a=27
Do
b=fun(a)
a=a\5
Loop Until a=0
Print b
End Sub
Private Function fun(n As Integer)As String
Static s As String
s=CStr(n Mod 5)&s
fun=s
Print s
End Function

执行下面的程序，单击命令按钮Command1后，则数组元素A(2，1)的值是______，A(3，1)的值是______，A(3，3)的值是______，第一行的输出内容是______。
Private Sub Command1_Click()
Dim A(3, 3) As Integer, I As Integer, J As Integer, K As Integer
I=1:J=3
K=1
A(I, J)=K
For K=2 To 9
If I+1＜=3 And J+1＜=3 Then
I=I+1
J=J+1
ElseIf I+1＞3 Then
I=1
J=J-1
Elself J+1＞3 Then
J=1
I=I+1
End If
A(I, J)=K
Next
For I=1 To 3
For J=1 To 3
Print Left(A(I, J)&String(3, "0"), 3);
Next
Print
Next
End Sub

执行下面的程序，单击命令按钮Command1后，窗体上显示的第一行内容是______，第二行是______，第三行是______。
Private Sub Command1_Click()
Dim A As Integer, K As Integer
A=1
K=Fun(Fun(A, A), A)
Print "K="; K
End Sub
Private Function Fun(X As Integer, Y As Integer)As Integer
Static K As Integer
K=K+X+Y
X=X+Y
Y=Y+K
Fun=X+Y
Print Fun; X; Y
End Function

执行下面的程序，单击命令按钮Command1后，窗体上显示的第一行内容是______，第二行是______，第四行是______。
Option Base 1
Private Sub Command1_Click()
Dim A
A=Array(1, 1, 1, 1)
Call Sub1(A, 4)
For I=1 To 4
Print A(I)
Next I
End Sub
Private Sub Sub1(X, n As Integer)
If n＞1 Then
For I=1 To n
X(n)=X(n)+1
Call Sub1(X, n-1)
Next I
End If
End Sub

执行下列程序，单击Command1按钮后，列表框上共显示______个列表项，其中第一个列表项内容为______，最后一个列表项内容为______。
Option Explicit
Private Sub Command1_Click()
Dim st As String, p As String*1, i As Integer, js As Integer
st="abbcccdee"
p=Mid(st, 1, 1)
js=1
i=1
Do Until i＞Len (st)
If Mid(st, i, 1)=p Then
js=js+1
Else
List1.AddItem p&":"&js
p=Mid(st, i, 1)
js=1
End If
i=i+1
Loop
List1.AddItem p&":"&js
End Sub

执行下列程序，单击Command1按钮后，窗体上显示的第一行内容是______，第三行内容是______，最后一行内容是______。
Option Explicit
Private Sub Command1_Click()
Dim n As Integer
n=6
Print n; f(n)
End Sub
Private Function f(n As Integer) As single
If n=0 Then
f=0
Else
f=f(n-2)*3+10
End If
Print n; f
End Function

10.

执行下列程序，在文本框Text1中输入“15 5 3 20 11”后，单击“输入数组”按钮后，数组元素A(2)的值为______，数组元素A(3)的值为______，在单击处理数组按钮后，数组元素A(2)的值变为______，数组元素A(3)的值变为______。程序参考界面如下图所示。

Option Base 1
Option Explicit
Dim A() As Integer
Private Sub Command1_Click() "输入数组
Dim I As Integer, St As String, J As Integer
St=Text1.Text
I=InStr(St, "")
Do While I＜＞0
J=J+1
ReDim Preserve A(J)
A(J)=Val(Left(St, I-1))
St=Right(St, Len(St)-I)
I=InStr(St, "")
Loop
ReDim Preserve A(J+1)
A(J+1)=St
End Sub
Private Sub Command2_Click() "处理数纽
Dim I As Integer, T As Integer, J As Integer
For I=2 To UBound(A)
If A(I)＜A(1) Then
T=A(I)
For J=I To 2 Step-1
A(J)=A(J-1)
Next
A(1)=T
End If
Next
For I=1 To UBound(A)
Text2.Text=Text2.Text&Str(A(I))
Next
End Sub

答题卡