ChatGPT × Excel 簡単なゲームを作って

chatGPT に簡単なゲームを作ってもらった結果、、、、、

意外とハマるゲームのプログラムを教えてくれました。

これは、ヒントをもらって改良してゲームとして販売するのも良いかもしれませんね

ゲーム説明：

このゲームでは、プログラムが1から100の範囲内のランダムな数値を選択し、ユーザーがその数値を当てることを目的としています。ユーザーが入力した数値が正解よりも小さい場合は「Too low!」、大きい場合は「Too high!」というメッセージが表示されます。正解を当てた場合は「Congratulations!」というメッセージが表示され、ゲームが終了します。また、正解を当てるまでの回数も表示されます。

Sub GuessNumberGame()

    ' ゲームの初期化

    Randomize

    Dim answer As Integer

    answer = Int(Rnd * 100) + 1

    Dim guess As Integer

    Dim tries As Integer

    tries = 0

    ' ゲームのループを開始

    Do While True

        ' ユーザーからの入力を受け取る

        guess = InputBox("Guess a number between 1 and 100:")

        tries = tries + 1

        ' 入力された数値をチェックする

        If guess = answer Then

            MsgBox "Congratulations! You guessed the number in " & tries & " tries!"

            Exit Do

        ElseIf guess < answer Then

            MsgBox "Too low! Guess again."

        ElseIf guess > answer Then

            MsgBox "Too high! Guess again."

        End If

    Loop

End Sub