ÓÃ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

---

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

---

¾º