Как сравнить один символ в VB6?

Question

Я пытаюсь сделать угадывание в VB6. это предполагает сравнение буквы, которую вводит пользователь. Я уже искал его, к сожалению, у них только для последней версии.

может кто-нибудь помочь мне в сравнении одного символа в Visual Basic6.0. потому что, честно говоря, я понятия не имею об этом.

Answer 1

Asc и Chr $ - это функции, которые необходимо искать.

Private Sub Form_Load() 
    Dim lSecret As Long 
    Dim sInput As String 
    Dim lAscChar As Long 

    'Define a secret character as an ANSI code. 
    lSecret = Asc("m") 

    Do 
     'Let the user input a single character. 
     sInput = InputBox("Enter a single character. " & _ 
      "If more characters are entered, only the first one " & _ 
      "will be used. To end just click OK without entering text.") 
     If Len(sInput) = 0 Then Exit Sub 

     'Obtain the first character's ANSI code. 
     lAscChar = Asc(sInput) 

     'If the user entered the correct secret character, tell her. 
     'Otherwise give a hint. 
     If lSecret = lAscChar Then 
      MsgBox "Great, you are a hero." 
      Exit Sub 
     ElseIf lSecret < lAscChar Then 
      MsgBox "Nope, in the ANSI table, the correct answer is " & _ 
       "before this one." 
     Else 
      MsgBox "Nope, in the ANSI table, the correct answer is " & _ 
       "after this one." 
     End If 
    Loop 
End Sub