
Patrick B. answered 07/27/19
Math and computer tutor/teacher
Module Module1
Function RandomHexStr() As String
Dim RandHexStr As String
RandHexStr = " "
Randomize()
For iLoop = 1 To 2
Dim randomNum As Integer = -1
While (randomNum < 1) Or (randomNum > 16)
randomNum = Int(Rnd() * 15 + 1)
End While
Select Case (randomNum)
Case 10 : RandHexStr = RandHexStr & "A"
Case 11 : RandHexStr = RandHexStr & "B"
Case 12 : RandHexStr = RandHexStr & "C"
Case 13 : RandHexStr = RandHexStr & "D"
Case 14 : RandHexStr = RandHexStr & "E"
Case 15 : RandHexStr = RandHexStr & "F"
Case Else : RandHexStr = RandHexStr & randomNum
End Select
Next
RandomHexStr = RandHexStr
End Function
Sub Go()
For iLoop = 1 To 10
Console.WriteLine(RandomHexStr)
Next
End Sub
Sub Main()
Go()
End Sub
End Module