Vb.net中有多種do循環(huán)語(yǔ)句，貌似都是一樣的，為什么弄那么多？

do ... loop

成都創(chuàng)新互聯(lián)公司提供高防物理服務(wù)器租用、云服務(wù)器、香港服務(wù)器、成都服務(wù)器托管等

do while ... loop

do until ... loop

do ... loop while

do ... loop until

各有不同作用，有的先處理再判斷，有的先判斷再處理

VB.NET 怎樣編寫(xiě)使用Do While 循環(huán)輸出1-10的階乘，我是新手請(qǐng)加上文字說(shuō)明，呵呵，謝謝各位了！

首先在窗體上畫(huà)兩個(gè)控件：TextBox1和Button1

TextBox1用來(lái)輸入需要計(jì)算那個(gè)數(shù)的階乘

雙擊Button1進(jìn)入輸入代碼，代碼如下

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Try

Dim Factorial As Integer = 1 '定義一個(gè)變量用來(lái)記錄階乘的結(jié)果

Dim count As Integer '定義一個(gè)變量用來(lái)記錄需要計(jì)算那個(gè)數(shù)的階乘

Dim i As Integer = 1 '定義一個(gè)數(shù)用來(lái)循環(huán)

count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值賦值給count

Do While i = count '下面開(kāi)始計(jì)算階乘

Factorial = Factorial * i '計(jì)算階乘

i += 1 '自增1

Loop

MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的階乘是：" Factorial, "完成", MessageBoxButtons.OK) '彈出計(jì)算結(jié)果

Catch ex As Exception '出錯(cuò)提示

MessageBox.Show(Err.Description, "出錯(cuò)了", MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

End Sub

vb.net do循環(huán)

你確信只循環(huán)一次嗎？我看不像，在最后添加上一句msgbox jishu1，多半顯示3。

是在第二塊代碼中有問(wèn)題，你應(yīng)該把chaxun4 = xlsheet.Range("l1").Value + 2分別放到兩個(gè)條件句中初始chaxun4變量。

因?yàn)樯弦粋€(gè)Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循環(huán)退出后，下一個(gè)循環(huán)一開(kāi)始就符合退出條件了，所以循環(huán)沒(méi)有進(jìn)行了。

網(wǎng)站標(biāo)題：vb.net循環(huán)do VB 循環(huán)
鏈接分享：http://jinyejixie.com/article20/hejjjo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供營(yíng)銷(xiāo)型網(wǎng)站建設(shè)、網(wǎng)站導(dǎo)航、移動(dòng)網(wǎng)站建設(shè)、做網(wǎng)站、品牌網(wǎng)站建設(shè)、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)