如何将答案转换为两位小数 [英] How to convert answer into two decimal point
本文介绍了如何将答案转换为两位小数的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
这是我的代码,我想要的输出是 txtA.Text
和 txtB.Text
保留两位小数.
This is my code and I want the output which is txtA.Text
and txtB.Text
to be in two decimal places.
Public Class Form1
Private Sub btncalc_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btncalc.Click
txtA.Text = Val(txtD.Text) / Val(txtC.Text) * Val(txtF.Text) / Val(txtE.Text)
txtB.Text = Val(txtA.Text) * 1000 / Val(txtG.Text)
End Sub
End Class
推荐答案
尝试使用 Format
功能:
Private Sub btncalc_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btncalc.Click
txtA.Text = Format(Val(txtD.Text) / Val(txtC.Text) *
Val(txtF.Text) / Val(txtE.Text), "0.00")
txtB.Text = Format(Val(txtA.Text) * 1000 / Val(txtG.Text), "0.00")
End Sub
这篇关于如何将答案转换为两位小数的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文