活动一用IF语句实现简单选择结构.doc

附：教学资源制作界面：程序运行界面： 3完整程序代码：Dim sum, w, d, L As IntegerPrivate Sub Command1_Click()Dim x, y As Integersum = sum + 1Randomize Timerx = Int(3 * Rnd) + 1y = 1Image4.Picture = Image1.PictureIf x = y Then Label3.Caption = 平局 Image5.Picture = Image1.Picture d = d + 1End IfIf x = 2 Then Label3.Caption = 你赢了！ Image5.Picture = Image2.Picture w = w + 1End IfIf x = 3 Then Label3.Caption = 你输了！ Image5.Picture = Image3.Picture L = L+ 1End IfText1.Text = sumText2.Text = wText3.Text = dText4.Text = lEnd SubPrivate Sub Command2_Click()Dim x, y As Integersum = sum + 1Randomize Timerx = Int(3 * Rnd) + 1y = 2Image4.Picture = Image2.PictureIf x = y Then Label3.Caption = 平局 Image5.Picture = Image2.Picture d = d + 1End IfIf x = 1 Then Label3.Caption = 你输了！ Image5.Picture = Image1.Picture L = L + 1End IfIf x = 3 Then Label3.Caption = 你赢了！ Image5.Picture = Image3.Picture w = w + 1End IfText1.Text = sumText2.Text = wText3.Text = dText4.Text =LEnd SubPrivate Sub Command3_Click()Dim x, y As Integersum = sum + 1Randomize Timerx = Int(3 * Rnd) + 1y = 3Image4.Picture = Image3.PictureIf x = y Then Label3.Caption = 平局 Image5.Picture = Image3.Picture d = d + 1End IfIf x = 1 Then Label3.Caption = 你赢了！ Image5.Picture = Image1.Picture w = w + 1End IfIf x = 2 Then Label3.Caption = 你输了！ Image5.Picture = Image2.Picture L= L+ 1End IfText1.Text = sumText2.Text = wTex