Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then Session("no") = 0 Randomize() Dim A(4) As Integer Dim B(10) As Integer Dim i, j, Point_Num As Integer 'B陣列記錄那些數字已經選過了 For i = 0 To 9 B(i) = 0 Next For i = 1 To 4 Point_Num = Int(Rnd() * 10) While B(Point_Num) = 1 Point_Num = Int(Rnd() * 10) End While A(i) = Point_Num B(Point_Num) = 1 Next Session("A1") = A(1).ToString() Session("A2") = A(2).ToString() Session("A3") = A(3).ToString() Session("A4") = A(4).ToString() L_Time.Text = "" For i = 1 To 4 L_Time.Text &= A(i).ToString() Next End If End Sub