下面程序段执行完毕，窗体上显示的结果是什么？
Dim b As Single,k As Integer
b=0.2
p=100
n=0
Do
p=p*(1+b)
n=n+1
Loop until p>200
Printp,n
对下面程序，单击窗体后，窗体上显示什么内容？
Private Sub Form_Click()
Dim x As Integer,y As Integer,z As Integer
X=1:y=2:z=3
Call sub1(x,y,z)
Call sub1(y,z,x)
Call sub1(y,y,z)
End Sub
Private Sub sub1(byVal x As Integer, y As Integer, z As Integer)
Dim I As Integer
X=2*z
Y=3*z
Z=x+y
Print x,y,z
End Sub
执行下面程序，单击窗体后，窗体上显示的第一行结果是
，第三行结果是
。
Private Sub Form_Click()
Dim Mystr As String
Dim Mystr1 As String
Dim Mystr2 As String
Mystr1 = "B"
For i = 1 To 3
Mystr2 = LCase(Mystr1)
Mystr1 = Mystr1 & Mystr2
Mystr = Mystr & Mystr1
Print Mystr
Mystr1 = Chr(Asc(Mystr1) + i)
Next
End Sub
执行下面程序，窗体上显示的结果是什么？
DimmAsInteger, nAsInteger,kAsInteger
n=20:k=1
For m=1 to n Step k
Print m
n=n-1
k=k+2
Next
Print n,k
……
4、综合题
例题：
编写递归函数求1+2+3+……+m的值。
编程计算100～100000之间，共有多少个整数，满足它的各位数字之和为5。
编程计算20＋21＋22＋23＋???＋210的值。
编程计算100～100000之间，共有多少个整数，满足它的各位数字之和可被3整除。
……
|
