随机数不能算作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库没有直接实现。但是，您可以使用自定义实现覆盖public virtual int Next(int minValue, int maxValue)类的Random方法。