K=1
Do Until x=num
P=P-2 x=x+p K=k+1 Loop
Print k; p
End Sub
25．执行下面的程序，单击窗体，则在窗体上显示的第一行是 （59） ，第二行是 （60） ，第三行是 （61） 。 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) = (j - 1) * 2 + i Next j Next i
For i = 1 To 3 For j = 1 To 3 Print a(i, j); Next j Print Next i End Sub
26．执行下面的程序，在窗体上输出结果的第一行是 （62） ，第二行是 （63） 。 Private Sub Form_Click()
Dim n As Integer, m As Integer Dim s As String, t As String s = \ n = 3: m = n
For n = 1 To Len(s) Step m + 1
t = t & Chr(Asc(Mid(s, m, 1)) + n) n = n + 1
If Mid(s, n, 1) = \ m = m + n Print t Next n Print m End Sub
27．执行下面的程序后，A(1,1)值是 （64） ，A(2,2)值是 （65） ，A(3,3)值是（66） 。
Private Sub form_click()
Dim a(3, 3) As Integer, i As Integer Dim j As Integer, n As Integer For i = 1 To 5
If i <= 2 Then For j = 1 To i n = n + 1
a(j, i - j + 1) = n Next j Else
For j = 1 To 6 - i n = n + 1
a(i - 3 + j, 4 - j) = n Next j End If Next i End Sub
28．执行下面的程序，在窗体上显示的输出结果的第一行是 （67） ，第二行是 （68） ，第四行是 （69） 。
Private Sub Form_Click()
Dim a(2, 2) As Integer, i As Integer, j As Integer Dim k As Integer For i = 1 To 2 For j = 1 To 2
a(i, j) = (i - 1) * 2 + j Print a(i, j); Next j Print Next i Print
k = (i - 1) * 2 For i = 1 To 2 For j = 1 To 2 a(i, j) = k k = k - 1 Print a(i, j); Next j Print Next i End Sub 29．执行下面程序，当单击Command1后，列表框中显示的第一行是 （70） ，第二行是 （71） ，第三行是 （72） 。
Private Sub Command1_Click()
Dim x As Integer, k As Integer x = 221 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
List1.AddItem Str(x) End Sub
30．执行下面的程序，在窗体上显示的输出结果的第一行是 （73） ，第二行是 （74） 。
Option Explicit
Private Sub Form_Click()
Dim m As Integer, n As Integer, k As Integer n = -2
For m = 6 To 1 Step n m = m + 1 n = n - m k = k + 1 Next m Print k Print n End Sub
31．执行下面的程序，单击窗体时，在窗体上输出的第二行是 （75） ，第三行是 （76） 。
Private Sub Form_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) = \ m = m + k Print t Next k Print m End Sub
32．执行下面程序，如果连续三次单击窗体，数组元素A（3）的值是 （77） ，A（6）的值是 （78） 。A数组共有 （79） 个元素；
Option Base 1
Private Sub Form_Click()
Static a() As Integer, k As Integer Dim i As Integer, n As Integer n = k k = k + 2
ReDim Preserve a(k) i = n + 1
Do While i <= k a(i) = i * k + 1 i = i + 1 Loop
For i = 1 To k Print a(i); Next i Print End Sub 33．执行下面的程序，单击命令按钮1，则在窗体上显示的第一行是 （80） ，第二行是 （81） ，第三行是 （82） 。
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 Print Str(k) Else
k = k + 1 End If Loop End Sub
34．执行下面的程序，当单击窗体时，显示在窗体上第一行的内容是 （83） ，第二行的内容是 （84） 。
Private Sub Command1_Click()
Dim s As String, i As Integer, s1 As String, s2 As String Const Ch As String = \ s = \.30\ For i = 1 To Len(s)
If InStr(Ch, Mid(s, i, 1)) = 0 Then s1 = Mid(s, i, 1) & s1 Else
s2 = s2 & Mid(s, i, 1) End If Next i Print s1 Print s2 End Sub 35．执行下面程序，当单击Command1后，则在窗体上输出的第一行是 （85） ，第二行是 （86） 。
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) = \ m = m + k Print t Next k Print m End Sub
36．执行下面的程序，当单击窗体时，显示在窗体上第一行的内容是 （87） ，第三行的内容是 （88） ，第五行是 （89） 。
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(\ i = 1
Do While i <= Len(S) S1 = Mid(S, I, 1) If S1 >= \ j = Val(S1) n(j) = n(j) + 1 End If i = i + 1 Loop For j = 0 To 9 Print j; \ Next j End Sub 37.下列程序
Private Sub Form_Click() x = Val(InputBox(\ Print fny(x) End Sub
Private Function fny(x) If x > 0 Then fny = 1
ElseIf x = 0 Then fny = 0 Else
fny = -1 End If