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