2011年江苏省计算机二级VB试题库 (10)

End Sub 53．执行下面的程序，单击窗体，则在窗体上显示的第一行是 （101） ，第二行是 （102） ，第三行是 （103） Private Sub Form_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)=(I-1)*2+j Next J Next i

For j=1 To 3 For I=j To 3 Print a(j, i); Next i Print Next j End Sub

54．执行下面的程序，单击命令按钮Command1，则窗体上显示的第一行是 （104） ，第二行是 （105） ，第三行是 （106） 。

Private Sub Command1_Click() Dim S As String, t As String Dim k AS Integer, m AS Integer s=\ k=1: m=k

For k=1 To Len(s) Step m+1

t=t & Chr(Asc(Mid(s, m, 1))+k) k=k+1

If Mid(s, k, 1)= \ Exit For M=m+k Print t Next k Print m End Sub

55．执行下面的程序，单击窗体，在立即窗口上显示的第二行是 （107） ，第三行是 （108） Option Explicit

Dim A As Integer

Private Sub Form_Click() Dim B As Integer Dim D As Integer A=1:B=2

D=fun(A, fun(A, B)) Debug. Print A, B, D End sub

Private Function fun(K As Integer, N As Integer)As Integer Debug. Print K, N,

41

K=N+A+K N=K+A+N fun=K+N

Debug. Print fun End Function

56．执行下面的程序，如果不选中复选框Check1，单击命令按钮Command1，则在文本框Text1中显示的变量a的值是 （109） ，b的值是 （110） ，r的值是 （111） ；如果选中复选框Check1，单击命令按钮Command1，则文本框Text1中显示内容是 （112） (图l为本程序设计界面)。

Private Sub Command1_Click() 图 １ Dim a As Integer, b As Integer, r As Integer a=27: b=12

If Check1. Value=0 Then r=gcd(a, b)

Text1=\＆ CStr(a) & \ ElseIf Check1. Value=1 Then r=gcd((a), (b))

Text1=\ End If End Sub

Private Function gcd(x As Integer, Y As Integer)As Integer Dim r As Integer r=x Mod Y Do While r<>0 X=Y: Y=r r=X Mod Y Loop gcd=Y End Function 57．下面程序的功能是随机产生20个两位数，从中找出最大的元素和最小的元素，请在空格处填入相应的语句，使之完成上述功能。

Option Explicit Option Base 1

Private Sub Command1_Click() Dim D(20) As Integer, I As Integer Dim Max As Integer, Min As Integer Randomize For I=1 to 20

D(i)= （113） Print D(i); Next I Print

42

Max = D(1): Min = D(1) For I=2 To 20

If D(i) > Max Then （114） ElseIf （115） Then Min = D(i)

End If Next I

Print \最大数是：\Print \最小数是：\End Sub

58．下面程序的功能是：将以“12；3；15”形式输入的字符串分解为数字12、3、15，分别赋给3个数组元素，并对其进行简单运算(图2为本程序执行画面)。

Private Sub Command1_Click() Dim a(3) As Integer, i As Integer Dim n As Integer Dim S As String s= （116） For i=l To 2

n=InStr(s, \ a(i)=Left(s, n-1) S= （117） Next I

（118）

Text2. Text=a(1)*a(2)+a(3)

End Sub 图 2

59．本程序是找零巧数。所谓零巧数是指具有下述特性的四位正整数；其百位数为0，如果去掉0，得到一个三位正整数，而该正整数乘以9，等于原数。例如，2025=225×9，所以2025是零巧数(图3)。

Private Function Change(s As String)As String Dim P As String, i As Integer For i=1 To Len(s) If i<>2 Then P= （119） End if Next i

Change=P End function

Private Sub Command1_Click() Dim i As Integer, s As String For i=1000 To 9999 S= （120）

If Mid(s, 2, 1)= \

If Val(Change(s))*9= （121） Then 图 3

43

Text1=text1 & s & change(s) & \

End If

End If Next i End Sub

60．下述程序的功能是实现矩阵的转置（即行列互换）。完善程序。 Option Explicit Option Base 1

Private Sub Command1_Click()

Dim I As Integer, j As Integer, D1() As Integer, D2() As Integer Dim m As Integer, n As Integer M=InputBox(\输入数组行数\N=InputBox(\输入数组列数\

（122） D1(m, n) As Integer, D2(n, m) As Integer For I=1 To m For j=1 To n

D1(I,j)= （123） Print D1(I,j); Next j Print

Next I

For I=1 To （124） For j=1 To （125） D2(j,I)=D1(I,j) Next j Next I

For I=1 To n For j=1 To m Print D2(I,j); Next j Print Next I End Sub

61．下列程序运行后输出结果是 （126） 。 Private Sub Form_Click()

K=1

For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S

End sub 62．运行下面的程序，当单击窗体时，文本框 Text1 中的内容是 （127） ，文本框 Text2 中的内容是 （128） 。 Private Sub Form_Click()

Dim St As String

Dim St1 As String, St2 As String

44

St = \

Call Change_String(St, St1, St2) Text1.Text = St1 Text2.Text = St2 End Sub

Private Sub Change_String(S As String, St1 As String, St2 As String) Dim tem As String, i As Integer For i = 1 To Len(S) tem = Mid(S, i, 1) If tem = \ St1 = St1

St2 = St2 & \

ElseIf tem = \

St1 = St1 & \ Exit For

Else

St1 = St1 & tem St2 = St2 & tem

End If Next i End Sub 63．执行下面程序，单击命令按钮Command1 ，则在窗体上显示的第一行是 （129） ，第二行是 （130） ，第三行是 （131） 。

Private Sub Command1_Click( )

Dim s_data As Integer, d_data As String, k As Integer, p As String s_data = 29

Do Until s_data <= 5

p = s_data Mod 5 d_data = d_data & p s_data = s_data \\ 5

Loop

d_data = d_data & s_data Print s_data Print d_data p = \

For k = Len(d_data) To 1 Step -1

p = p & Mid(d_data, k, 1)

Next k Print p End Sub

64．执行下面程序，从键盘输入3，程序运行结束后，A(1, 1)的值是 （132） ，A(2, 2) 的值是 （133） ；A(3, 3)的值是 （134） 。 Private Sub Form_Click()

Dim I As Integer, J As Integer, K As Integer

45