Question

vb中text显示问题

dim a as double
dim b as double
dim c as double
private sub command1_click()
a=text1.text
b=text2.text
text3.text = (a *0.403) / (b - a + (a*0.403))
end sub
private sub command2_click()
text1.text =""
text2.text =""
text3.text =""
end sub
现在问题是text3.text 显示计算结果都不显示0 都是从0以上的算起
比如计算结果是0.0258 它只显示2.58
还有就是怎么让text只能输入数字和小数点 不能输入字母和其它的，当输入其它的来个msgbox提示下 请输入数字
求大神指导 或直接加QQ 27973243
在线等 ！~~

Answer 1

第一个问题这样解决
text3.text =format (a *0.403) / (b - a + (a*0.403),"0.0000")
第二个问题：最好不要出现提示，很烦人，可以在输入的时候屏蔽掉，需要在用户按下键盘键的事件中写代码：

Private Sub Text1_KeyPress(KeyAscii As Integer)
Me.Caption = KeyAscii '现实KeyAscii
If KeyAscii = 13 Then Exit Sub '允许输入回车
'If KeyAscii = 43 Then Exit Sub '允许输入+号
'If KeyAscii = 45 Then Exit Sub '允许输入-号
If KeyAscii = 46 Then Exit Sub '允许输入小数点

If KeyAscii < 48 Or KeyAscii > 57 Then '屏蔽数字外的所有符号
KeyAscii = 0
End If
End Sub

Answer 2

首先补充一下楼上几位的代码，在限制输入方面思路是很简单的，但是有一点容易遗漏，那就是BackSpace键不能被屏蔽，否则无法退格。以下是补充zx001z先生的代码。
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Or KeyAscii = 46 Or KeyAscii = 8 Then Exit Sub '允许输入回车,小数点,退格
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 '屏蔽数字外的所有符号
End Sub

对于第一条，我觉得text3的显示结果是正确的运算结果，如果想格式化显示，那么用他们推荐的format;但是如果你出现运算错误，那么问题就不在这儿了。我觉得在给a,b赋值时最好还是严格一下：
a = Val(Text1.Text)
b = Val(Text2.Text)

Answer 3

额 花了30分钟百度 结果凑合着看吧

Dim a As Double
Dim b As Double
Dim c As Double
Private Sub command1_click()
If Format(0#, Text1.Text, "0.000000") <> True Then
MsgBox "格式错误 请重新输入Text1 正确格式0.000000"
Text1.Text = ""
Exit Sub
End If
If Format(0#, Text2.Text, "0.000000") <> True Then
MsgBox "格式错误 请重新输入Text2 正确格式0.000000"
Text2.Text = ""
Exit Sub
End If
a = Text1.Text
b = Text2.Text
Text3 = Format(a * 0.403 / (b - a + (a * 0.403)), "0.000000")
End Sub
Private Sub command2_click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Answer 4

只能输入数字和小数点：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 46 Or (KeyAscii > 47 And KeyAscii < 58) Then
Else
KeyAscii = 0
MsgBox "请输入数字"
End If
End Sub

关于计算结果，请检查计算公式的正确性

Answer 5

text3.text =""这个编译有点问题