怎么搞的救命

Question

dim a,b,c
a=inputbox("请输入计算的数字")
b=inputbox("加多少数字")
c=a+b
msgbox(c)我第一次输入的是 100
第二次输入的是 200他显示的结果是 100200  不相加

Answer 1

a=inputbox("请输入计算的数字") 
b=inputbox("加多少数字") 
c=cdbl(a)+cdbl(b) 
msgbox(c)

Answer 2

    
    Dim a As Single
    Dim b As Single
    Dim c As Single
    a = InputBox("请输入计算的数字")
    b = InputBox("加多少数字")
    c = a + b
    MsgBox (c)

Answer 3

1楼和4楼的都可以~
主要是你的定义类型不对
dim a,b,c 
这样这3个数都是变体了~
所以才会输出不相加！
1楼是转换了输入的字符，4楼是直接定义了输入的变量类型，所以不会出错！

Answer 4

通过楼上的我重新表达了一下
dim a,b,c 
a=inputbox("请输入计算的数字") 
b=inputbox("加多少数字") 
c=CSng(a)+CSng(b) 
msgbox(c) 

Answer 5

dim a,b,c 
a=inputbox("请输入计算的数字") 
b=inputbox("加多少数字") 
c=val(a)+val(b)
msgbox(c) 

Answer 6

不同意14 楼 xrongzhen的看法,由Visual Basic 会自动完成任何必要的转换,一个好的代码,应该是变量明确定义且有恰当的作用域.如果所有变量都为Variant变体,不但系统内存开销大,而且就如xrongzhen 的回复中所说但须避免落入陷阱.
以下摘自MSDN:
数据类型概述
以下表格显示所支持的数据类型，以及存储空间大小与范围。
数据类型  存储空间大小 范围 
Byte 1 个字节 0 到 255 
Boolean 2 个字节 True 或 False 
Integer  2 个字节 -32,768 到 32,767 
Long
(长整型) 4 个字节 -2,147,483,648 到 2,147,483,647 
Single 
(单精度浮点型) 4 个字节 负数时从 -3.402823E38 到 -1.401298E-45；正数时从 1.401298E-45 到 3.402823E38 
Double 
(双精度浮点型) 8 个字节 负数时从 -1.79769313486232E308 到 
-4.94065645841247E-324；正数时从4.94065645841247E-324 到 1.79769313486232E308 
Currency 
(变比整型) 8 个字节 从 -922,337,203,685,477.5808 到 922,337,203,685,477.5807 
Decimal 14 个字节 没有小数点时为 +/-79,228,162,514,264,337,593,543,950,335，而小数点右边有 28 位数时为 +/-7.9228162514264337593543950335；最小的非零值为 +/-0.0000000000000000000000000001 
Date 8 个字节 100 年 1 月 1 日 到 9999 年 12 月 31 日 
Object 4 个字节 任何 Object 引用 
String 
(变长) 10 字节加字符串长度 0 到大约 20 亿 
String
(定长) 字符串长度 1 到大约 65,400 
Variant
(数字) 16 个字节 任何数字值，最大可达 Double 的范围 
Variant
(字符) 22 个字节加字符串长度 与变长 String 有相同的范围 
用户自定义
（利用 Type） 所有元素所需数目 每个元素的范围与它本身的数据类型的范围相同。 
注意 任何数据类型的数组都需要 20 个字节的内存空间，加上每一数组维数占 4 个字节，再加上数据本身所占用的空间。数据所占用的内存空间可以用数据元数目乘上每个元素的大小加以计算。例如，以 4 个 2 字节之 Integer 数据元所组成的一维数组中的数据，占 8 个字节。这 8 个字节加上额外的 24 个字节，使得这个数组所需总内存空间为 32 个字节。
包含一数组的 Variant 比单独的一个数组需要多 12 个字节。

Answer 7

呵呵，摘这段话只是想给楼主说 ：缺省为变体变量，如果对 Variant 变量进行数学运算或函数运算，则 Variant 必包含某个数。    Dim a, c
    Dim b As Integer
    b = 5
    a = InputBox("请输入计算的数字")
    'b = InputBox("加多少数字")
    c = a + b
    MsgBox (c)+加号同时还是字符串连接    dim a,b,c 
    a=inputbox("请输入计算的数字") 
    b=inputbox("加多少数字") 
    c=a*b  '把+换成*号 
    msgbox(c) 

Answer 8

variant 存储超长字符串倒不错,20亿的长度,一般不会超限..