知识点：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
Copyright ©2010-2026 生活日记网 用日志记录点滴生活！ 考试试题频道。 网站地图 手机版
用日记记录生活中的点点滴滴，等老了我们一起来把它回味......写日记
网站备案/许可证号：鲁ICP备17000595号-40