用VB写一简单程序。 - VB / 基础类

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

---

公式：s=(1+999)*500/2 别的代码会自己写了吧

---

for i = 1 to 999 step 2
  sum = sum + i
next i
msgbox sum

---

dim i as integer
dim S as integer

S=0
for i=0 to 500
  S=S+(2*i-1)
next

---

rs+=sql.executeQuery("SELECT * from da_jnwjb WHERE tmh LIKE '"%+s[0]+"%' ");
rs+=sql.executeQuery("SELECT * from da_jnwjb WHERE tmh LIKE '"%+s[1]+"%' ");
rs+=sql.executeQuery("SELECT * from da_jnwjb WHERE tmh LIKE '"%+s[0]+s[1]+"%' ");

---

Private Sub Form_Load()
  Show
  Dim i As Integer
  For i = 1 To 1000 Step 2
  s = s + i
  Next i
  Print s
End Sub

---

VB code:

Private Sub Command1_Click()
Dim a As Long, c As Integer
Dim b As Integer: b = 1
While b <= 999
a = a + b
b = b + 2
Wend
MsgBox a
End Sub

---

Private Sub Command1_Click() 
Dim a As Long, c As Integer  
Dim b As Integer
b = 1 

While b <= 999 
a = a + b 
b = b + 2 
 Wend  
MsgBox a 
End Sub

---

................

---

竞