老鸟请进
简单代码
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则输入小数的结果为：
愿能者指点完善之，因为小鸟想飞的高一些。。。。
