Question

读心术代码运行时出现“子程序或函数未定义错误”，我是小白一枚，请高手!急用，谢谢！

Dim a(13) As Integer
Dim inti As Integer
Private Sub Form_Load()
lbl1.Top = 4800
lbl1.Left = 7800
a(0) = 7
a(1) = 8
a(2) = 11
a(3) = 12
a(4) = 14
a(5) = 15
a(6) = 17
a(7) = 18
a(8) = 19
a(9) = 20
a(10) = 26
a(11) = 27
a(12) = 36
a(13) = 37
For i = 1 To 99
Load lbl(i)
lbl(i).Top = lbl(0).Top + lbl(0).Height + 600 * (i \ 12)
lbl(i).Left = lbl(0).Left + lbl(0).Width + 600 * (i Mod 12)
lbl(i).Visible = True
Next
lbl(0).Top = lbl(0).Top + lbl(0).Height
lbl(0).Left = lbl(0).Left + lbl(0).Width
nsu
End Sub
Public Sub nsu()
Randomize
inti = Int((1500232 * Rnd) Mod 14)
For i = 0 To 99
intj = Int((1500232 * Rnd) Mod 14)
Do While (intj = inti)
intj = Int((1500232 * Rnd) Mod 14)
Loop
lbl(i).Caption = (99 - i) & Chr(a(intj))
If (99 - i) Mod 9 = 0 And (99 - i) < 82 Then lbl(i).Caption = (99 - i) & Chr(a(inti))
Next
End Sub
Private Sub Label2_Click()
Label2.Visible = False
lbl1.Caption = "尐"
For i = 0 To 99
lbl(i).Visible = True
Next
nsu
End Sub
Private Sub lbl1_Click()
If lbl1.Caption = "尐" Then
lbl1.Caption = Chr(a(inti))
Label2.Visible = True
Label2.Caption = Chr(a(inti))
For i = 0 To 99
lbl(i).Visible = False
Next
Else
Label2.Visible = False
lbl1.Caption = "尐"
For i = 0 To 99
lbl(i).Visible = True
Next
nsu
End If
End Sub

Answer 1

代码没错，你的窗口中要放三个控件：
第一个控件为Command或Label控件把控件名称设置为 lbl1
第二个控件为Command或Label控件把控件名称设置为 lbl 下标（Index属性设置为0）
第三个控件为Label控件把控件名称设置为Label2

追问

太谢谢了！运行出来后，界面很有点奇怪，图案也不全。麻烦你可以和我说下每条语句的意思吗？我再加10分，好吗！请一定帮忙啊！