Solution

Module Module1


    Sub Main()

Begin:
        Dim Array3(3) As Integer
        Dim thirdDig As Integer
        Dim fourthDig As Integer
        Dim secondDig As Integer
        Dim firstDig As Integer
        Dim b, c, d As Integer
        Dim number3 As Integer
        Dim number2 As Integer
        Dim number1 As Integer
        Dim Array2(1) As Integer
        Dim Array1(2) As Integer
        Dim rnd As New Random()
        Dim a As Integer = rnd.Next(1, 3)
        Array1(0) = a
        Dim loop1 As Boolean = True
        Dim loop2 As Boolean = True
        Dim loop3 As Boolean = True
        Debug.Print(number3)
        While loop1 = True
            b = rnd.Next(1, 10)
            If Array1.Contains(b) Then
                loop1 = True
            Else
                loop1 = False
            End If
            Array1(1) = b
        End While
        While loop2 = True
            c = rnd.Next(1, 10)
            If Array1.Contains(c) Then
                loop2 = True
            Else
                loop2 = False
            End If
            Array1(2) = c
        End While
        Array2(0) = 3
        While loop3 = True
            d = rnd.Next(1, 10)
            If Array1.Contains(d) Then
                loop3 = True
            Else
                loop3 = False
            End If
            Array2(1) = d
        End While

        number1 = (a * 100) + (b * 10) + c

        number2 = 30 + d

        number3 = number1 * number2

        If number3 >= 10000 Then
            GoTo Begin
        End If

        firstDig = Convert.ToInt32(number3.ToString().Substring(0, 1))
        secondDig = Convert.ToInt32(number3.ToString().Substring(1, 1))
        thirdDig = Convert.ToInt32(number3.ToString().Substring(2, 1))
        fourthDig = Convert.ToInt32(number3.ToString().Substring(3, 1))
        Array3(0) = firstDig
        Array3(1) = secondDig
        Array3(2) = thirdDig
        Array3(3) = fourthDig
        If Array3.Contains(0) Then
            GoTo Begin
        End If
        If Array1.Contains(3) Or Array3.Contains(3) Then
            GoTo Begin
        End If

        If Array1.Contains(firstDig) Or Array2.Contains(firstDig) Then
            GoTo Begin
        End If
        If Array1.Contains(secondDig) Or Array2.Contains(secondDig) Then
            GoTo Begin
        End If
        If Array1.Contains(thirdDig) Or Array2.Contains(thirdDig) Then
            GoTo Begin
        End If
        If Array1.Contains(fourthDig) Or Array2.Contains(fourthDig) Then
            GoTo Begin
        End If

        Dim Amount As Integer = 0
        For x = 0 To 3
            If Array3(x) = firstDig Then
                Amount = Amount + 1
            End If
        Next
        If Amount > 1 Then
            GoTo Begin
        End If
        Amount = 0

        For x = 0 To 3
            If Array3(x) = secondDig Then
                Amount = Amount + 1
            End If
        Next
        If Amount > 1 Then
            GoTo Begin
        End If
        Amount = 0

        For x = 0 To 3
            If Array3(x) = thirdDig Then
                Amount = Amount + 1
            End If
        Next
        If Amount > 1 Then
            GoTo Begin
        End If
        Amount = 0

        For x = 0 To 3
            If Array3(x) = fourthDig Then
                Amount = Amount + 1
            End If
        Next
        If Amount > 1 Then
            GoTo Begin
        End If
        Amount = 0

        MsgBox(number3)
        MsgBox(d)

    End Sub



End Module