Option Base 1
Dim a(10)
Private Sub Command1_Click()
  Text1.Text = "":    Text2.Text = ""
  For i = 1 To 10
'      a(i) = Fix(Rnd *  ?  + 1)
'      For j = 1 To  ?
        If a(i) = a(j) Then
'            i = ?
            Exit For
        End If
      Next j
  Next i
  For i = 1 To 10
      Text1.Text = Text1.Text + Str(a(i)) + Space(2)
  Next i
End Sub
Private Sub Command2_Click()
  Dim num As Integer, i As Integer
  num = InputBox("请输入待查找的数")
  For i = 1 To 10
'      If a(i) =  ?  Then
        Text2.Text = Str(num) + "是数组中的第" + Str(i) + "个值"
        Exit For
      End If
  Next i
'  If  ?  > 10 Then
      Text2.Text = Str(num) + "不存在于数组中"
  End If
End Sub