打印本文 
关闭窗口 Private Sub Command1_Click()
Dim a As Integer, s As Integer
a=6 ：s=1
Do
s=s+a
a=a-1
Loop While a > 3
Print s; a
End Sub
打印本文 关闭窗口 | 打印本文 关闭窗口 |
|
| 高校等考试题天天练二级VB]10月21日 | |
| 作者：佚名 文章来源：不详 点击数 更新时间：2008/4/18 14:49:25 文章录入：杜斌 责任编辑：杜斌 | |
|
|
|
|
Private Sub Command1_Click() Dim a As Integer, s As Integer a=6 ：s=1 Do s=s+a a=a-1 Loop While a > 3 Print s; a End Sub |
|
| 打印本文 关闭窗口 |