實驗內容

掌握使用Do While…Loop /Do Until…Loop語句進行循環控制

從頁面輸入一個值n，計算1+2+3+4+。。。+n的和（分別用Do While…Loop /Do Until…Loop語句做一遍）

從頁面輸入一個值n，計算n!的值（分別用Do While…Loop /Do Until…Loop語句做一遍）

編寫實驗報告。

代碼

Do While…Loop 版本：

Do Until…Loop版：

while循環

Private Sub Command1_Click()Dim i As DoubleDim mysum As DoubleDim endnum As Doubleendnum = Val(Text1.Text)Do While i < endnumi = i + 1mysum = mysum + iLoopText3.Text = mysumEnd SubPrivate Sub Command2_Click()Dim i As DoubleDim mymul As Doublemymul = 1Dim endnum As Doubleendmul = Val(Text2.Text)Do While i < endmuli = i + 1mymul = mymul * iLoopText4.Text = mymulEnd Sub

until循環

Private Sub Command1_Click()Dim i As DoubleDim mysum As DoubleDim endnum As Doubleendnum = Val(Text1.Text)Do Until i = endnumi = i + 1mysum = mysum + iLoopText3.Text = mysumEnd SubPrivate Sub Command2_Click()Dim i As DoubleDim mymul As Doublemymul = 1Dim endnum As Doubleendmul = Val(Text2.Text)Do Until i = endmuli = i + 1mymul = mymul * iLoopText4.Text = mymulEnd Sub

總結

以上是生活随笔為你收集整理的vb循环 Do While…Loop 语句/Do Until…Loop语句的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。