知识点：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