[VB6 ] 新手問題

看板Visual_Basic作者ybigghost (鯊魚)時間10年前 (2013/08/14 03:41)推噓1(1推 0噓 10→)

留言11則, 5人參與討論串4/5 (看更多)

Private Sub Command1_Click() Select Case a '判斷a變數 Case 1 '如果是1就顯示金 Text2.Text = "金" Case 2 '如果是2就顯示木 Text2.Text = "木" Case 3 '如果是3就顯示水 Text2.Text = "水" Case 4 '如果是4就顯示火 Text2.Text = "火" Case 5 '如果是5就顯示土 Text2.Text = "土" End Select '結束這ㄍ判斷 Command1.Enabled = False 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 Sub Private Sub Command6_Click() Randomize Dim t(5) As Integer For i = 1 To 5 ReNumber: t(i) = Int(Rnd * 5) + 1 For j = 1 To 5 If i <> j And t(i) = t(j) Then GoTo ReNumber: Next Next a = t(1) b = t(2) c = t(3) d = t(4) e = t(5) End Sub 我先按按鈕六在按按鈕一為什麼抓不到 a的值要怎樣才能抓到呢@@? -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 122.116.128.174

推

Marty

08/14 07:57, , 1^F

08/14 07:57, 1^F

→

ybigghost

08/14 16:48, , 2^F

08/14 16:48, 2^F

→

ybigghost

08/14 16:48, , 3^F

08/14 16:48, 3^F