vbs运行结果为什么不一致？

为何两种运行结果不一样？
第一种：

Dim a,b,c
a=inputbox("a是：","输入半径")
b=Inputbox("b是：","输入半径")
c=a*2+b*2
msgbox(c)

第二种：

Dim a,b,c
a=inputbox("a是：","输入半径")
b=Inputbox("b是：","输入半径")
c=(a+b)*2
msgbox(c)

第一种运行结果：

第二种运行结果：

为什么会出现不一样的结果？

c=(a+b)*2
因为 ab是字符串，所以是字符串相加
当输入1和2的时候a+b得到了12
可以这么写

c=(val(a)+val(b))*2

你用的是字符串输入，而字符串相加自然而然得不到想要的结果
这个字符串问题在python里也有，这里如果是两个字符串相加的话就会，把他们俩连在一起，比如1+2=12，5+19=519,10+10=1010……
解决方法是：把字符串转化成数值
具体改法：

Dim a,b,c
a=inputbox("a是：","输入半径")
b=Inputbox("b是：","输入半径")
c=(val(a)+val(b))*2
msgbox(c)

我上网还帮你搜到了一个VBS很好的讲解视频，讲的超级棒，你可以看看，我觉得应该对你有所帮助：

• 这个问题的回答你可以参考下: https://ask.csdn.net/questions/347286
• 我还给你找了一篇非常好的博客，你可以看看是否有帮助，链接：VB6.0中提示：该部件的许可证信息没有找到，在设计环境中，没有合适的许可证使用该功能”的解决办法
• 除此之外, 这篇博客: 模块加载失败请确保该二进制存储在指定路径中中的 vb加滚轮  不墨迹直接，进入主题。 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  

• 1.复制 http://download.microsoft.com/download/e/f/b/efb39198-7c59-4ace-a5c4-8f0f88e00d34/vb6mousewheel.exe  下载下来

  2.解压，只有一个VB6IDEMouseWheelAddin.dll 有用，其它都删了吧。
  3.把VB6IDEMouseWheelAddin.dll复制到C:\windows\system32 里面去。

  
  4.开始按钮+R 输入cmd ，再把下面的输入进去 ： regsvr32 C:\windows\system32\VB6IDEMouseWheelAddin.dll   切记32  和C    之间有 “ 空格"       ！！！                                      

第一种在乘的时候会自动将字符串转换为数进行计算，所以得到正确的结果。
第二种先进行的是字符串相加操作，"1"+"2"="12"。