Randomize

Public Class Form1
    Dim num As Integer = 0
    Dim per(num) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
        Dim value As Integer = CInt(Int((3 * Rnd()) + 1))
        For random15 = 1 To 3
            value = num
            num = num + 1
            If per(1) = value Or per(2) = value Or per(3) = value Then
                value = value + 1
            End If
        Next random15
        Label1.Text = value
    End Sub

Public Class Form1
    Dim num As Integer = 0
    Dim per(25) As Integer
    Dim res(25) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Randomize()
re:
        Dim value As Integer = CInt(Int((25 * Rnd()) + 1))
              If per(value) = 0 Then
                per(value) = 1
                num = num + 1
                res(num) = value
                Label1.Text = Label1.Text & "  " & value
                If num = 25 Then Goto en
            End If
    Goto re
en:
    
    End Sub