Dim a As Integer
Dim b As Integer
Dim c As Integer
Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("0123456789" & Chr(8) & Chr(9), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If InStr("0123456789" & Chr(8) & Chr(9), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = a * 0.4 + b * 0.6
If c >= 60 Then
Text3.Text = "合格"
Else
Text3.Text = "不合格"
End If
End Sub
望采纳。。。。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024