vb中怎样保留任意小数位数？

Question

比如：在text1中输入2，text2中输入5.123，那么，Click后text3.text就可以保留两位小数为：5.12

Answer 1

private sub command1_click()
dim a as integer,s as string,i as integer
a=val(text1)
s="0."
for i=1 to a
s=s & "0"
next
text3=format(text2,s)
end sub

Answer 2

Text3.Text = Format(Val(Text2.Text), "0." & String(Val(Text1.Text), "0"))

Answer 3

private sub command1_click()
dim a as integer,s as string,i as integer
a=val(text1)
s="0."
for i=1 to a
s=s & "0"
next
text3=format(text2,s)
end sub

回答者： zfcsl - 高级魔法师 六级

Answer 4

format(text3.text,"0.00")

Answer 5

private sub command1_click()
dim a as integer,s as string,i as integer
a=val(text1)
s="0."
for i=1 to a
s=s & "0"
next
text3=format(text2,s)
end sub