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

来源：百度知道 编辑：UC知道 时间：2024/06/16 08:19:06
比如我在文本框输入15％，程序将15％转换为0.15然后和2.6相乘，请问具体的代码如何写

很简单啊
法一:
在文本框放一个label改成%标记,这最简单!

法二:
不用放%标记,直接做
新建一个文本框textbox1
label1 做为显示答案用
按钮一个

把如下代码放入按钮即可
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)
Label1.Text = b.ToString()

val(text1)/100*2.6

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