產量百分比0.00

Question

在我的計算成績計劃中，我需要找到最終獲得某個成績所需的百分比。 我計算了我的變數PNA這是A. 我做的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 

Answer 1

Dim PNA As Integer 
PNA = 900 - GSF 

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

佩納應該聲明單，雙或小數，如果你想它來存儲一小部分