高校等考试题天天练二级VB]10月21日
分类: 计算机
时间: 2023-04-05 16:25:53
作者: 全国等级考试资料网
知识点：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
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