问题标题: 兴安科技对VBA语言探索的第一步

Question

0

已解决

兴安科技开发组官方

初级守护

功能简易的计算器，操作方法：

打开你们的Excel，找到选项卡“**工具”

单击“查看代码”

把代码粘贴进去，然后单击上方一个绿箭头即可。

Sub XA_VBA_JSQ()
    Dim a, b As String
    Dim x, y As Double
    x = InputBox("请输入第一个数", "XAScience Calculator")
    y = InputBox("请输入第二个数", "XAScience Calculator")
    b = InputBox("请输入运算符" & Chr(13) & "1- +" & Chr(13) & "2- -" & Chr(13) & "3- *" & Chr(13) & "4- /", "XAScience Calculator")
    If b = "1" Then MsgBox (x + y)
    If b = "2" Then MsgBox (x - y)
    If b = "3" Then MsgBox (x * y)
    If b = "4" Then MsgBox (x / y)
End Sub

酷町豆代码分享其他 5条评论 3 年，1 月前