End Sub
Private Sub GuessTimer_Timer()
RandLabel.Caption = randGuess(Int(Rnd() * 3) + 1)
Private Sub RockCommand_Click()
playerGuess = "Rock"
GuessTimer.Enabled = True
TitleLabel.Caption = "玩家准备出''''石头''''"
总结:
本程序是一个简单易懂的VB入门程序,通过该程序使刚起步的朋友在兴趣中了解程序的基本逻辑结构同时抛开了C的机器复杂性。
上一页 [1] [2] [3] [4]
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18