vb 30选5抽奖做法 代码如下 帮我看下哪里错了 还有那个需要哪些控件啊

Question

Dim a(0 To 4) As Integer
Private Sub Command1_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd * (UBound(j) + 1) + 0)
Text1(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
End Sub

Private Sub Command2_Click()
For i = 1 To 30
If i = 30 Then
t = t & i
Else
t = t & i & ","
End If
Next
For i = 0 To 4
j = Split(t, ",")
Randomize
temp = Int(Rnd * (UBound(j) + 1) + 0)
a(i) = j(temp)
If temp <> UBound(j) Then
t = Replace(t, "," & j(temp) & ",", ",")
Else
t = Replace(t, "," & j(temp) & ",", "")
End If
Next
Print "中奖号码为：" & a(0) & vbTab & a(1) & vbTab & a(2) & vbTab & a(3) & vbTab & a(4)
For i = 0 To 4
For k = 0 To 4
If a(i) = Text1(k) Then n = n + 1
Next
Next
If n <> 0 Then
MsgBox "恭喜你中了" & 6 - n & "等奖"
Else
MsgBox "很遗憾，您没中奖"
End If
End Sub

Answer 1

两个按钮,5个名称为Text1的控件数组,只有下面一句
If a(i) = Text1(k) Then n = n + 1
需要改为
If a(i) = Val(Text1(k)) Then n = n + 1
回答完毕追问

Text1(i) = j(temp)
不能给只读属性赋值

追答

呵呵,我刚才中了4等奖,Text1创建控件数组就不会出错了,你把5个文本框的名称全部改为Text1,Index属性依次改为0-5