首先在窗體上畫兩個(gè)控件:TextBox1和Button1
十載的伊金霍洛網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。全網(wǎng)整合營(yíng)銷推廣的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整伊金霍洛建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。成都創(chuàng)新互聯(lián)從事“伊金霍洛網(wǎng)站設(shè)計(jì)”,“伊金霍洛網(wǎng)站推廣”以來,每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
TextBox1用來輸入需要計(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è)變量用來記錄階乘的結(jié)果
Dim count As Integer '定義一個(gè)變量用來記錄需要計(jì)算那個(gè)數(shù)的階乘
Dim i As Integer = 1 '定義一個(gè)數(shù)用來循環(huán)
count = Int(Val(Me.TextBox1.Text)) '把TextBox1的值賦值給count
Do While i = count '下面開始計(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
dim a as integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = a + 1
Label1.Text = a.ToString
End Sub
是指這個(gè)嗎?(變量定義我就不寫了,都是integer或者long,結(jié)果是p)
1,for…next結(jié)構(gòu):
For i=1 to 100
p=p+i
next
2,do…loop結(jié)構(gòu)
第一種:
i=1
do while i=100
p=p+i
i=i+1(如果是.net的話可以改成i+=1)
loop
第二種:
i=1
do
p=p+1
i=i+1(或i+=1)
loop until i100
3,while…wend結(jié)構(gòu)
其實(shí)和do while差不多
i=1
While i=100
p=p+1
i=i+1(或i+=1)
wend
完畢
我就能想起這些
可以加 可以不加 VB.NET編輯器很人性化 都是自動(dòng)完成的 在以前VB語法中是需要加的 在.NET中 即使是在多層嵌套循環(huán)中 只要每個(gè)For 都對(duì)應(yīng)一個(gè)Next 后面加不加變量現(xiàn)在都一樣 也就是說 For i = 1 To 100
Next
與 For i = 1 To 100
Next i
編譯后的結(jié)果是一樣的