用易语言控制台实现猜数字游戏

好的，我可以帮助你实现这个游戏。首先，我们需要定义一个随机数作为答案，我们可以使用易语言的 random 函数生成一个 1 到 100 之间的随机整数，然后让用户输入猜测的数字，并与答案进行比较，如果猜错了，告诉用户是猜大了还是猜小了，直到猜中为止。

下面是实现该游戏的代码：

program GuessNumber;

var
  Answer, Guess: integer;
  Count: integer = 0;

begin
  Answer := random(100) + 1; // 生成随机数
  writeln('我想好了一个 1 到 100 之间的数字，你猜一猜是多少？');
  
  repeat
    write('请输入你的猜测：');
    readln(Guess);
    Count := Count + 1;
    
    if Guess > Answer then
      writeln('你猜大了。')
    else if Guess < Answer then
      writeln('你猜小了。');
  until Guess = Answer;
  
  writeln('恭喜你，猜中了！总共猜了 ', Count, ' 次。');
  readln; // 防止控制台自动关闭
end.

注意，为了方便用户输入，在控制台窗口中使用了 readln 函数，需要用户手动按下回车键来提交输入。如果你想让用户直接输入一个数字并自动提交，可以使用类似 `inputbox` 函数的 GUI 组件来实现。