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

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

程序的常数可以用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

只用条件和循环语句for和dowhile

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632