首先在窗體上畫兩個控件:TextBox1和Button1
創(chuàng)新互聯(lián)成立于2013年,先為港口等服務(wù)建站,港口等地企業(yè),進(jìn)行企業(yè)商務(wù)咨詢服務(wù)。為港口企業(yè)網(wǎng)站制作PC+手機(jī)+微官網(wǎng)三網(wǎng)同步一站式服務(wù)解決您的所有建站問題。
TextBox1用來輸入需要計算那個數(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 '定義一個變量用來記錄階乘的結(jié)果
Dim count As Integer '定義一個變量用來記錄需要計算那個數(shù)的階乘
Dim i As Integer = 1 '定義一個數(shù)用來循環(huán)
count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值賦值給count
Do While i = count '下面開始計算階乘
Factorial = Factorial * i '計算階乘
i += 1 '自增1
Loop
MessageBox.Show(Int(Val(Me.TextBox1.Text)) "的階乘是:" Factorial, "完成", MessageBoxButtons.OK) '彈出計算結(jié)果
Catch ex As Exception '出錯提示
MessageBox.Show(Err.Description, "出錯了", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
1、while用作連詞時,表示“在…(過程)中,在…期間”。常用來引導(dǎo)時間狀語從句,當(dāng)主句的主語和while所引導(dǎo)的從句的主語一致時。
2、while從句中的主語、謂語往往可以省去。
3、while還可引導(dǎo)讓步狀語從句,意思是“雖然,盡管”,含有對比意味。
4、while表示對比關(guān)系時,意思是“而,然而”。
5、when引導(dǎo)的從句作“當(dāng)…時”或“每逢…”解,從句中的動作既可以和主句中的動作同時發(fā)生,也可以在主句的動作之前或之后發(fā)生。
擴(kuò)展資料
近義詞:as
讀音:英 [?z , ?z]?? 美 [?z , ?z]?
釋義:像,如同,作為。
語法:as用作連詞時,可以用來表示時間,譯為“正當(dāng)…的時候,隨著…,邊…邊…”,引導(dǎo)時間狀語從句。主句可以是主動句,也可以是被動句。當(dāng)兩個主語的動作是同時發(fā)生的時候,主句和從句的謂語動詞都可以用進(jìn)行時態(tài)或一般式,無論動作長短。
例句:
He?has?worked?as?a?diplomat?in?the?US,?Sudan?and?Saudi?Arabia
他曾任駐美國、蘇丹和沙特阿拉伯的外交官。
while為條件循環(huán),for為計數(shù)循環(huán)。一般情況下,WHILE可替代FOR,反之則不然。
本文標(biāo)題:關(guān)于vb.net中while的信息
網(wǎng)頁路徑:http://m.rwnh.cn/article2/dosgoic.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供虛擬主機(jī)、服務(wù)器托管、云服務(wù)器、建站公司、電子商務(wù)、小程序開發(fā)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)