谁能帮忙修改一下下列程序,使当输入框InputBox没有输入数字,类型不匹配(如输入jiang等)或溢出时能弹出MsgBox消息框,顺便教我一下如何处理可捕获的错误,谢谢!vb程序代码:Private Sub Command1_Click()Dim a As Long, z As Boolean '质数为Truea = InputBox("数字", "提示")If a > 2 ThenFor y = 2 To a - 1If a Mod y = 0 Thenz = FalseExit ForElsez = TrueEnd IfNext yIf z ThenMsgBox "数字" & a & "是质数", vbOKOnly, "结果"ElseMsgBox "数字" & a & "是合数", vbOKOnly, "结果"End IfEnd IfEnd Sub。