***************************************
很久沒有用VB6了
由於沒有實測過，所以有些地方如果有寫錯請見諒
***************************************
首先是這一段
If a = 2 Then
Text1.Text = "電腦-20%血量!"
Else
If a = 4 Then
Text1.Text = "玩家-20%血量!"
Else
If a = 1 Then
Text1.Text = "平手"
Else
If a = 3 Then
Text1.Text = "平手"
Else
If a = 5 Then
Text1.Text = "平手"
End If
End If
End If
End If
End If
下面有一堆End If
所以排起來是"巢狀"
可是明明是依序Else下來
所以可以不用用到巢狀
If a = 2 Then
Text1.Text = "電腦-20%血量!"
Else If a = 4 Then
Text1.Text = "玩家-20%血量!"
Else If a = 1 Then
Text1.Text = "平手"
Else If a = 3 Then
Text1.Text = "平手"
Else If a = 5 Then
Text1.Text = "平手"
End If
*****************************************************************************
接著，雖然是Else If
不過既然只有判定a的值，而a不可能同時有兩種情況
代表這些Else並沒有判定的順序差別
所以可以用Select Case
Select Case a
Case 2
Text1.Text = "電腦-20%血量!"
Case 4
Text1.Text = "玩家-20%血量!"
Case 1
Text1.Text = "平手"
Case 3
Text1.Text = "平手"
Case 5
Text1.Text = "平手"
End Select
有沒有覺得跟上面的這段很像？
Select Case a
Case 1
Text2.Text = "金"
Case 2
Text2.Text = "木"
Case 3
Text2.Text = "水"
Case 4
Text2.Text = "火"
Case 5
Text2.Text = "土"
End Select
這表示這兩段根本可以寫在一起
Select Case a
Case 1
Text1.Text = "平手"
Text2.Text = "金"
Case 2
Text1.Text = "電腦-20%血量!"
Text2.Text = "木"
Case 3
Text1.Text = "平手"
Text2.Text = "水"
Case 4
Text1.Text = "玩家-20%血量!"
Text2.Text = "火"
Case 5
Text1.Text = "平手"
Text2.Text = "土"
End Select
*******************************************************************
接著，從判斷來說，可以知道Command1這個按鈕應該是"金"
也就是你必須要寫五個按鈕
但是其中又有很多地方需要重複
這表示你"必須要把他包成函式"
首先先改變一個想法
Select Case a
Case 1
Text2.Text = "金"
Case 2
Text2.Text = "木"
Case 3
Text2.Text = "水"
Case 4
Text2.Text = "火"
Case 5
Text2.Text = "土"
End Select
這個作法，表示你依據a=1~5改變text2的值
不過你可以把你需要的值存成陣列
Dim a as string = ("金","木","水","火","土")
然而為了相剋判定方便，所以先寫成想要的順序
Dim a as string = ("水","土","木","金","火")
其中a(0)="水"，而a(1)贏a(0)，a(2)贏a(1).....依此類推
接著，用另一個變數i,去取a的值
Text2.text=a(i)
**********************************************************************
假設把按鈕代表的字，也用數字表示
例如按下金的按鈕，便一樣用4代替
此外判定過程用函式表示
那麼程式會變成這個樣子
Private Sub Command1_Click()
Call judge(0) '假設按鈕1是水
End Sub
Private Sub Command2_Click()
Call judge(1) '假設按鈕2是土
End Sub
.......
依此類推
那麼後面會是
Private Sub judge(p)
Text2.text=a(i) '秀出電腦的字，電腦的值是i，玩家的值是p
If (i>p or i=0 and p=4) Then '後者大於前者，但水>火(0>4)
Text1.Text = "玩家-20%血量!"
Else If(p>i or p=0 and i=4) Then
Text1.Text = "電腦-20%血量!"
Else
Text1.Text = "平手"
End If
End Sub
***************************************