Question

VB怎么让输入一段表达式,运算得出结果? 如输入"50*80"得到“4000”

∑(゜д゜;) (*′Д`) 紧急求助啊

Answer 1

我现在给出的程序只能实现两个数相加、相减、相乘、相除，希望有所帮助

Private Sub Command1_Click()
a = InputBox("")
Print "表达式："; a
For i = 1 To Len(a)
x = Mid(a, i, 1)
If Not IsNumeric(x) Then
m = Mid(a, 1, i - 1)
n = Mid(a, i + 1, Len(a))
pp = Mid(a, i, 1)
If pp = "+" Then
Print "结果："; Val(m) + Val(n)
End If
If pp = "-" Then
Print "结果："; m - n
End If
If pp = "*" Then
Print "结果："; m * n
End If
If pp = "/" Then
Print "结果："; m / n
End If
End If
Next
End Sub

Answer 2

VB能做么？
我只知道Python这样的动态语言可以