VB程序设计-石头剪刀布.docxVIP

PAGE \* MERGEFORMAT4 VB程序设计－石头剪刀布 （作者：草原飞狼 2014年6月2日） 声明：仅供学习与交流使用，高手请飘过，谢谢！所有代码都是个人亲自编写并调试成功。 布局（1） 布局（2）：此处三个图片文件放在“石头剪刀布\pic”文件夹下 运行界面（1） 运行界面（2） 源代码如下： Rem 定义两个窗体级变量 Dim i As Integer i表示选手出拳结果 Dim j As Integer j表示选计算机出拳结果 Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 32 Then 32是空格键的ASCII值，其常数表示为vbKeySpace Call Picture1_Click End If End Sub Private Sub Form_Load() Me.KeyPreview = True 这一句必须有，否则键事件无法响应 End Sub Private Sub Picture1_Click() Rem 单击窗体出拳 Dim i As Integer Dim j As Integer Randomize i = Int(Rnd() * 3 + 1) 随机数1-3，表示选手 j = Int(Rnd() * 3 + 1) 随机数1-3，表示计算机 Select Case i i表示选手出拳结果 Case Is = 1 Picture1.Picture = LoadPicture(App.Path \pic\jiandao.jpg) Case Is = 2 Picture1.Picture = LoadPicture(App.Path \pic\shitou.jpg) Case Is = 3 Picture1.Picture = LoadPicture(App.Path \pic\bu.jpg) End Select Select Case j j表示选计算机出拳结果 Case Is = 1 Picture2.Picture = LoadPicture(App.Path \pic\jiandao.jpg) If i = 1 Then Label3.Caption = PK结果：平手！ ElseIf i = 2 Then Label3.Caption = PK结果：选手赢！ Else Label3.Caption = PK结果：计算机赢！ End If Case Is = 2 Picture2.Picture = LoadPicture(App.Path \pic\shitou.jpg) If i = 1 Then Label3.Caption = PK结果：计算机赢！ ElseIf i = 2 Then Label3.Caption = PK结果：平手赢！ Else Label3.Caption = PK结果：选手赢！ End If Case Is = 3 Picture2.Picture = LoadPicture(App.Path \pic\bu.jpg) If i = 1 Then Label3.Caption = PK结果：选手赢！ ElseIf i = 2 Then Label3.Caption = PK结果：计算机赢！ Else Label3.Caption = PK结果：平手！ End If End Select End Sub