2a00-0910-1擲骰子

骰子為1-6

運用randomize和rnd和int

int(Rnd*(後-前+1))+前

其中前為1

其中後為6

Public Class Form1

    Dim a 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

    End Sub

End Class

註:記得調一下label的大小