0

成績を計算する私のプログラムでは、特定の成績を得るために決勝で必要なパーセンテージを見つける必要があります。PNAAに必要なポイントである変数を計算します.900を実行します- GSF（これはこれまでの成績です）完璧なスコアを得るには、50ポイントが必要です。

次に、変数を実行しますPeNA。これは、最終的に必要なパーセンテージです。

だから私は複数のことをしました： PeNA = PNA / 150 そして PeNA = (900-GSF) / 150

どちらの結果も 0.00% でした

結果は 33.33% になるはずですが、役に立たないことはわかっています。

私の質問は、その PeNA 変数とステートメントをフォーマットして、必要な正しいパーセントを返す方法です。

ここのどこかに論理エラーがあると思います。しかし、何が間違っているのかわかりません。これを理解したら、プロジェクトを実行する必要があります。

これが私のコードです。

  Sub Main()
    Dim TG1 As Integer = -1
    While TG1 < 0 Or TG1 > 200
        Console.WriteLine("Please enter your grade for project #1 <0-200>: ")
        TG1 = Console.ReadLine()
    End While

    Dim TG2 As Integer = -1
    While TG2 < 0 Or TG2 > 200
        Console.WriteLine("Please enter your grade for project #2 <0-200>: ")
        TG2 = Console.ReadLine()
    End While

    Dim TG3 As Integer = -1
    While TG3 < 0 Or TG3 > 200
        Console.WriteLine("Please enter your grade for project #3 <0-200>: ")
        TG3 = Console.ReadLine()
    End While

    Dim MT1 As Integer = -1
    While MT1 < 0 Or MT1 > 150
        Console.WriteLine("Please enter your grade on the midterm <0-150>: ")
        MT1 = Console.ReadLine()
    End While

    Dim AB1 As Integer = -1
    While AB1 < 0 Or AB1 > 30
        Console.WriteLine("Please enter how much you were absent   <0-30>: ")
        AB1 = Console.ReadLine()
    End While

    Dim AB2 As Integer
    If AB1 <= 2 Then AB2 = 100
    If AB1 > 2 AndAlso AB1 < 8 Then AB2 = 100 - ((AB1 - 2) * 20)
    If AB1 > 7 Then AB2 = 0

    Dim GSF As Integer
    GSF = TG1 + TG2 + TG3 + MT1 + AB2

    Dim PNA As Integer
    PNA = 900 - GSF

    Dim PeNA As Integer
    PeNA = (900 - GSF) / 150



    Console.WriteLine("------------------------------------------------")
    Console.WriteLine("--GRADE SUMMARY--")
    Console.WriteLine("Project #1    : {0}", TG1)
    Console.WriteLine("Project #2    : {0}", TG2)
    Console.WriteLine("Project #3    : {0}", TG3)
    Console.WriteLine("Midterm Exam  : {0}", MT1)
    Console.WriteLine("Participation : {0}", AB2)
    Console.WriteLine("-------------------------------------------------")
    Console.WriteLine("Total grade so far: {0}", GSF)
    Console.WriteLine("")
    Console.WriteLine("{0} {1} {2}", "Desired grade".PadRight(20), "Points needed".PadRight(20), "Percentage needed on final")
    Console.WriteLine("{0} {1} {2}", "A".PadRight(20), PNA.ToString.PadRight(20), FormatPercent(PeNA).ToString.PadRight(20))


    'A - 900-1000
    'B - 800-899
    'C - 700-799
    'D - 600-699
4

1 に答える 1

1 
Dim PNA As Integer
PNA = 900 - GSF

Dim PeNA As Integer
PeNA = (900 - GSF) / 150

小数を格納する場合は、PeNA を SINGLE、DOUBLE、または DECIMAL として宣言する必要があります。

于 2013-10-08T21:42:39.550 に答える