澳大利亚altura矿业:求助一道非常简单的VB问题！！！

不知道楼主想实现什么？
n(i)如何计？

for i = 0 to 6
……
next

上面这段没有任何意义咯。
改成：
If InStr(Label2.Caption, Text1.Text) <> 0 Then
MsgBox "数字已存在"
Else
Label2.Caption = Label2.Caption & " " & Text1.Text
End If

你说不能重复，那2 4 2中的2不是重复吗？难道5 6 8 3 2 4 2是一次输入的？

最好把你希望的结果详细说出来，这样或许更有帮助。

Option Explicit
Private n(6) As Long
Private Sub Command1_Click()
Static i As Long
Dim a

If Not IsNumeric(Text1.Text) Then
MsgBox "你必须输入数字", vbCritical + vbOKOnly
Text1.Text = ""
Exit Sub
End If
If Val(Text1.Text) > 36 Then
MsgBox "你必须输入正确的数字", vbCritical + vbOKOnly
Text1.Text = ""
Exit Sub
End If
If Val(Text1.Text) < 1 Then
MsgBox "你必须输入正确的数字", vbCritical + vbOKOnly
Text1.Text = ""
Exit Sub
End If
For i = 1 To 5
n(i) = i
Next
For i = 0 To 6
a = a + Text1.Text & " " & n(i)
Next
Label2.Caption = a
End Sub

给个提示你 自己改一下
数组n你原来的程序没有赋值

label2.caption 现在的显示是什么？
你想label2显示什么？
------------------------------------------------
把
For i = 0 To 6
Label2.Caption = Text1.Text & " " & n(i)
Next

改成
Label2.Caption = Trim$(Label2.Caption) & " " & Text1.Text
就能实现你说的功能。
你写的确实不太理解！