dim i
創(chuàng)新互聯(lián)公司專業(yè)為企業(yè)提供綠園網(wǎng)站建設(shè)、綠園做網(wǎng)站、綠園網(wǎng)站設(shè)計(jì)、綠園網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)與制作、綠園企業(yè)網(wǎng)站模板建站服務(wù),10余年綠園做網(wǎng)站經(jīng)驗(yàn),不只是建網(wǎng)站,更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。
for i=2 to 1
msgbox("*")
next
語法沒問題,這應(yīng)該在winform里面能夠調(diào)試成功,顯示運(yùn)行框,但是在web application里面就不能出現(xiàn)彈出信息框了,在網(wǎng)頁上要出現(xiàn),建議用response.write("scriptalert('***')/script").
for i=100 to 1 這樣的語句在VB9.0后是支持的。樓下的,不要天天抱著VB6啃。
dim sSum as long
for i=1 to 100
if i mod 2 =1 then
sSum=sSum + i
endif
next i
msgbox "1、100的奇數(shù)和為:" sSum,"提示"
==========================================
Sum 是關(guān)鍵字,是個(gè)系統(tǒng)函數(shù)
sSum 只是一個(gè)變量,暈,可以改成別的。
你對(duì)For循環(huán)的理解是完全錯(cuò)誤的!
For循環(huán)的代碼應(yīng)修改為:
For i = 0 To un
ListBox2.Items.Add(ListBox1.Items(i))
Next
就這三行就行了!i的值會(huì)自動(dòng)遞增的,再放i=i+1不但多余,而且會(huì)使i的值按0、2、4、6……遞增,這樣的話ListBox1的第1、3、5……項(xiàng)就被跳過了!另外,i的值是肯定不會(huì)大于un的,所以if i=un then是完全多余的。
Continue For
類似的還有
Continue While
就是你需要的.
跳過后面的內(nèi)容,執(zhí)行下一次循環(huán).
For i As Integer = 1 To 8
Dim TC As CheckBox = Me.Controls("ComboBox" i)
If TC.Checked Then
TextBox1.Text = TextBox1.Text "," TC.Checked.ToString()
End If
Next