回答如下:
創(chuàng)新互聯(lián)公司專(zhuān)注為客戶(hù)提供全方位的互聯(lián)網(wǎng)綜合服務(wù),包含不限于成都做網(wǎng)站、成都網(wǎng)站建設(shè)、康巴什網(wǎng)絡(luò)推廣、小程序設(shè)計(jì)、康巴什網(wǎng)絡(luò)營(yíng)銷(xiāo)、康巴什企業(yè)策劃、康巴什品牌公關(guān)、搜索引擎seo、人物專(zhuān)訪(fǎng)、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等,從售前售中售后,我們都將竭誠(chéng)為您服務(wù),您的肯定,是我們最大的嘉獎(jiǎng);創(chuàng)新互聯(lián)公司為所有大學(xué)生創(chuàng)業(yè)者提供康巴什建站搭建服務(wù),24小時(shí)服務(wù)熱線(xiàn):18980820575,官方網(wǎng)址:www.cdcxhl.com
如:
For i=0 to 999 ?'這里省略Step說(shuō)明步長(zhǎng)為1
循環(huán)體
Next i
說(shuō)明從0到999,循環(huán)1000次。
又如:
For i=20 to 0 Step -2
循環(huán)體
Next i
說(shuō)明從20到0,以步長(zhǎng)為-2,循環(huán)10次
for語(yǔ)句是循環(huán)語(yǔ)句,它的格式是:
For 變量=初值 To 終值 〔Step 步長(zhǎng)]
循環(huán)體
Next 變量
擴(kuò)展資料:
VB的用途
開(kāi)發(fā)圖形用戶(hù)界面 (GUI) 的方法。不需編寫(xiě)大量代碼去描述界面元素的外觀(guān)和位置,而只要把預(yù)先建立的對(duì)象add到屏幕上的一點(diǎn)即可。如果已使用過(guò)諸如 Paint 之類(lèi)的繪圖程序,則實(shí)際上已掌握了創(chuàng)建用戶(hù)界面的必要技巧。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolit Instruction Code) 語(yǔ)言,一種在計(jì)算技術(shù)發(fā)展史上應(yīng)用得最為廣泛的語(yǔ)言。
Visual Basic 在原有BASIC 語(yǔ)言的基礎(chǔ)上進(jìn)一步發(fā)展,至今包含了數(shù)百條語(yǔ)句、函數(shù)及關(guān)鍵詞,其中很多和 Windows GUI 有直接關(guān)系。
專(zhuān)業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其它任何 Windows 編程語(yǔ)言的功能,而初學(xué)者只要掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。
Visual Basic 不僅是 Visual Basic 編程語(yǔ)言。Visual Basic 編程系統(tǒng),MicrosoftExcel 的Appications Edition,Microsoft Access和Windows的許多其他應(yīng)用程序都使用這一語(yǔ)言
Visual Basic Scripting Edition (VBScript) 是廣泛使用的腳本語(yǔ)言,它是 Visual Basic 語(yǔ)言的子集。這樣,在學(xué)習(xí) Visual Basic 中得到的經(jīng)驗(yàn)可應(yīng)用到所有這些領(lǐng)域中。
從開(kāi)發(fā)個(gè)人使用或小組使用的小工具,到大型企業(yè)應(yīng)用系統(tǒng),甚至通過(guò)Internet 的遍及全球分布式應(yīng)用程序,都可在 Visual Basic 提供的工具中各取所需。
參考資料:百度百科:VB
dim i
for i=2 to 1
msgbox("*")
next
語(yǔ)法沒(méi)問(wèn)題,這應(yīng)該在winform里面能夠調(diào)試成功,顯示運(yùn)行框,但是在web application里面就不能出現(xiàn)彈出信息框了,在網(wǎng)頁(yè)上要出現(xiàn),建議用response.write("scriptalert('***')/script").
for i=100 to 1 這樣的語(yǔ)句在VB9.0后是支持的。樓下的,不要天天抱著VB6啃。
你先新建一個(gè)控制臺(tái)應(yīng)用程序,然后全部復(fù)制就行了,用 Ctrl + F5 調(diào)試
Module Module1
Sub Main()
Dim temp As String = "*"
Dim i, j As Short
For i = 1 To 5 Step +2
For j = 1 To i
Console.Write("{0} ", temp)
Next j
Console.WriteLine("")
Next i
Console.ReadLine()
End Sub
End Module
其實(shí)你這樣不就好了
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a As String = "*" vbCrLf "* * *" vbCrLf "* * * * *"
MessageBox.Show(a)
End Sub
多方便