vb问题:text3=text2*text2,要求text3小数保留1位,代码如何?

text3=Format(text2*text2, "0.0")

Private Sub Command1_Click()
Text3 = Format(Val(Text1) * Val(Text2), ".0")
End Sub

Format(text2*text2, "0.0")

privare sub command1_click()
dim i as single
dim j as single
dim result as single
i=val(text2.text)
j=val(text3.text)
result=i*j
text3.text=format(result,"0.0")
end sub