文本框text内容该如何转换？

Question

（1）文本框txt1.text="12.345"
   如何将小数点后的数字“5”去除，得到如下内容的字符串"12.34"
（2）文本框txt1.text="12"
   如何在“12”的后面添加两个“0”，得到如下内容的字符串"1200"   

Answer 1

txt1.text=mid(txt1.text,1,5)'第一个问题答案
txt1.text=txt1.text & "0"'第二个

Answer 2

晕，加两个0啊
txt1.text=txt1.text & "00"

Answer 3

dim strNum 'strnum=12.345 或12
'第一
 txt1.text=mid(strNum,1,instr(1,strNum,".")+2)
'第二
 txt1.text=strnum & "00"