vbs代码

Option Explicit
'定义一个函数，用于计算两个数的和 Function Add(num1, num2) Add = num1 + num2 End Function
'定义一个函数，用于计算两个数的差 Function Subtract(num1, num2) Subtract = num1 - num2 End Function
'定义一个函数，用于计算两个数的乘积 Function Multiply(num1, num2) Multiply = num1 * num2 End Function
'定义一个函数，用于计算两个数的商 Function Divide(num1, num2) If num2 <> 0 Then Divide = num1 / num2 Else MsgBox "除数不能为0" End If End Function
'测试函数的功能 Dim result1, result2, result3, result4 Dim num1, num2
num1 = 10 num2 = 5
result1 = Add(num1, num2) result2 = Subtract(num1, num2) result3 = Multiply(num1, num2) result4 = Divide(num1, num2)
MsgBox "num1 + num2 = " & result1 MsgBox "num1 - num2 = " & result2 MsgBox "num1 * num2 = " & result3 MsgBox "num1 / num2 = " & result4