题型：综合题 题类：常考题 难易度：普通
浙江省高中信息技术 解析算法及程序实现同步练习
Private Sub Command1_Click()
Dim n As Integer, i As Integer
List1.Clear
If n > 1 Then
List1.AddItem “步数对应值”
i=1
Do While
If n Mod 2=1 Then
n=n * 3+1
Else
n=
End If
List1.AddItem Str(i)+“ ”+Str(n)
i=i+1
Loop
Else
List1.AddItem “输入有误!”
End If
End Sub
试题篮
