问题标题：
角谷猜想：对于每一个正整数,如果它是奇数,则对它乘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
孟繁晶回答：
看不懂
查看更多
