比如
Dim d As Double = Rand.NextDoubled = 4 + d*(6-4)output.show(d)
或者
Dim d As Double = Rand.NextDoubled = rand.Next(4,6) + doutput.show(d)