vb循环 Do While…Loop 语句/Do Until…Loop语句

实验内容

1. 掌握使用Do While…Loop /Do Until…Loop语句进行循环控制
2. 从页面输入一个值n，计算1+2+3+4+。。。+n的和（分别用Do While…Loop /Do Until…Loop语句做一遍）
3. 从页面输入一个值n，计算n!的值（分别用Do While…Loop /Do Until…Loop语句做一遍）
4. 编写实验报告。

代码

Do While…Loop 版本：

Do Until…Loop版：

while循环

Private Sub Command1_Click()

    Dim i As Double
    Dim mysum As Double
    Dim endnum As Double
    endnum = Val(Text1.Text)
       
    Do While i < endnum
        i = i + 1
        mysum = mysum + i
    Loop
    Text3.Text = mysum
    
End Sub

Private Sub Command2_Click()

    Dim i As Double
    Dim mymul As Double
    mymul = 1
    Dim endnum As Double
    endmul = Val(Text2.Text)
       
    Do While i < endmul
        i = i + 1
        mymul = mymul * i
    Loop
    Text4.Text = mymul

End Sub

until循环

Private Sub Command1_Click()

    Dim i As Double
    Dim mysum As Double
    Dim endnum As Double
    endnum = Val(Text1.Text)
       
    Do Until i = endnum
        i = i + 1
        mysum = mysum + i
    Loop
    Text3.Text = mysum
    
End Sub

Private Sub Command2_Click()

    Dim i As Double
    Dim mymul As Double
    mymul = 1
    Dim endnum As Double
    endmul = Val(Text2.Text)
       
    Do Until i = endmul
        i = i + 1
        mymul = mymul * i
    Loop
    Text4.Text = mymul

End Sub