[vb6.0]如何使inputbox判别的内容输入进文本框？判别的内容包括汉字，英语，数字

　　朋友，提问一定要详细，比如，输入什么样的内容，是纯汉字，纯数字，纯字母。还是三者混合输入呢？

　　最好是述说一下输入步骤，保存到文本框的要求，越详细越好。

　　由于无法理解你的问题，所以这么久都没人回答。我也不知道你需要的是什么。提供一段代码，此代码的功能是：你输入一组字符串，是汉字、数字、字母混合的。然后判断哪些是汉字，哪些是字母、哪些是数字。并将其分开，然后输出到文本框中。

　　打开VB6，新建一工程，拖入一个按钮控件，一个文本框控件（将其MultiLine属性设置为TRUE）。然后进入代码区，删除所有代码后，粘贴以下代码即可。

Option Explicit

Private Sub Command1_Click()
    Dim InputStr As String, S As String, D As String, E As String, F As String
    Dim LenN As Long, I As Long
    InputStr = InputBox("请输入字符串：", "字符判断", "汉2015A字05BZ好09az")
    If InputStr = "" Then Exit Sub
    LenN = Len(InputStr)
    For I = 1 To LenN
        S = Mid(InputStr, I, 1)
        If Asc(S) > 47 And Asc(S) < 58 Then '判断是否是数字
        D = D + S '
        ElseIf Asc(S) < 0 Then '判断是否是汉字
        E = E + S
        Else
        F = F + S
        End If
    Next I
     Text1.Text = E & vbCrLf & F & vbCrLf & D

End Sub

　　效果：    输入“汉2015A字05BZ好09az”，其结果图如下：

　　混合都能分开，如果你是分别输入的话，请参考代码里的判断方法，就可以断定输入的是什么了。