请问VB.NET怎么输出 ，max对应的i值

Question

Q1 = Me.TextBox5.Text
Dim num As Single
max1 = 0
For i = 0 To Q1
num = Math.Sin(i * Math.PI / 180)
If max1 < num Then max1 = num
Next i
Me.TextBox15.Text = max1

Answer 1

 Q1 = Me.TextBox5.Text
Dim num As Single
max1 = 0
For i = 0 To Q1
num = Math.Sin(i * Math.PI / 180)
If Math.Sin(max1 * Math.PI / 180) < num Then max1 = i
Next i
Me.TextBox15.Text = max1