查人人中国名人网简单扑克牌魔术揭秘:向vb程序高手请教
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 17:17:46
一道挺简单的vb程序题，不太会做，希望高手帮一下忙，小弟万分感激，小弟初来乍到，没几分，希望有高手本着人道主义精神帮帮忙
Private Sub text1_lostfocus()
On Error GoTo overflowcheck
n = Val(Text1.Text)
Exit Sub
overflowcheck:
If Err.Number = 6 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
End If
End Sub
1，这是一段不全的程序，当在文本框中输入非数字内容的时候为什么没输出。
2，完整程序，能处理除数为0的错误(当输入除数是0时，有提示框提示“除数不能为0”)
第二问是想问怎样才能完整程序，使程序能处理除数为0时的情况。
Private Sub text1_lostfocus()
On Error GoTo overflowcheck
n = Val(Text1.Text)
Exit Sub
overflowcheck:
If Err.Number = 6 Then
End
Else
Text1.Text = ""
Text1.SetFocus
End If
End If
End Sub
1，这是一段不全的程序，当在文本框中输入非数字内容的时候为什么没输出。
2，完整程序，能处理除数为0的错误(当输入除数是0时，有提示框提示“除数不能为0”)
第二问是想问怎样才能完整程序，使程序能处理除数为0时的情况。
No.2 question :
'--------------------------------
'时间开始前加入：
If Val(Text1.Text) = 0 Then
Exit Sub
End If
1. Val()函数不会转换非数字内容
如：输入456fdf789则转换结果为456
第2个问题什么意思？