通過期中和末期計算成績

對於我在Visual Basic中的課程，我需要根據中期和最終考試的分數計算學期成績。我的問題是，我一直在100這裏得到的數字最終必須計數兩倍作爲中期是我到目前爲止，通過期中和末期計算成績

Private Sub btnDet_Click(sender As Object, e As EventArgs) Handles btnDet.Click 
     Dim mid As Double = CDbl(txtMid.Text) 
     Dim final As Double = CDbl(txtMid.Text) 
     Dim grade As Double = (mid + final + final)/2 
     Math.Ceiling(grade) 
     lblGrade.Text = CStr(grade) 
    End Sub

......

來源

2015-10-14 Zach Wirta

，則應該更換標籤VB.Net，比VBA不同。然而，錯誤只是你應該除以3，而不是2 :) –

我打算高調回答這個問題，因爲當mids爲75％，最終爲55％時，他的建議是0.616，而他的建議是0.165與我的。如果你喜歡http://goo.gl/2uNPxd，這裏是代碼。更不用說它需要更少的更改。 – clovola

@Clovola你似乎對你的學生如此慷慨:)。事實上，你的評分是99，而不是100.你可以通過增加更多的小數（0.33333,0.666666）來達到相同的結果;） –

爲什麼不僅考慮中期三分之一的成績，還有最後三分之二的成績？因此，在代碼中，您只需乘以mid * 0.33和final * 0.66，然後將這些加在一起就可以得到您的成績。

這裏的是我的思維過程：

Private Sub btnDet_Click(sender As Object, e As EventArgs) Handles btnDet.Click Dim mid As Double = CDbl(txtMid.Text) * 0.33 Dim final As Double = CDbl(txtMid.Text) * 0.66 Dim grade As Double = mid + final Math.Ceiling(grade) lblGrade.Text = CStr(grade) End Sub

來源

2015-10-14 00:55:38 clovola

通過期中和末期計算成績

回答

相關問題