vb 2005中如何使文本框输入的百分数转换为双精度数值

显示全部楼层 · 2009-7-20 17:06:43

比如我在文本框输入15％，程序将15％转换为0.15然后和2.6相乘，请问具体的代码如何写

千问 · 2009-7-20 17:06:43

很简单啊法一:在文本框放一个label改成%标记,这最简单!法二:不用放%标记,直接做新建一个文本框textbox1label1 做为显示答案用按钮一个把如下代码放入按钮即可 Dim b, c As Decimal
Dim x, y As String
Dim L As Integer
x = TextBox1.Text
L = x.Length - 1
y = x.Substring(0, L)
c = CDec(y) / CDec(100)
b = c * CDec(2.6) ...

千问 · 2009-7-20 17:06:43

1楼的0.12%，就是1一下的不能行Private Sub Command1_Click()Text2.Text = Left(Text1.Text$, Len(Text1) - 1) / 100#End Sub...