Imports System
Module RandomTwoDigitsProgram
' Function to select random two distinct digits from a number
Function GetRandomTwoDigits(number As Long) As String
Dim numStr As String = number.ToString()
If numStr.Length < 2 Then
Return "Error: number must have at least 2 digits"
End If
Dim rand As New Random()
Dim i As Integer = rand.Next(numStr.Length)
Dim j As Integer
Do
j = rand.Next(numStr.Length)
Loop While j = i ' ensure different positions
' Form the two-digit string
Return numStr(i) & numStr(j)
End Function
Sub Main()
Dim num As Long = 1234567
Dim randomTwo As String = GetRandomTwoDigits(num)
Console.WriteLine("Random two digits: " & randomTwo)
End Sub
End Module
' run:
'
' Random two digits: 71
'
