发布时间 : 星期四 文章江苏省计算机二级vb分章节解析更新完毕开始阅读
X=Y-1+N Y=X+Y-N Fun=X+Y End Function 【答案】（1）10（2）27（3）9
8．执行下面程序，单击按钮Command1，窗体上显示的结果中I的值是____1____，J的值是____2____，K的值是_____3_____。
Option Explicit
Private Sub Command1_Click() Dim I As Integer, j As Integer Dim K As Integer I=1: J=2
K=Fun(I, Fun(I, J))+I+J Print \End Sub
Private Function Fun(A As Integer, ByVal B As Integer)As Integer A=A+B B=A+B Fun=A+B End Function 【答案】（1）11（2）2（3）43
9．本程序的功能是从给定的纯英文字符串中找出最长的一个按字母顺序排列的子串。程序界面参见图1。
Option Explicit
Private Sub Command1_Click() Dim st As String st=Text1
Text2=max_st(st) End Sub
Private Function max_st(st As String)As String
Dim i As Integer, sta As String 图 1 Dim P As String P=Mid(st, 1, 1)
For i=1 To Len(st)-1
If Asc(Mid(st, i+1, 1))-Asc(Mid(st, I, 1))=1 Then
______1______ Else
If Len(P)>1 And Len(p)>Len(sta) Then
Sta=_____2_____
End If
_____3______
End If Next i
If Len(P)>1 And Len(P)>Len(sta) Then ______4_____ E1se
Max_st=sta End If End Function 【答案】（1）P = P + Mid(st, i + 1, 1)（2）p（3）P = Mid(st, i + 1, 1)（4）max_st = P 10．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图2。
Option Explicit
Private Sub Command1_Click()
Dim A(0 To 9) As Integer, I As Long, Flg As Boolean Dim L As Long, J As Integer, Sum As Integer For I=10 To 1000 L=I* I
____1_____
Call ____2____ If Flg then For J=0 To 9
Sum=Sum+A(J) Next J
If Sum=2 Then
List1. AddItem CStr(I) ＆ \＆ Str(L)
End If
End If 图 2 Sum=0 Next I End Sub
Private Sub Sub1(byval X As Long, A()As Integer, BL As Boolean) Dim N As Integer, Idx As Integer, I As Integer BL=False
N=Len(CStr(X)) For I=1 To N／2
If _____3______ Then Exit Sub End If Next I BL=True For I=1 To N
Idx=X Mod 10 _____4______
X=(X\\10) Next I End Sub
【答案】（1）Erase A（2）Sub1(L, A, Flg)（3）Mid(CStr(X), I, 1) <> Mid(CStr(X), N - I + 1, 1)（4）A(Idx) = 1
11．下面程序的功能是随机生成10个不同的两位数，从中找出所有互质数对。若两个数除了1以外没有其他公约数，这两个数就是互质数。其中函数Rec是一个递归函数。程序界面参见图3。
Option Explicit
Private Sub Command1_Click()
Dim A(10)As Integer, I As Integer, J As Integer Dim N As Integer, K As Integer Randomize
A(1)=Int(90*Rnd)+10 Text1=A(1) _____1_____ Do _____2_____
N=Int(90*Rnd)+10 If _____3______ (Text1,CStr(N))=0 Then
Text1=Text1 ＆ Str(N)
K=K+l 图 3 A(K)=N End If Loop
For I=1 To 9
For J=I+1 To 10
If Not Rec(A(I), A(J), 2) Then
List1.AddItem Str(A(I)) ＆ Str(A(J)) End If Next J Next I End Sub
Private Function Rec(N As Integer, M As Integer, K As Integer)As Boolean If K>N Then _____4_____
E1se
If N Mod K=0 And M Mod K=0 Then Rec=True
_____5_____ E1se
_____6______ End If End If End Function 【答案】（1）k=1（2）While K < 10（3）InStr（4）Exit Function（5）Exit Function（6）Rec = Rec(N, M, K + 1)
12．执行下面程序，单击按钮Command1，窗体上显示的第一行是____1_____，第二行是____2____。
Private Sub Command1_Click()
Dim x As Integer, y As Integer, Z As Integer X=6: y=12: Z=20 Print fun1(x, y)
Print fun1(fun1(x, y), z) End Sub
Private Function fun1(a As Integer，b As Integer)As Long Dim Y As Integer Y=a DO
If y Mod b=0 Then Fun1=y
Exit Function Else
y=y +a End If Loop End Function 【答案】（1）12（2）60
13．执行下面程序，单击按钮Command1，窗体上显示的第一行是_____1_____，第二行是____2____。
Option Explicit Dim a As Single
Private Sub Command1_Click() Dim a As Single, b As Integer a=1. 2: b=3 Print fun1(a, b) Print a End Sub
Private Function fun1(x As Single, y As Integer)As Integer Dim i As Integer For i=1 To y x=x*2 a=a+1 Next i Fun1=a End Function 【答案】（1）3（2）9.6
14．执行下面程序后，单击按钮Command1，窗体上第一行显示的内容是____1____，第二行显示的内容是_____2____，第三行显示的内容是____3_____。
Private Sub Command1_Click()
Dim X As Integer, Y As Integer, S As Integer