小数如何输入

风水师　发表于：2009-05-14 21:34:59 　

Sub suzi()
If Left(txtResult, 1) = "0" Then
txtResult = Val(txtResult)
MsgBox "第一位数字是0"
End If

If Left(txtResult, 1) = "." Then
MsgBox "你输入的第一位是小数点"
txtResult = Mid(txtResult, 2, 3)
End If

End Sub

计算器的小程序,现在想把小数输入进去,但是输入0.5时,它自动的把0和小数点去掉,只剩下5,想半天,都没有办法处理.请指点.

豆豆发表于：2009-05-15 09:06:14

If Left(txtResult, 1) = "0" And Mid(txtResult, 2, 1) <> "." And txtResult <> 0 Then
txtResult = Val(txtResult)
MsgBox "第一位数字是0"
End If

If Left(txtResult, 1) = "." Then
MsgBox "你输入的第一位是小数点"
txtResult = "0" & txtResult
End If
也可以去掉And txtResult <> 0

根据实际情况，自己修改下。

Top

华尔街风水师发表于：2009-05-17 06:40:40

Option Compare Database
dim geshu as integer

txtResult = val(txtResult)
Private Sub cmdpoint_Click() 'cmdpoint_Click()指的是小数点的单击事件
   geshu = geshu + 1
   If geshu > 1 Then Exit Sub
   txtResult = txtResult & "."
End Sub

基本上如此就可以设置小数了,通过cmdpoint_Click()这一事件,即可限制小数点的输入.也就达到了小数的输入.

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

小数如何输入