發(fā)財888 祝您發(fā)發(fā)發(fā)

1、發(fā)財888祝您發(fā)發(fā)發(fā)奈米一乙陳建瑋123456Public Class Form1 Dim money As Integer 宣告整數(shù)變數(shù) Dim abc100 As Boolean = False 宣告布林變數(shù)，為否 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load money = 1000 指定變數(shù)數(shù)值 Label6.Text = 剩餘 & money & 元 標(biāo)題變更為指定文字 End Sub Private Sub Button1_

2、Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click money = money - 50 Label1.Text = Int(Rnd() * 10) 隨機(jī)亂數(shù)帶入文字方塊 Label2.Text = Int(Rnd() * 10) 隨機(jī)亂數(shù)帶入文字方塊 Label3.Text = Int(Rnd() * 10) 隨機(jī)亂數(shù)帶入文字方塊 If Label1.Text = 8 Or Label2.Text = 8 Or Label3.Text = 8 Then 如文字方塊等於8

3、 Label5.Text = 恭喜獲得一百元 標(biāo)題變更為指定文字 money = money + 100 Label6.Text = 剩餘 & money & 元 標(biāo)題變更為指定文字 End If If Label1.Text = 8 And Label2.Text = 8 Or Label2.Text = 8 And Label3.Text = 8 Or Label1.Text = 8 And Label3.Text = 8 Then Label5.Text = 恭喜獲得五百元 標(biāo)題變更為指定文字 money = money + 500 Label6.Text = 剩餘 & money &

4、元 標(biāo)題變更為指定文字7End If If Label1.Text = 8 And Label2.Text = 8 And Label3.Text = 8 Then Label5.Text = 恭喜獲得一千元 標(biāo)題變更為指定文字 money = money + 1000 Label6.Text = 剩餘 & money & 元 標(biāo)題變更為指定文字 End If If Label1.Text 8 And Label2.Text 8 And Label3.Text 8 Then Label5.Text = 恭喜獲得烏龜一隻 標(biāo)題變更為指定文字 Label6.Text = 剩餘 & money &

5、元 標(biāo)題變更為指定文字 End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click End End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Dim i As Integer 宣告整數(shù)變數(shù) abc100 = True 指定布林變數(shù)為真 For i = 1 To 99 for迴圈，由1至99 Button1_Click(sender, e) 執(zhí)行Button_Click Next abc100 = False 指定布林變數(shù)為否 Button1_Click(sender, e) 執(zhí)行Button_Cli