VB6.0如何将文本框中的字符串转换成数字

[ba_wang_mao]

(1).
假如文本框text1.text="12.34"
　 如何将12.34转换成整数1234呢？
(2).
假如文本框text1.text=".4"
　 如何将.4转换成整数4送给整型变量呢？

(3).如果一个整数＝1299，小数点在十位，如何将其转换成
　　如下形式的字符串，然后送给文本框显示呢？
　　　　"129.9"
别笑我，我很菜！

[cbm6666]

(1) Text1.text=Replace(text1.text,".","")

(2)
dim aa as integer
Text1.text=Replace(text1.text,".","")
aa= val(text1.text)

(3)
Dim aa As Single
aa = Format(Val(Text1.Text) / 10, "0.0")
MsgBox aa

[ba_wang_mao]

我对VB不太熟悉，太感谢了。

[ba_wang_mao]

终于在本网站知道怎么结帐了。呵呵

[zspcpu]

看看~~