0

ご迷惑をおかけして申し訳ありませんが、私の問題で私を助けてくれませんか?

私はVisualBasicプログラミングに不慣れで、トピックが配列に移るまではすべて問題ありませんでした。Javaを使ってコードを理解しようとしました。(例:メソッドは関数と呼ばれます。。。)

私の教授は、ユーザーに5つ以上の質問(テキストボックス内)と選択肢(ボタン内)を尋ね、最後にスコアを計算するクイズプログラムを作成するための演習を行いました(すべて1つの形式で)。ユーザーがボタンをクリックすると、それが正しいか間違っているかがわかり、選択肢とともに質問の変更に進みます。

*必須:-ユーザーがクイズを終了すると、スコアが表示され、再起動ボタンが表示され、すべての質問がランダムにパターンなしで再度尋ねられます。-関数を作ってみてください。

昨日からウェブを検索してみましたが、まだコードが進んでいません。

    Public Class Form1
Dim questions(5) As String
Dim answers(5) As String

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    'Method/Function for loading the Q&A
    loadQsAndAs()
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    Me.Close()
End Sub

Private Sub loadQsAndAs()
    'Questions
    questions(0) = "What is 1 + 1?"
    questions(1) = "Who is the first man to walk on the Moon?"
    questions(2) = "What is the name of the main character in the movie: Yes Man!(2007)"
    questions(3) = "If I gave you three apples and you ate two, how many is left?"
    questions(4) = "What do you want in your final grade?"
    questions(5) = "What is the name of the thing(s) that you use whenever you eat?"
    'Answers
    answers(0) = "2"
    answers(1) = "Neil Armstrong"
    answers(2) = "Jim Carrey"
    answers(3) = "1"
    answers(4) = "A 4.0"
    answers(5) = "A Spoon and Fork"

    TextBox1.Text = setTheQuestion()
    Button1.Text = setTheAnswer1()
    Button2.Text = setTheAnswer2()
    Button3.Text = setTheAnswer3()
    Button4.Text = setTheAnswer4()

End Sub

Private Function setTheQuestion() As String
    Dim randomValue As New Random
    Dim randomQ As String = ""
    Dim i As Integer
    Dim index As Integer

    For i = 0 To 0
        index = randomValue.Next(0, questions.Length)
        randomQ &= questions(index)
    Next
    Return randomQ
End Function

Private Function setTheAnswer1() As String
    Dim randomValue As New Random
    Dim randomAns As String = ""
    Dim i As Integer
    Dim index As Integer

    For i = 0 To 0
        index = randomValue.Next(0, answers.Length)
        randomAns &= answers(index)
    Next

    Return randomAns
End Function

Private Function setTheAnswer2() As String
    Dim randomValue As New Random
    Dim randomAns As String = ""
    Dim i As Integer
    Dim index As Integer

    For i = 0 To 0
        index = randomValue.Next(1, answers.Length)
        randomAns &= answers(index)
    Next

    Return randomAns
End Function

Private Function setTheAnswer3() As String
    Dim randomValue As New Random
    Dim randomAns As String = ""
    Dim i As Integer
    Dim index As Integer

    For i = 0 To 0
        index = randomValue.Next(2, answers.Length)
        randomAns &= answers(index)
    Next

    Return randomAns
End Function

Private Function setTheAnswer4() As String
    Dim randomValue As New Random
    Dim randomAns As String = ""
    Dim i As Integer
    Dim index As Integer

    For i = 0 To 0
        index = randomValue.Next(3, answers.Length)
        randomAns &= answers(index)
    Next

    Return randomAns
End Function

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
    loadQsAndAs()
End Sub
    End Class

私の質問は次のとおりです。

  • ユーザーがプログラムを開始または再起動するたびにランダムに表示されるように、質問と選択を配列に含めるにはどうすればよいですか?

  • ランダムな質問が他の3つのランダムな回答と一緒に正解になるようにコーディングするにはどうすればよいですか?(私のものは答えをランダム化しているだけで、いくつかの選択を繰り返し続けているため)

誰か助けてもらえますか?

4

1 に答える 1

0

クイズを初期化するときに、ランダムな数字のシーケンスを作成して、質問と回答のシーケンスを示します。

于 2012-08-07T08:12:58.410 に答える