主题：[求助]求教一个问题

Dim Str As String = e.Form.Controls("TextBox1").Value
Dim Val As Double
If Double.TryParse(Str,Val) Then
    MessageBox.Show("输入的数值是:" & Val)
Else
    MessageBox.Show("非法输入")
End If

最直接的：

MessageBox.Show("输入的数值是:" & Val(e.Form.Controls("TextBox1").Value))


Val是一个VB函数，直接将字符转换为数值，通常用于不需要判断的场合。


不过建议你用数值框输入，因为数值框的Value属性返回的就是一个数值，可直接好使用。