| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 531 人关注过本帖
标题:[求助]输出格式问题(已解决)
取消只看楼主 加入收藏
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
结帖率:33.33%
收藏
 问题点数:0 回复次数:2 
[求助]输出格式问题(已解决)
我用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
桃源书生
Rank: 1
等 级:新手上路
帖 子:99
专家分:3
注 册:2006-7-3
收藏
得分:0 
以下是引用purana在2006-11-1 9:02:02的发言:
你可以用Format函数进行格式化..

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

2006-11-01 10:52
桃源书生
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.019423 second(s), 9 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved