For i As Integer = 1 To 10
    Dim w1 As Double = Rnd()
    Dim w2 As Double = w1 * 100
    Dim w3 As Integer = Int(w2)
 
    Debug.WriteLine(w1.ToString() & " " & w2.ToString() & " " & w3.ToString())
Next

0.705547511577606  70.5547511577606  70
0.533424019813538  53.3424019813538  53
0.579518616199493  57.9518616199493  57
0.289562463760376  28.9562463760376  28
0.301948010921478  30.1948010921478  30
0.774740099906921  77.4740099906921  77
0.014017641544342  1.4017641544342    1
0.76072359085083   76.072359085083   76
0.814490020275116  81.4490020275116  81
0.709037899971008  70.9037899971008  70

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist