Question

编写Transact-SQL程序计算1+2+3+……+100的和

Answer 1

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 --输出结果

Answer 2

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