Question

请帮忙注释这段VB拼图游戏代码!!!急求高手！

Dim win As Integer '整型变量
Private Sub Com_Click(Index As Integer)
Select Case Index
Case 1, 2
If Com(Index - 1).Visible = False Then
Com(Index - 1).Visible = True
Com(Index - 1).Caption = Com(Index).Caption
If Com(Index - 1).Caption = Index Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
Else
If Com(Index + 1).Visible = False Then
Com(Index + 1).Visible = True
Com(Index + 1).Caption = Com(Index).Caption
If Com(Index + 1).Caption = Index + 2 Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
Else
If Com(Index + 4).Visible = False Then
Com(Index + 4).Visible = True
Com(Index + 4).Caption = Com(Index).Caption
If Com(Index + 4).Caption = Index + 5 Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
End If
End If
End If
Case 0
If Com(Index + 1).Visible = False Then
Com(Index + 1).Visible = True
Com(Index + 1).Caption = Com(Index).Caption
If Com(Index + 1).Caption = Index + 2 Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
Else
If Com(Index + 4).Visible = False Then
Com(Index + 4).Visible = True
Com(Index + 4).Caption = Com(Index).Caption
If Com(Index + 4).Caption = Index + 5 Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
End If
End If
Case 3
If Com(Index - 1).Visible = False Then
Com(Index - 1).Visible = True
Com(Index - 1).Caption = Com(Index).Caption
If Com(Index - 1).Caption = Index Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
Else
If Com(Index + 4).Visible = False Then
Com(Index + 4).Visible = True
Com(Index + 4).Caption = Com(Index).Caption
If Com(Index + 4).Caption = Index + 5 Then
win = win + 1
End If
If Com(Index).Caption = Index + 1 Then
win = win - 1
End If
Com(Index).Visible = False
Com(Index).Caption = ""
Label1.Caption = Label1.Caption + 1
End If
End If 请帮帮忙
简单的控件作用我当然知道、我想知道的是If Com(Index - 1).Visible = False Then这种句子表示什么意思？？index-1又是什么？

Answer 1

我给你解释几句，你就都明白了。
1、Com是一个数组控件，Index是数组控件的标识，一般一个index标识一个单独的控件。
2、visiable，表示这个控件是否可见，True表示可见，False表示不可见。
3、Caption表示这个控件上面显示出来的文字。
---------------------------------
补充的问题可以这样理解，
一个控件数组的话，是由控件单元格组成的。
比如Com()表示一个控件数组，那么Com(1)表示标示为1的这个控件。
Com(1).Visiable=True
标示Com(1)这个控件数组里面的标识为1的这个控件，是否可见。
说多了说不好，要不你加我建的群讨论吧。
101012597