用VB写一简单程序。
试用VB程序语言写出完整程序段:求S=1+3+5+7+……+999的值，在此谢谢回帖的朋友们！

[解决办法]

Private Sub Command1_Click()
Dim i As Long
Dim sum As Long
sum = 0
For i = 1 To 999 Step 2

sum = sum + i
Next i

Label1.Caption = sum
End Sub



[解决办法]

VB code

Private Sub Command1_Click()Dim a, b As IntegerDim c As Longa = Me.Text1.Textb = Me.Text2.Textc = 0For i = a To b Step 2 c = c + i Next Me.Text3.Text = cEnd SubPrivate Sub Form_Load()Me.Text1.Text = ""Me.Text2.Text = ""Me.Text3.Text = ""End Sub
[解决办法]
a,b你自己输就是了，在你这个例子中，A=1,B=999,如你需要从1+5+9这样的话，就再加个变量，
Private Sub Command1_Click()
Dim a, b,s As Integer
Dim c As Long
a = Me.Text1.Text
b = Me.Text2.Text
s = Me.text4.Text
c = 0
For i = a To b Step s
  c = c + i
  Next
  Me.Text3.Text = c
End Sub


Private Sub Form_Load()
Me.Text1.Text = ""
Me.Text2.Text = ""
Me.Text3.Text = ""
Me.Text4.Text = ""

End Sub