swz 发表于 2008-6-29 22:40

老鸟请进

[img]http://hi.bccn.net/attachment/200806/29/265433_1214748337FScB.jpg[/img]


[size=4]简单代码
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开头的貌似小数的小数，如：[/size]
[img]http://hi.bccn.net/attachment/200806/29/265433_1214748326RYTt.jpg[/img]

[size=4]2.若定义sum为double则输入小数的结果为：[/size]
[img]http://hi.bccn.net/attachment/200806/29/265433_1214748333Tn21.jpg[/img]

[b][size=6]愿能者指点完善之，因为小鸟想飞的高一些。。。。[/size][/b]

三断笛 发表于 2008-6-30 00:21

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

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

永夜的极光 发表于 2008-6-30 08:02

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

jxyga111 发表于 2008-6-30 08:14

用format

swz 发表于 2008-6-30 12:28

小鸟我懂啦

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

页: [1]

编程论坛