arrays - 一度に 1 つずつ入力ボックスに一連の質問をランダムな順序で表示するにはどうすればよいですか?

Question

Visual Basic でクイズを作成しています。ここでは、一連の質問が再生されるたびに新しい順序で表示され、入力ボックスに次々と表示され、ユーザーが入力ボックスに回答を入力します。配列を使用できることはわかっていますが、これについてはどうすればよいでしょうか? そうでない場合、他にどのような方法がありますか？

どうもありがとう。

Answer 1

この関数は、パラメーターで指定されたリストからランダムに 1 つの質問をし、その答えを文字列で返します。

Function AskRandom(rQuestions As Range) As String

 Dim uQuestionsCount As Long
 Dim uQuestion As Long

 uQuestionsCount = rQuestions.Count

 uQuestion = CLng(Rnd() * uQuestionsCount) + 1

 AskRandom = InputBox(rQuestions(uQuestion), "Question")

End Function