怎样在VB 中Text显示保留两位小数

Question

临时代码，问题1：怎样在Text4显示框中只显示小数点后两位小数
Private Sub Command1_Click()
Dim x As Single
s1 = Val(Text1.Text)
s2 = Val(Text2.Text)
s3 = Val(Text3.Text)
Text3.Text = s1 + s2
Text4.Text = s2 / (s1 + s2) * 100
End Sub
Private Sub Command2_Click()
End
End Sub问题2：我要算Text4的百分比，去掉* 100怎样可以算百分比，并保留两位小数？ 麻烦了，我是菜鸟，刚开始看教程写了上面的代码，但是有的地方不懂，也不知道怎么查，还是相信问问的大虾们了。

Answer 1

问题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

Answer 2

使用format函数即可text4.text=format(s2/(s1+s2),"0.00%")