还是不正确

Question

起码的逻辑：Private Sub Form_Click()
Dim username As String
username = InputBox("please write your name!")
Dim flag As Boolean
Dim i As Integer  flag=false  For i = 1 To users.Count
    If username = users(i) Then
      flag = True
      MsgBox "you are welcome!"
      exit sub
    End If
  Next i    If flag = False Then
      MsgBox "there is not the user"
    End IfEnd Sub  

Answer 1

Private Sub Form_Click()
Dim username As String
username = InputBox("please write your name!")
Dim flag As Boolean
Dim i As Integer
For i = 1 To users.Count
    If username = users(i) Then
        flag = True
        exit for
    end if
Next i
    If flag then
        MsgBox "you are welcome!"
    Else
        MsgBox "there is not the user"
    End If
End Sub