im guess As Integer randomize x = Int(Rnd(10) * 100) n = 0 Do While guess <> x guess = InputBox ("请输入你猜的数字( 0~100 )", " 猜数") n = n + 1 If guess > x Then Print guess; " 太大了!" Else If guess < x Then Print guess; " 太小了!" End If End If Print " 你已经猜了"; n; " 次" Loop Print " 恭喜你,猜对了!" 声明随机数的变量类型产生一个 1~100 的随机数分支以及循环猜数提示”猜对”输出增加计数器四、修改程序,增加起始密码 doWhile inputpassword <>”123456 ” Inputpassword =InputBox (“请输入密码”,”输入密码“) loop Dim x As Integer Dim guess As Integer randomize x = Int(Rnd(10) * 100) n = 0 Do While guess <> x guess = InputBox ("请输入你猜的数字( 0~100 )", " 猜数") n = n + 1 If guess > x Then Print guess; " 太大了!" Else If guess < x Then Print guess; " 太小了!" End If End If Print " 你已经猜了"; n; " 次" Loop 声明随机数的变量类型产生一个 1~100 的随机数分支以及循环猜数提示”猜对”输出增加密码程序五、程序的设计步骤分析问题设计算法编写程序代码运行调试程序正确不正确程序设计的一般步骤