VBA作业

最新推荐文章于 2022-12-31 19:42:16 发布

洁娃

最新推荐文章于 2022-12-31 19:42:16 发布

阅读量814

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA

本文链接：https://blog.csdn.net/fffffffff128/article/details/102337084

4 篇文章

订阅专栏

这篇博客介绍了三个VBA编程实例：1) 使用do语句和for语句计算1到100的和；2) 计算1到100之间偶数的总和；3) 通过INPUTBOX获取用户输入的华氏温度，转换为摄氏温度并显示结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

以下分别为do语句和for语句写成的模块

Sub oneTo100的和()
    i = 1
    s = 0
    Do While i <= 100
        s = i + s
        i = i + 1
    Loop
    MsgBox ("1累加到100的和为：" & s)
End Sub

Sub oneTo100的和()
    s = 0
    For i = 1 To 100
        s = i + s
    Next
    MsgBox ("1累加到100的和为：" & s)
End Sub

结果显示：
在这里插入图片描述

Sub oneTo100的偶数和()
    s = 0
    For i = 2 To 100 Step 2
        s = i + s
    Next
    MsgBox ("1累加到100的和为：" & s)
End Sub

在这里插入图片描述

Sub 华氏转摄氏()
    f = Val(InputBox("请输入华氏温度")) 'inputbox函数默认返回字符串，使用val函数将其转换为数值
    c = 5 / 9 * (f - 32)
    Debug.Print f
    MsgBox (c)
End Sub

在这里插入图片描述