论坛首页 精选版块
移动开发
iOSAndroidQtWP
云计算
IaaSPass/SaaS分布式计算/Hadoop
Java技术
Java SEJava Web 开发Java EEJava其他相关
.NET技术
.NET FrameworkC#.NET分析与设计ASP .NETVB .NET
Web开发
PHPJavaScriptASPHTML(CSS)HTML5Apache
开发语言/框架
DelphiVC/MFCVBC/C++C++ Builder其他开发语言
数据库开发
MS-SQL ServerOraclePowerBuilderInformatica其他数据库开发
硬件/嵌入式开发
嵌入开发(WinCE)驱动开发/核心开发硬件设计单片机/工控汇编语言VxWorks开发
Linux/Unix社区
系统维护与使用区应用程序开发区内核源代码研究区驱动程序开发区CPU和硬件区
 论坛牛人 排行榜 论坛地图 论坛任务 论坛帮助 我要发贴
CSDN论坛 > VB > VB基础类

各位哥哥帮帮忙，分不是问题。 [问题点数：0分]

一键查看最优答案

确认一键查看最优答案？
本功能为VIP专享，开通VIP获取答案速率将提升10倍哦！
取消

开通vip会员
更多帖子
私信 空间 博客
xxjmz_78
Bbs2
本版专家分：280
结帖率 100%
单精度数如果是0.77777赋给字符型变量时，就变成.77777。怎么保留0。谢谢
回复数 10 只看楼主 引用 举报 楼主
vinking
Bbs1
本版专家分：0
输出的时候加个零
只看TA 引用 举报 #1    得分 0
更多帖子
私信 空间 博客
饮水需思源
Bbs9
本版专家分：69699
版主
字符型变量=format(单精度值,"######0.000000")
只看TA 引用 举报 #2    得分 0
更多帖子
私信 空间 博客
online
Bbs10
本版专家分：108324
Blank
进士 2004年 总版技术专家分年内排行榜第七
Blank
微软MVP 2005年9月 荣获微软MVP称号
2008年10月 荣获微软MVP称号
2007年10月 荣获微软MVP称号
2006年10月 荣获微软MVP称号
2004年9月 荣获微软MVP称号
Blank
红花 2004年9月 VB大版内专家分月排行榜第一
2004年8月 VB大版内专家分月排行榜第一
2004年7月 VB大版内专家分月排行榜第一
2004年6月 VB大版内专家分月排行榜第一
2004年5月 VB大版内专家分月排行榜第一
Blank
黄花 2004年2月 VB大版内专家分月排行榜第二
转成字符串再赋值
只看TA 引用 举报 #3    得分 0
blue_soft
Bbs1
本版专家分：40
就是转成string时才会自动把0去掉的。这个不行呀，谢谢
只看TA 引用 举报 #4    得分 0
xxjmz_78
Bbs2
本版专家分：280
各位大哥帮帮忙呀
只看TA 引用 举报 #5    得分 0
更多帖子
私信 空间 博客
sxs69
Bbs7
本版专家分：17757
Private Sub Command4_Click()
    Dim s As String
    s = Format(0.77777, "0.00000")
    Text2 = s
End Sub
只看TA 引用 举报 #6    得分 0
更多帖子
私信 空间 博客
lxcc
Bbs8
本版专家分：39519
Blank
微软MVP 2005年9月 荣获微软MVP称号
Blank
黄花 2004年11月 VB大版内专家分月排行榜第二
2004年10月 VB大版内专家分月排行榜第二
up2u
只看TA 引用 举报 #7    得分 0
bingxuehuiren
Bbs2
本版专家分：278
up2u有创的顶法,我跟
只看TA 引用 举报 #8    得分 0
更多帖子
私信 空间 博客
Sean918
Bbs7
本版专家分：23570

Private Sub Form_Load()
Dim a As Single
a = 0.77777

Dim s As String
s = Format(a, "#0.00000")
MsgBox s
End Sub
只看TA 引用 举报 #9    得分 0
xxjmz_78
Bbs2
本版专家分：280
能不能不用format等强加0呀
只看TA 引用 举报 #10    得分 0