Vb除法问题

Question

Private Sub CommandExit_Click()
Dim StrLiren As Long
StrLiren = TxtLiRen.Text
StrLiren = StrLiren / 100
Text1.Text = StrLiren
End Sub
怎么我输入的LiRen如果不是整数就 显示不出来呢。。我要分数和整数都行的⊙﹏⊙b汗

Answer 1

Dim StrLiren As Long
这句,你声明的就是长整型呀,所以结果都会被四舍五入然后取整.
你可以声明为Single或double型.

Answer 2

StrLiren要定义为精度

Answer 3

Dim StrLiren As Long 这句，去掉As Long

Answer 4

你把strliren定义成了长整型，所以显示不出来，你将其定义成浮点型或双精度型就可以了。