Question

vb基础代码：输入数值在text1中，点击command1 输出text2=text1*130 text3=text1*35

Answer 1

private sub command1_click()
Text2 = Format(Val(Text1.Text) * 0.13, "0.####") '小数点后位数 自己设置，这里非零值保留4位
Text3 = Format(Val(Text1.Text) * 0.035, "0.####") '小数点后位数 自己设置，这里非零值保留4位

end sub

Answer 2

private sub command1_click()
text2.text=val(text1.text)*130
text3.text=val(text1.text)*35
end sub

追问

额 我弄错了 text2是要text1*0.13 text3是text1*0.035 顺便问问我自己改了下后面的数值为什么小数点前面的0显示不出来？

追答

private sub command1_click()
text2.text=format(val(text1.text)*130,"0.000")
text3.text=format(val(text1.text)*35,"0.000")
end sub
看你要保留多少位小数了 保留三位的话就写0.000 依此类推

Answer 3

private sub command1_click()
text2.text=val(text1.text)*130
text3.text=val(text1.text)*35
end sub