| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 530 人关注过本帖
标题:[求助]输出格式问题(已解决)
只看楼主 加入收藏
桃源书生
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
快速回复:[求助]输出格式问题(已解决)
数据加载中...
 
   



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

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