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