Visual Basic编程任务：用InputBox取两数并在MsgBox输出其和

完整可运行代码 #

Sub CalculateSum()
    ' 变量声明：存储两个输入数字及求和结果
    Dim num1 As Double, num2 As Double, sumResult As Double
    
    ' 获取第一个数字并转换为数值类型
    num1 = CDbl(InputBox("请输入第一个数字："))
    
    ' 获取第二个数字并转换为数值类型
    num2 = CDbl(InputBox("请输入第二个数字："))
    
    ' 计算两数之和
    sumResult = num1 + num2
    
    ' 弹出消息框显示结果
    MsgBox "两数之和为：" & sumResult, vbInformation, "计算结果"
End Sub

代码逐行解释 #

• Sub CalculateSum()：定义一个可执行的子程序，可在VB编辑器（VB6/Excel VBA等环境）中直接运行。
• Dim num1 As Double, num2 As Double, sumResult As Double：声明三个Double类型变量，支持整数和小数运算，比Integer适用范围更广。
• num1 = CDbl(InputBox("请输入第一个数字："))：InputBox弹出输入对话框获取用户输入（返回字符串），CDbl将其转换为数值类型后赋值给num1。
• num2 = CDbl(InputBox("请输入第二个数字："))：重复上述操作，获取第二个数字。
• sumResult = num1 + num2：执行加法运算，将结果存入sumResult变量。
• MsgBox "两数之和为：" & sumResult, vbInformation, "计算结果"：MsgBox弹出消息框，&用于拼接文本和数值，vbInformation显示信息图标，最后一个参数是消息框标题。

运行说明 #

• 若使用VB6：新建标准模块，粘贴代码后点击运行按钮即可。
• 若使用Excel VBA：打开开发者选项→插入模块→粘贴代码→运行子程序。

内容的提问来源于stack exchange，提问作者Chilling in BFDI