航空百大

標題:

求一個用VB6.0寫的包,剪,鎚的程式,thx大大幫我,thanks

發問:

求一個用VB6.0寫的包,剪,鎚的程式,thx大大幫我,thanks

最佳解答:

• 千禧校舍設計@1@
• 1968年五百元(大綿胎)紙幣連號碼兩張現在市值多少元？@1@
• quadratic equation_0

此文章來自奇摩知識+如有不便請留言告知

Dim bbb As Integer Private Sub Command1_Click() bbb = 1 Call cp End Sub Private Sub cp() Randomize aaa = Int(Rnd * 3) + 1 If aaa = bbb Then Label1.Caption = "平手" If aaa = 1 And bbb = 2 Then Label1.Caption = "電腦出包 你出剪 你獲勝" If aaa = 1 And bbb = 3 Then Label1.Caption = "電腦出包 你出鎚 電腦獲勝" If aaa = 2 And bbb = 1 Then Label1.Caption = "電腦出剪 你出包 電腦獲勝" If aaa = 2 And bbb = 3 Then Label1.Caption = "電腦出剪 你出鎚 你獲勝" If aaa = 3 And bbb = 1 Then Label1.Caption = "電腦出鎚 你出包 你獲勝" If aaa = 3 And bbb = 2 Then Label1.Caption = "電腦出鎚 你出剪 電腦獲勝" End Sub Private Sub Command2_Click() bbb = 2 Call cp End Sub Private Sub Command3_Click() bbb = 3 Call cp End Sub

其他解答: