角谷猜想：对于每一个正整数,如果它是奇数,则对它乘3再加1；如果是偶数,对它除以2,如此循环,最终能够得到1.改错：修改以下错误,各1分.PrivateSubCmdOKClick()DimStepsAsIntegerDimAsInteger'此处

Question

角谷猜想：对于每一个正整数,如果它是奇数,则对它乘3再加1；如果是偶数,对它除以2,如此循环,最终能够得到1.
改错：修改以下错误,各1分.
Private Sub Cmd_OK_Click()
Dim Steps As Integer
Dim As Integer '此处有一错误
Num = Val(iNum.Text)
Steps = '此处有一错误
oText.Text = Num
Do While Num = 1 '此处有一错误
Steps = Steps + 1
If Num Mod 2 Then '此处有一错误
Num = Num \ 2
Else
Num = Num * 3 + 1
End If
oText.Text = oText.Text & "→" & Num
Loop
oStep.Caption = Steps
End Sub

Answer 1

看不懂