declare @n int,@sum int --声明变量
select @n=100,@sum=0 --给变量赋值
while @n>0 begin --当@n的值为小于等于0时结束循环
set @sum=@sum+@n --累加
set @n=@n-1 --循环条件
end
select @sum --输出结果
Private Sub Command1_Click()
Dim a As Integer
Dim s As Integer
For a = 1 To 100
s = s + a
Next a
Print s
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024