15. 现要用VB编写一个“剪刀石头布”的游戏,游戏界面如图1所示:
点击单选框选择剪刀或石头或布,程序立即显示相应的图像,同时电脑随机出示一个剪刀或石头或布,并显示输赢的结果在列表框List1中。
(1)为显示输赢的结果,应在窗体中加入一个列表框,应使用图2所示的控件工具箱中的
_____(填写相应的编号)。
(2)请根据题意将下列程序补充完整。
Private Sub Option1_Click(Index As Integer)
'index表示所选的编号,剪刀为0 石头为1 布为2,图片文件名与此编号对应
Randomize
x =
__________'产生[0,2]的随机整数
Image1.Picture = LoadPicture(x & ″.jpg″)
Image2.Picture =LoadPicture(Index & ″.jpg″)
If Index = 0 And x = 0 Then s = ″平局″
If Index = 0 And x = 1 Then s = ″输了″
If Index = 0 And x = 2 Then s = ″胜了″
If Index = 1 And x = 0 Then s = ″胜了″
If Index = 1 And x = 1 Then s = ″平局″
If Index = 1 And x = 2 Then s = ″输了″
If Index = 2 And x = 0 Then s = ″输了″
If Index = 2 And x = 1 Then s = ″胜了″
If Index = 2 And x = 2 Then s = ″平局″
___________________End Sub