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

最新推荐文章于 2025-04-03 14:14:29 发布

寒泉Hq

最新推荐文章于 2025-04-03 14:14:29 发布

阅读量3.3w

点赞数 2

分类专栏： vb

本文链接：https://blog.csdn.net/sinat_42483341/article/details/89367620

版权

vb 专栏收录该内容

11 篇文章

订阅专栏

实验内容

掌握使用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 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