Vb.net rndnumber没有按我想要的方式工作

嗨，我是VB新手，我想做一个程序，将随机数介于最小数和最大数之间

代码如下：

Public Class Form1
    Dim rnumber As Integer

    Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rndnumber As Random
        Dim number As Integer
        rndnumber = New Random
        number = rndnumber.Next(1, 10001)
        rnumber = number

        Timer1.Start()

    End Sub

    Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If rnumber < TextBox1.Text Or rnumber > TextBox2.Text Then
            Dim rndnumber As Random
            Dim number As Integer
            rndnumber = New Random
            number = rndnumber.Next(1, 10001)
        Else
            Timer1.Stop()
            Label4.Text = rnumber.ToString
        End If
    End Sub
End Class

公共类表单1
整数形式的数字
Public Sub Form1_Load（发送者作为对象，e作为事件参数）处理MyBase.Load
端接头
公共子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
Dim rndnumber作为随机数
整数形式的数字
rndnumber=新随机数
number=rndnumber.Next（110001）
rnumber=数字
Timer1.Start（）
端接头
Public Sub Timer1\u Tick（发送方作为对象，e作为事件参数）处理Timer1.Tick
如果rnumberTextBox2.Text，则
Dim rndnumber作为随机数
整数形式的数字
rndnumber=新随机数
number=rndnumber.Next（110001）
其他的
计时器1.Stop（）
Label4.Text=rnumber.ToString
如果结束
端接头
末级

当我点击按钮时，什么都没有发生，程序甚至没有冻结

请帮助，TNX。

不要忘记设置：

Timer1.Enabled = True 

---

无论是在代码中，还是在窗体上计时器对象的属性窗口中。

您不需要在每个刻度中创建Random类的实例，而是在窗体加载中执行：

Public Class Form1
  Dim rnumber As Integer
  Dim rndnumber As Random

  Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    rndnumber = New Random
  End Sub

  '...

  Public Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    If rnumber < TextBox1.Text Or rnumber > TextBox2.Text Then
        rnumber = rndnumber.Next(1, 10001) 'changed from "number"
    Else
        Timer1.Stop()
        Label4.Text = rnumber.ToString
    End If
  End Sub

公共类表单1
整数形式的数字
Dim rndnumber作为随机数
Public Sub Form1_Load（发送者作为对象，e作为事件参数）处理MyBase.Load
rndnumber=新随机数
端接头
'...
Public Sub Timer1\u Tick（发送方作为对象，e作为事件参数）处理Timer1.Tick
如果rnumberTextBox2.Text，则
RNNUMBER=RNDNAMBER.Next（11001）由“数字”改为“数字”
其他的
计时器1.Stop（）
Label4.Text=rnumber.ToString
如果结束
端接头

请注意，您从未将生成的值分配给

rnumber

，因此您的代码无法按预期工作，因此我将

number=

更改为

rnumber=