需要幫助爲先生和夫人遊戲製作分數理論

Question

我正在嘗試製作先生和女士風格的遊戲，其中一位用戶輸入答案，另一位用戶試圖猜測其他人說的話。一切工作到比較用戶答案的​​部分，以查看誰是正確的。我不確定究竟是什麼錯誤。任何幫助是非常讚賞的。

Module Module1 

Sub Main() 
    Dim Question(4) As String 
    Dim P1Answer(4) As String 
    Dim P2Answer(4) As String 
    Dim P1Name As String = "" 
    Dim P2Name As String = "" 
    Dim Count As Integer = 0 
    Dim UserScore As Integer = 0 
    Const ArraySize As Integer = 5 

    While Count <> 4 
     Question(Count) = "" 
     Count = Count + 1 
    End While 

    Count = 0 

    Question(0) = " favourite colour?" 
    Question(1) = " age?" 
    Question(2) = " best friends name?" 
    Question(3) = " favourite food?" 
    Question(4) = " first pet's name?" 

    Console.WriteLine("Enter the name of player 1") 
    P1Name = Console.ReadLine 
    Console.WriteLine("Enter the name of player 2") 
    P2Name = Console.ReadLine 

    Console.WriteLine(P1Name & ". Please get ready to enter your answers.") 
    Console.WriteLine("Tell " & P2Name & " to go away while you answer the questions") 
    Console.WriteLine("Press enter when you are ready to begin.") 
    Console.ReadLine() 

    While ArraySize <> Count 
     Console.WriteLine("What is your" & Question(Count)) 
     P1Answer(Count) = Console.ReadLine 
     Count = Count + 1 
    End While 

    Count = 0 

    Console.Clear() 

    Console.WriteLine("Tell " & P2Name & " to come back now.") 
    Console.WriteLine(P2Name & ". Please get ready to enter your answers.") 
    Console.WriteLine("Press enter when you are ready to begin.") 
    Console.ReadLine() 

    While ArraySize <> Count 
     Console.WriteLine("What is " & P1Name & "'s" & Question(Count)) 
     P2Answer(Count) = Console.ReadLine 
     Count = Count + 1 
    End While 

    Count = 0 

    **While Count <> 5 
     If P1Answer(Count) = P2Answer(Count) Then 
      UserScore = UserScore + 1 
     Else 
      UserScore = UserScore 
     End If 
     Question(Count) = Question(Count + 1) 
    End While** 

    Console.WriteLine("Your total score is " & UserScore) 

    Console.ReadLine() 
End Sub 

前端模塊

Answer 1

我看到你的代碼的幾個問題 - 一是這是最常見的一個問題是，資本可能會導致虛假錯誤的答案。

例如，玩家1說她的名字是「安妮」，玩家2回答「安妮」 - 你的代碼沒有考慮到這一點。

下一個問題是，你實際上並沒有遞增Count變量。

保持與你的編碼風格，我建議寫一個循環是這樣的：

Count = 0 

While ArraySize <> Count 
    If UCase(P1Answer(Count)) = UCase(P2Answer(Count)) Then 
     UserScore = UserScore + 1 
    End If 
    Count = Count + 1 
End While 

希望是有道理的！