生成一个vbs的计算器脚本

下面是一个简单的VBS计算器脚本：

' 创建输入框并获取用户输入的数字
num1 = InputBox("请输入第一个数字:")
num2 = InputBox("请输入第二个数字:")

' 将用户输入的数字转换为浮点数
num1 = CDbl(num1)
num2 = CDbl(num2)

' 显示计算器的操作选项
operation = MsgBox("请选择操作: " & vbNewLine & "1. 加法" & vbNewLine & "2. 减法" & vbNewLine & "3. 乘法" & vbNewLine & "4. 除法", vbQuestion + vbOKCancel, "计算器")

' 根据用户选择的操作进行计算
Select Case operation
    Case 1
        result = num1 + num2
    Case 2
        result = num1 - num2
    Case 3
        result = num1 * num2
    Case 4
        result = num1 / num2
    Case Else
        MsgBox "无效的操作"
        WScript.Quit
End Select

' 显示计算结果
MsgBox "计算结果为: " & result

要运行此脚本，请将其保存为以.vbs扩展名结尾的文件，然后双击该文件即可。脚本将提示您输入两个数字，并要求您选择要执行的操作。完成后，脚本将显示计算结果