我窗口里有一个用户输入的textbox框，用户输入完了以后我有个点击按钮计算，计算完了以后我想把结果返回给这个窗体的另外一个textbox2里，不需要保存数据表啥的，就是个纯赋值给textbox2就行，这个代码咋写
嘻嘻
不许发火
我多好学的
老师你看下为啥点击窗口的计算按钮没反应呢
Dim jg As Double
Dim random As New Random()
Dim TextBox5 As Double = e.Form.Controls("TextBox5").Value
If TextBox5 < 1000 Then
jg = CInt(TextBox5 * (random.NextDouble() * (0.92 - 0.90) + 0.90)) ' 如果输入的jg < 1000，则返回jg * 0.90至0.92之间随机的结果的整数部分
Else
jg = CInt(TextBox5 * (random.NextDouble() * (0.94 - 0.93) + 0.93)) ' 如果输入的jg >= 1000，则返回jg * 0.93至0.94之间随机的结果的整数部分
End If
e.form.controls("textbox6").text = jg
Dim jg As Double
Dim random As New Random()
Dim TextBox5 As Double = e.Form.Controls("TextBox5").text
If TextBox5 < 1000 Then
jg = CInt(TextBox5 * (random.NextDouble() * (0.92 - 0.90) + 0.90)) ' 如果输入的jg < 1000，则返回jg * 0.90至0.92之间随机的结果的整数部分
Else
jg = CInt(TextBox5 * (random.NextDouble() * (0.94 - 0.93) + 0.93)) ' 如果输入的jg >= 1000，则返回jg * 0.93至0.94之间随机的结果的整数部分
End If
e.form.controls("textbox6").text = jg
现在代码是这样的，在窗口的确定按钮里。