标题:[求助]输出格式问题(已解决)
只看楼主
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
结帖率:33.33%
 问题点数:0 回复次数:5 
[求助]输出格式问题(已解决)
我用VB编了一个计算小程序,比如说最后的计算结果为0.123456,可是在label1标签里显示的是.123456,请问怎样设置label1的属性可以让其结果显示为0.123456?还有一个问题,就是怎样才能使计算结果显示为指定的小数位数呢(比如指定为两位:0.12)?谢谢!
程序代码如下:

Private Sub Command1_Click()
Dim a As Single, b As Single, c As Single, d As Single
a = Val(Text1.Text)
b = 3.14159
c = 2 * a * b
Label1.Caption = Str(c)
End Sub

jhpxer7L.rar (1.87 KB) [求助]输出格式问题


[此贴子已经被作者于2006-11-3 17:10:49编辑过]



6WDcakQA.jpg (8.43 KB)
搜索更多相关主题的帖子: 格式 输出 
2006-11-01 08:31
学习VB才2天
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1653
专家分:0
注 册:2006-5-4
得分:0 
数据类型的问题  ...

[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]
2006-11-01 08:32
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
你可以用Format函数进行格式化..

我的msn: myfend@
2006-11-01 09:02
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
得分:0 
以下是引用purana在2006-11-1 9:02:02的发言:
你可以用Format函数进行格式化..

我在程序中加了一句:
Label1.DataFormat = "#####.##"
运行有错误,不知正确的格式是怎样的?谢谢!

2006-11-01 10:52
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
得分:0 
...你去找本书来看一下..什么叫函数吧...
[CODE]
Private Sub Command1_Click()
Dim intNumber As Single
intNumber = 0.123
Print Str(intNumber) '还没有进行格式化
Print Format(intNumber, "0.####") '进行格式化
End Sub
[/CODE]

我的msn: myfend@
2006-11-01 11:27
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
得分:0 
以下是引用purana在2006-11-1 11:27:22的发言:
...你去找本书来看一下..什么叫函数吧...
[CODE]
Private Sub Command1_Click()
Dim intNumber As Single
intNumber = 0.123
Print Str(intNumber) '还没有进行格式化
Print Format(intNumber, "0.####") '进行格式化
End Sub
[/CODE]

谢谢斑主!这些内容我已经查到了,不过我想要的效果是:把标签label1里面的数字显示为两位小数,而不是把这个数显示在其它位置。不知应该怎样改写?

2006-11-01 13:36



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-100049-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.135159 second(s), 9 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved