菜鸟问题，帮我看看那错了。

Question

大家好，我是新来的，不太懂规矩，写了个东西，但提示有错误，请给位帮我看看。
我是想做一个登陆验证，但不太会用数组，请教教我，谢谢
Private Sub Form_Load()
Dim a As String
a = InputBox("请输入姓名", "验证")
Dim un(2) As String
un(0) = "xl"
un(1) = "xz"
un(2) = "xh"If a = un(i) Then              '就是这行错了，说是 变量为定义 这是怎么回事，我不是定义了吗？
      Load Form1
      Else
      MsgBox "姓名错误", , "提示"
      End
End IfEnd Sub
谢谢了

Answer 1

Private Sub Form_Load()
Dim a As String
Dim i As Integer
Dim un(2) As String
a = InputBox("请输入姓名", "验证")
un(0) = "xl"
un(1) = "xz"
un(2) = "xh"For i = 0 To 2
   If a = un(i) Then   '就是这行错了，说是 变量为定义 这是怎么回事，我不是定义了吗？
      Load Form1
      Exit Sub
   End If
Next iMsgBox "姓名错误", , "提示"
EndEnd Sub

Answer 2

谢谢了，我还是不太会用for next 我会再去看教程的。