如何用Excel VBA循环和条件语句写猜大小游戏程序

Question

用Excel VBA循环和条件语句写：根据提示输入一个数，根据程序提示”猜大了“，”猜小了“和”猜对了“。猜出程序的常数的游戏程序

Answer 1

程序的常数可以用rnd生成，while示例如下

Sub games()
   
  num = CInt(Rnd() * 100) '生成100以内的随机数
  MsgBox num
  
  Do While True
  
    mynum = CInt(Application.InputBox("请输入数字", "猜大小"))
    If mynum = num Then
      MsgBox "猜对了"
      Exit Do
    ElseIf mynum > num Then
      MsgBox "猜大了"
    Else
      MsgBox "猜小了"
    End If
  
  Loop
 
End Sub