VB新手求救~~请各位高手帮帮忙~~
一共是四个文本框text1,text2,text3,text4,前三个文本框都要求输入有3位小数的数字,
最后一个文本框自动计算出前三个文本框中数字的平均值(该平均值只需2位小数)
计算公式是:text4=(text1.text + 2 * (text2.text) + text4.text) / 4
请高手帮忙,谢谢
[解决办法]
Private Sub Command1_Click()
On Error Resume Next
Text4.Text = Format((CDbl(Text1.Text) + 2 * CDbl(Text2.Text) + CDbl(Text3.Text)) / 4, "0.00 ")
If Err.Number <> 0 Then Text4.Text = "ERROR! "
On Error GoTo 0
End Sub
[解决办法]
dim a,b,c
a=round(val(text1.text,3)
b=round(val(text2.text,3)
c=round(val(text3.text,3)
上面是去小数
text1(2)(3)的keydown事件中
if keycode <92 or keycode> 102 then
keycode=0
end if
取数字键盘上0-9,-,enter,小数点为准输入字符
[解决办法]
Private Sub Text1_LostFocus()
Dim MyString, MyArray
If Not IsNumeric(Text1.Text) Then
MsgBox "非数字 "
Text1.SetFocus
Exit Sub
End If
MyString = Split(Text1.Text, ". ", -1, 1)
If UBound(MyString) = 1 Then
If Len(MyString(1)) > 3 Then
MsgBox "大于三位小数 "
Text1.SetFocus
Exit Sub
End If
End If
End Sub