| >赢:" & Win & "场" & "平:" & Draw & "场" & "负:" & Own & "场" End Sub Private Sub GuessTimer_Timer() RandLabel.Caption = randGuess(Int(Rnd() * 3) + 1) End Sub Private Sub RockCommand_Click() playerGuess = "Rock" GuessTimer.Enabled = True TitleLabel.Caption = "玩家准备出''''石头''''" End Sub 总结: 本程序是一个简单易懂的VB入门程序,通过该程序使刚起步的朋友在兴趣中了解程序的基本逻辑结构同时抛开了C的机器复杂性。
上一页 [1] [2] [3] [4] |