简单代码
Private Sub Command1_Click()
Dim number1 As Single, number2 As Single, sum As Single
number1 = Val(Text1.Text)
number2 = Val(Text2.Text)
sum = number1 + number2
Text3.Text = sum
End Sub


我是小小鸟。。。。。
我的问题来了：
1.上边的程序试验结果不尽人意，输入整数尚可，若输入小数，结果文本框中会出现没有没有0开头的貌似小数的小数，如：


2.若定义sum为double则输入小数的结果为：


愿能者指点完善之，因为小鸟想飞的高一些。。。。

1.用Format
2.两个字符串用VAL转化后相加不会出现你这种结果的,可能是你转成的single型,然后得到single型的和再向double转换时扩展宽度,可能是扩展时扩展部分被填充的是内存的未知数据,

[[it] 本帖最后由 三断笛 于 2008-6-30 00:30 编辑 [/it]]

Text3.Text = format(sum, "0.00")

用format

谢谢老鸟们的不屑指点！谢谢！