经典小游戏程序的设计_If语句的应用.ppt
- 格式:pdf
- 大小:3.00 MB
- 文档页数:19


石头剪刀布杭州市余杭实验中学潘晓晓任务描述:和电脑进行猜拳游戏。
当操作者选择石头、剪刀、布中一种时,程序显示电脑的选择并判定胜负。
程序功能描述:程序运行后,点击“开始游戏”按钮后,石头剪刀布的单选按钮被激活,当操作者选择出拳后,程序马上显示操作者和电脑选择出拳的图片,同时显示操作者的胜负。
本程序界面:点击“开始游戏”按钮,选择出拳,程序运行的界面如下:程序设计分析:程序运行后,点击“开始游戏”按钮单选按钮被激活,同时程序生成一个0到2之间的随机整数,来分别代表电脑所选择的剪刀、石头和布,在操作者选择出拳后,显示两者所选出拳的图片,并将两者进行比较,显示胜负结果。
本程序四个事件,“开始游戏”按钮的Command1_Click()事件;石头、剪刀和布的三种单选按钮事件Option1_Click()、Option2_Click()、Option3_Click()。
本程序主要以if语句为主,图像控件的图片加载语句是:Image2.Picture = LoadPicture(App.Path & "\jiandao.bmp"),App.Path代表程序所在路径。
下面显示Command1_Click()事件和Option1_Click()事件的代码。
Dim c As IntegerPrivate Sub Command1_Click()c = Int(Rnd(1) * 3) ’电脑选择出拳Frame1.Enabled = TrueOption1.Enabled = TrueOption2.Enabled = TrueOption3.Enabled = TrueOption1.V alue = FalseOption2.V alue = FalseOption3.V alue = FalseImage2.Picture = LoadPicture(none)Image3.Picture = LoadPicture(none)Label1.Caption = ""Label2.Caption = ""End SubPrivate Sub Option1_Click() ’操作者选择出剪刀Image2.Picture = LoadPicture(App.Path & "\jiandao.bmp") ’显示剪刀的图片If c = 0 ThenImage3.Picture = LoadPicture(App.Path & "\jiandao.bmp") ’如果电脑选择出剪刀,就显示剪刀的图片Label1.Caption = "="Label2.Caption = "请再猜拳!"ElseIf c = 1 ThenImage3.Picture = LoadPicture(App.Path & "\shitou.bmp")’如果电脑选择出石头,就显示石头的图片Label1.Caption = "<"Label2.Caption = "你输了!"ElseImage3.Picture = LoadPicture(App.Path & "\bu.bmp")’如果电脑选择出布,就显示布的图片Label1.Caption = ">"Label2.Caption = "你赢了!"End IfEnd IfOption1.Enabled = False Option2.Enabled = FalseOption3.Enabled = FalseEnd Sub操作者选择出石头或布的代码与以上非常相近,只要简单修改即可。