疑惑？得不到正确的值，高手能解释下吗？

朔方

Sub 输入()
    Dim str1 As String
     Dim str2 As String
      Dim str3 As String
    str1 = InputBox("请输入数值", "数量", "3251 ")
      str2 = InputBox("请输入运算符", "运算符", "+")
      str3 = InputBox("请输入数值", "数量", "45887")
      
     Cells(1, 2) = str1 & str2 & str3
     
End Sub

得到的是  3251 +45887  而不是正确的值49138，Dim str2 As String  ？需要转换成什么格式？

ynzsvt

1. Sub 输入()
   
2. Dim str1 As String
   
3. Dim str2 As String
   
4. Dim str3 As String
   
5. str1 = InputBox("请输入数值", "数量", "3251 ")
   
6. str2 = InputBox("请输入运算符", "运算符", "+")
   
7. str3 = InputBox("请输入数值", "数量", "45887")
   
8. 
   
9. Cells(1, 2) = "=" & str1 & str2 & str3
   
10. 
    
11. End Sub

复制代码

shiruiqiang

String是文本，换成int

朔方

谢谢了，十分感谢

quqiyuan

morpheus126

你这是连基本法都不要了。。。