求解一道编程题 简单!~~~我不会

在窗体上设置一个文本框控件,用于接受用户输入的数据。编写程序要求文本框只能接受15-30之间的正整数1.不能输入空值,字符,不能超过13-302.可以通过isnumeri... 在窗体上设置一个文本框控件,用于接受用户输入的数据。编写程序要求文本框只能接受15-30之间的正整数
1.不能输入空值,字符,不能超过13-30
2.可以通过isnumeric函数来判断输入的是否是数字

这是在access中的一个题。。。。。。。。。。帮忙啊!~~~~~
天啊。。。。。。。。。。。。。。。还是不行又说什么空间没焦点不能引用
展开
 我来答
46551489
2008-06-23 · TA获得超过261个赞
知道小有建树答主
回答量:79
采纳率:0%
帮助的人:119万
展开全部
添加一个commandbutton来验证,代码如下(在VB6.0下测试通过)

其中 MsgBox "输入通过验证!", vbInformation 可以修改成你需要的代码

Private Sub Command1_Click()
If Text1.Text = "" Then MsgBox "不允许输入空字符串!", vbInformation
If IsNumeric(Text1.Text) Then
If Len(Text1.Text) >= 13 And Len(Text1.Text) <= 25 Then
MsgBox "输入通过验证!", vbInformation
Else
MsgBox "非法输入!", vbInformation
End If
Else
MsgBox "非法输入!", vbInformation
End If
End Sub
gujin170
2008-06-23 · TA获得超过937个赞
知道小有建树答主
回答量:1030
采纳率:66%
帮助的人:346万
展开全部
Const xStr As String = "0123456789"

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then
If Val(Text1.Text) >= 15 And Val(Text1.Text) <= 30 Then
MsgBox "输入正确!", vbInformation
Else
MsgBox "不在范围!", vbInformation
End If
Else
MsgBox "不在范围!", vbInformation
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
'只能输入数字
KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)
End Sub
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友403775daf
2008-06-23 · TA获得超过182个赞
知道小有建树答主
回答量:274
采纳率:0%
帮助的人:169万
展开全部
直接在 文本筐的 keypass事件处理过程中对输入的
键值进行判断过滤掉不符合字符的ASCII码同时每次
发生键盘事件都对len(text1.text)进行字符长度判断
就OK了!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(1)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式