执行下面的程序,单击command1,窗体上显示的第一行是(),第二行是(),第四行是(),最后一行是()
Option Explicit
Private Sub Command1_Click( )
Dim n As Integer
n=5
Call test(n)
Print n
End Sub
Private Sub test(ByVal n As Integer)
Dim i As Integer,S As String
If n>0 Then
For i=l To n
S=S & CStr(i)
Next i
Print S
Call test(n-2)
Else
Print "0VER"
EndIf
EndSub
执行下面程序,单击Commandl,则图片框中显示的第一行是(),显示的第二行是() ,最后一行显示的是 () 。
Private Sub Command1_Click( )
Dim a(3,3)As Integer
Dim i As Integer,j As Integer
For i=1 To 3
For j=3 To 1 Step -1
If i>=j Then
a(i,j)=i-j
Else
a(i,j)=j-i
End If
Next j
Next i
For i=1 to 3
For j=3 To 1 Step -1
Picture1.Print a(i,j);
Next j
Picturel.Print
Next i
EndSub
运行下面的程序,单击Cmd1,窗体上显示的第一行是(),第二行是() ,最后一行是()。
Option Explicit
Private Sub Cmd1_Click( )
Dim A As Integer
A=3
Call Sub1(A)
Print A
End Sub
Private Sub Sub1(X As Integer)
X=X*2+1
If X<10 Then
Call Sub1(X)
End If
X=X*2+1
Print X
End Sub
我来回答: