ご迷惑をおかけして申し訳ありませんが、私の問題で私を助けてくれませんか?
私は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つのランダムな回答と一緒に正解になるようにコーディングするにはどうすればよいですか?(私のものは答えをランダム化しているだけで、いくつかの選択を繰り返し続けているため)
誰か助けてもらえますか?