Arkadaşlar ben bir cekiliş programı kodladım ancak cekilişte "0" da cıkıyor. Ayrıca ben bazı sayıların cıkmasını istemiyorum.

Kod şoyle:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Randomize()
Dim d1 As Integer = CInt(Int(100 * Rnd()) * 1)
Dim d2 As Integer = CInt(Int(100 * Rnd()) * 1)
Dim d3 As Integer = CInt(Int(100 * Rnd()) * 1)
TextBox1.Text = d1
TextBox2.Text = d2
TextBox3.Text = d3

End Sub

End Class

Ayrıca ben 1. texte 2-3-5-70 vb. bazı sayıların cekilmesini istemiyorum. Bunu nasıl sağlayabilirim?
__________________