VB 用val(text1.text)不显示小数点后面的数，请问该如何解决

VB 用val(text1.text)不显示小数点后面的数，请问该如何解决

Private Sub Command1_Click()
  Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

可能是你先把实数赋给了整型变量，然后再赋给文本框，比如说
Private Sub Command1_Click()
  Dim a As Integer
  a = Val(Text1.Text) / Val(Text2.Text)
  Text3.Text = a
End Sub
这样就会丢失小数部分。
追问不是老师您说的那个意思。就比如现在文本框text1里有一个数3.1415926，如果用
mynumber=val(text.text1) 则mynumber=3 我的意思是，要怎样做才能把小数点后面那些数也显示出来。因为我要做计算器用，还望老师再指点指点追答
看回答要用点心看，这里定义了x为double（甚至不定义也行），只要不将上面的x定义为Integer就可以，就不会出现你说的问题。
追问比如文本框里的数字是0.0025
按照你说的，dim x as double x=val(text1.text) print x 最后会显示 .0025
求解决办法追答这个在VB中小于1的数，前面的0都是不输出的。
如果你一定要输出此“0”，
可以用print "0" & x追问如果一定要在文本中输出呢·1？追答Private Sub Command2_Click()
Dim x As Double
x = Val(InputBox("X="))
Text3.Text = ""
If x < 0 Then Text3.Text = "-": x = -x
If x < 1 Then Text3.Text = Text3.Text & "0"
Text3.Text = Text3 & x
Print x
End Sub

你定义的变量不是Double型的
或者Text1中的字符有除数字外的其他字符
Val（string） 函数返回的是Double型的数值，所以一定会显示小数点后面的。

这可能是的你定义的变量类型除了问题
你把接收VAL函数值的变量定义为double型试试

int(val(text1.text))
fix(val(text1.text))