跳到主要內容
程式語言 / 程式語言實作二

2a00-0910-2比大小

.先做二個骰子

.其中一為電腦

.其中一為使用者

.先做比大

.比較大的就勝出

 

 

 

Public Class Form1

    Dim a, b As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Randomize()

        a = Int(Rnd() * 6) + 1

        Label1.Text = a

        b = Int(Rnd() * 6) + 1

        Label2.text = b

 

    End Sub

End Class

 

 

消息公佈欄

時間類別單位標題發佈點閱
跳至網頁頂部