VB程式設計

Question

計算成績:設計表單與程式，可以利用捲軸輸入國文，英文，數學的成績，並計算及顯示其總分與平均分數，大家會的可以給我程式碼嗎謝謝大家^^

Answer 1

Dim A As Label, B As Label, C As Label, G As Label, H As Label
Dim WithEvents D As HScrollBar, WithEvents E As HScrollBar, WithEvents F As HScrollBar

Private Sub D_Change()
K "國文 : ", A, D
End Sub

Private Sub D_Scroll()
K "國文 : ", A, D
End Sub

Private Sub E_Change()
K "英文 : ", B, E
End Sub

Private Sub E_Scroll()
K "英文 : ", B, E
End Sub

Private Sub F_Change()
K "數學 : ", C, F
End Sub

Private Sub F_Scroll()
K "數學 : ", C, F
End Sub

Sub K(S As String, L, M)
L = S & M
G = "總分 : " & D + E + F
H = "平均 : " & Int((D + E + F) / 3)
End Sub

Private Sub Form_Load()
Height = 2400: Width = 3160
Set A = Controls.Add("VB.Label", "A")
A = "國文 : 0": A.AutoSize = True: A.Visible = True
Set D = Controls.Add("VB.HScrollBar", "D")
D.Top = A.Height + 30: D.Max = 100: D.Width = 3015: D.Visible = True
Set B = Controls.Add("VB.Label", "B")
B.Top = D.Top + D.Height + 60: B = "英文 : 0": B.AutoSize = True: B.Visible = True
Set E = Controls.Add("VB.HScrollBar", "E")
E.Top = B.Height + B.Top + 30: E.Max = 100: E.Width = 3015: E.Visible = True
Set C = Controls.Add("VB.Label", "C")
C.Top = E.Top + E.Height + 60: C = "數學 : 0": C.AutoSize = True: C.Visible = True
Set F = Controls.Add("VB.HScrollBar", "F")
F.Top = C.Height + C.Top + 30: F.Max = 100: F.Width = 3015: F.Visible = True
Set G = Controls.Add("VB.Label", "G")
G.Top = F.Top + F.Height + 60: G = "總分 : 0": G.AutoSize = True: G.Visible = True
Set H = Controls.Add("VB.Label", "H")
H.Top = G.Top + G.Height + 60: H = "平均 : 0": H.Visible = True
End Sub