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

角谷猜想：对于每一个正整数,如果它是奇数,则对它乘3再加1；如果是偶数,对它除以2,如此循环,最终能够得到1.

改错：修改以下错误,各1分.

PrivateSubCmd_OK_Click()

DimStepsAsInteger

DimAsInteger'此处有一错误

Num=Val(iNum.Text)

Steps='此处有一错误

oText.Text=Num

DoWhileNum=1'此处有一错误

Steps=Steps+1

IfNumMod2Then'此处有一错误

Num=Num2

Else

Num=Num*3+1

EndIf

oText.Text=oText.Text&"→"&Num

Loop

oStep.Caption=Steps

EndSub