复制内容到剪贴板

代码:

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入QQ号"
ElseIf Len(Text1.Text) < 5 Or Len(Text1.Text) > 10 Then
MsgBox "QQ号位数不对！"
ElseIf Len(Text1.Text) > 5 And Len(Text1.Text) < 10 Then
Dim i As Integer
Dim a As String
For i = 1 To Len(Text1.Text)
   If Asc(Mid(Text1.Text, i, 1)) < 48 Or Asc(Mid(Text1.Text, i, 1)) > 57 Then
   MsgBox "QQ号只能是数字！"
   End If
Next
ElseIf Len(Text1.Text) > 5 And Len(Text1.Text) < 10 And (Asc(Mid(Text1.Text, i, 1)) > 48 Or Asc(Mid(Text1.Text, i, 1)) < 57) Then （到这里就出错）
   MsgBox "aaaaaaaaaaa"
End If
      
End Sub

代码括起来~ Christopher
可能有点乱 最近学别人写一个QQ聊天的工具  可是代码错了  这也是一直困扰我的一个问题   我想知道这个代码应该怎么写
就是当输入的东东是数字且在5到10位之前时就会弹出aaaaa的对话框。 谢谢

[ 本帖最后由 Christopher 于 2007-2-26 13:32 编辑 ]

怎么没人回答么。。。

哥们，你说具体点，我不是很明白你的意思啊？？？

复制内容到剪贴板

代码:

Dim i As Integer
Dim a As String
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入QQ号"
ElseIf Len(Text1.Text) < 5 Or Len(Text1.Text) > 10 Then
MsgBox "QQ号位数不对！"
ElseIf Len(Text1.Text) > 5 And Len(Text1.Text) < 10 Then
For i = 1 To Len(Text1.Text)
   If Asc(Mid(Text1.Text, i, 1)) < 48 Or Asc(Mid(Text1.Text, i, 1)) > 57 Then
   MsgBox "QQ号只能是数字！"
   Exit For
   ElseIf i = Len(Text1.Text) Then
   MsgBox "aaaaaaaaaa"
   
    End If
    Next
   
End If
      
End Sub

哥们代码括起来~ Christopher
哥们，我改了一下，不知道和你的意思一致不？

[ 本帖最后由 Christopher 于 2007-2-26 13:31 编辑 ]

哇靠  两个  我看看  谢谢啦

这个不行。  如果QQ号是5位可是里面有数字以外的东东  弹不出来 "QQ号只能是数字！"的对话框/

呵呵，今天刚回学校，重做机子，来晚了哈
你看看你说的是不是这个意思

复制内容到剪贴板

代码:

Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入QQ号"
ElseIf Len(Text1.Text) < 5 Or Len(Text1.Text) > 10 Then
MsgBox "QQ号位数不对！"
Else
    If IsNumeric(Text1.Text) Then
        MsgBox ("aaaaaaaaa")
    Else
        MsgBox ("请输入纯数字")
    End If
End If
End Sub

不全是  还有一种情况呢 如果QQ位数正确  而且全是数字  就是会弹出一个窗口。

不就是那个MsgBox ("aaaaaaaaa")窗口吗？