Question

Vb6.0 要求文本框的内容必须为7到11位的数字 怎么写代码啊，大神们啊

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()
Dim str As String
Dim i As Integer
Dim isok As Boolean

isok = True
str = Text1.Text
''''''''''''''''
If Len(str) < 7 Or Len(str) > 11 Then
'MsgBox "长度错误"
isok = False
Else
For i = 1 To Len(str)
If Asc(Mid(str, i, 1)) < 47 Or Asc(Mid(str, i, 1)) > 58 Then
' MsgBox "第" & i & "个字符不是数字"
isok = False
End If
Next
End If

If isok = True Then
MsgBox "符合条件"
Else
MsgBox "不符合条件"
End If
'''''''''''''''
End Sub

Answer 2

判断长度用，len
判断数字用， IsNumeric

Answer 3

这个可以设置最大长度来解决