*************************************** 很久没有用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 *************************************** --

※ 发信站: 批踢踢实业坊(ptt.cc) ◆ From: 219.84.246.136