[Help]School Work?[Solved]

i want to show the result in the msg box

tnx more power MPGH

Originally Posted by MargZXerO

i want to show the result in the msg box

tnx more power MPGH

Post your code here...Not in an attachment !!

1. Your very first post to ask for someone to do what you should be doing it's just wrong.
2. You can't have an attachment without virus scan.
3. How can you learn if someone is doing it for you?

e// gosh Hassan.. :\ faster

Dim average As Integer
Dim units As Integer

Const math = 4
Const science = 3
Const english = 3
units = math + science + english
average = (Val(txtenglish * english + Val(txtscience) * science + Val(txtmath) * math)) / units
lblanswer.Caption = average
msg = MsgBox("Success Your Average Grade Is I WANT TO SHOW THE RESULT HERE!", vbInformation)

tnx in advance

Originally Posted by MargZXerO

tnx in advance

Code:

Dim average As Integer Dim units As Integer Const math = 4 Const science = 3 Const english = 3 units = math + science + english average = (Val(txtenglish * english + Val(txtscience) * science + Val(txtmath) * math)) / units lblanswer.Caption = average msg = MsgBox("Success Your Average Grade Is I WANT TO SHOW THE RESULT HERE!", vbInformation)

Fixed Code:

Code:

Dim average As Integer Dim units As Integer Const math = 4 Const science = 3 Const english = 3 units = math + science + english average = (Val(txtenglish * english + Val(txtscience) * science + Val(txtmath) * math)) / units lblanswer.Caption = average MsgBox("Success Your Average Grade Is: " & average)

Easy Much ?

Originally Posted by Brinuz

e// gosh Hassan.. :\ faster

Originally Posted by Xscapism

Code:

Dim average As Integer Dim units As Integer Const math = 4 Const science = 3 Const english = 3 units = math + science + english average = (Val(txtenglish * english + Val(txtscience) * science + Val(txtmath) * math)) / units lblanswer.Caption = average msg = MsgBox("Success Your Average Grade Is I WANT TO SHOW THE RESULT HERE!", vbInformation)

Fixed Code:

Code:

Dim average As Integer Dim units As Integer Const math = 4 Const science = 3 Const english = 3 units = math + science + english average = (Val(txtenglish * english + Val(txtscience) * science + Val(txtmath) * math)) / units lblanswer.Caption = average MsgBox("Success Your Average Grade Is: " & average)

Easy Much ?

WOW