1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub Calculate()
' 用户录入
SELECT_CASE
Select Case 用户输入
case数字
如果是小数以及负数,则提示用户再次输入
如果是整数,就提示用户输入运算符或=
GoTo SELECT_CASE
case运算符
提示用户继续输入数字
GoTo SELECT_CASE
case=
在内部处理运算结果
End Select
' 结果输出
End Sub
Private Sub Calculate()
' 用户录入
Select Case 用户输入
case数字
如果是小数以及负数,则提示用户再次输入
如果是整数,就提示用户输入运算符或=
case运算符
提示用户继续输入数字
case=
在内部处理运算结果
End Select
' 结果输出
End Sub
Private Sub Calculate()
' 用户录入
Select Case 用户输入
case数字
如果是小数以及负数,则提示用户再次输入
如果是整数,就提示用户输入运算符或=
case运算符
提示用户继续输入数字
case=
在内部处理运算结果
' 结果输出
End Sub