Question

求用VB写出：S=1+3+5+7+....+999的值（要详细过程）

Answer 1

什么野虚是VB啊，你段脊让们有没有教握局等差数列啊。有公式可以算的：S=na ［n*(n 1)］/2,a是第一个数，n是项数，这题是500吧

Answer 2

Private Sub Command1_Click()
For i = 1 To 999 Step 2
Sum = Sum + i
Next i
Print Sum
End Sub

Answer 3

Dim a As Single, i As Single
i = (999 + 1) / 2 * (1 + 999)
MsgBox i

Answer 4

Dim s As Integer,i As Integer
s=0
i=1
Do
s=s+i
i=i+2
Loop Until i>塌好悔团正999
Print "S=1+3+5+7+...+999="袜带;s