高校等考试题天天练二级VB]10月21日

文章作者 100test 发表时间 2007:03:10 18:04:11
来源 100Test.Com百考试题网

知识点：Do…loop while语句
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