怎样在VB 中Text显示保留两位小数
答案:2 悬赏:30 手机版
解决时间 2021-03-28 04:33
- 提问者网友：niaiwoma
- 2021-03-27 20:19
怎样在VB 中Text显示保留两位小数
最佳答案
- 五星知识达人网友：旧脸谱
- 2021-03-27 21:30
问题1:Private Sub Command1_Click()
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
Text3.Text = s1 + s2
Text4.Text = Format(s2 / (s1 + s2) , "0.00")
End Sub
问题2:Private Sub Command1_Click()
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
Text3.Text = s1 + s2
Text4.Text = Format(s2 / (s1 + s2) * 100, "0.00") & "%"
End Sub
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
Text3.Text = s1 + s2
Text4.Text = Format(s2 / (s1 + s2) , "0.00")
End Sub
问题2:Private Sub Command1_Click()
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
Text3.Text = s1 + s2
Text4.Text = Format(s2 / (s1 + s2) * 100, "0.00") & "%"
End Sub
全部回答
- 1楼网友：洒脱疯子
- 2021-03-27 22:14
使用format函数即可text4.text=format(s2/(s1+s2),"0.00%")
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯