用VB编程验证“角谷猜想”.“角谷猜想”指出,对于一个自然数,若该数字为偶数,则除以2；若该数为奇数,则乘以3并加1；将得到的数再重复按该规则运算,最终可得到1.编写程序,对给定的一个数n,验证这一过程.

Private Sub Command1_Click()Dim n As Integern = InputBox("请输入n：")DoIf n Mod 2 = 0 ThenCall ous(n)ElseCall jis(n)End IfLoop Until n 能不能显示过程，比如输入10就显示：10 5 16 8 4 2 1Private Sub Command1_Click()Dim n As Integern = InputBox("请输入n：")DoPrint n;If n Mod 2 = 0 ThenCall ous(n)ElseCall jis(n)End IfLoop Until n