数えられない乱数0,7,8,9

Question

Dim generator As New Random 
Dim myRand1, myRand2, myRand3, myRand4, myRand5, myRand6 As Integer 

TextBox1.Clear() 
TextBox2.Clear() 
TextBox3.Clear() 
TextBox4.Clear() 
TextBox5.Clear() 
TextBox6.Clear() 
TextBox7.Clear() 
TextBox8.Clear() 
TextBox9.Clear() 
TextBox10.Clear() 
TextBox11.Clear() 
TextBox12.Clear() 

myRand1 = generator.Next(11111, 66666) 
myRand2 = generator.Next(11111, 66666) 
myRand3 = generator.Next(11111, 66666) 
myRand4 = generator.Next(11111, 66666) 
myRand5 = generator.Next(11111, 66666) 
myRand6 = generator.Next(11111, 66666) 

TextBox1.Text = myRand1.ToString() 
TextBox3.Text = myRand2.ToString() 
TextBox5.Text = myRand3.ToString() 
TextBox7.Text = myRand4.ToString() 
TextBox9.Text = myRand5.ToString() 
TextBox11.Text = myRand6.ToString() 

私はこれを作る方法を見つけるためにしばらく試してみました。私は11111から66666までの数字を作りたいと思っていますが、私はこれらの数字に0,7,8,9をつけたくありません。私はどうしたらいいですか？

Answer 1

.Netライブラリから直接実装することはできません。ただし、カスタム実装でRandomクラスのpublic virtual int Next(int minValue, int maxValue)メソッドをオーバーライドすることはできます。