Dim grade As String

Private Sub Compute_Click( )

grade=txtgrade.Text

Select Case grade

Case "A"
result.Caption="High Distinction"

Case "A-"
result.Caption="Distinction"

Case "B"
result.Caption="Credit"

Case "C"
result.Caption="Pass"

Case Else
result.Caption="Fail"

End Select

End Sub


i got this source code.but i don't know what general should i create.can anyone teach me?it is just need to create a command and a text?i try many time,really no idea.

You need a button call Compute... and a label call result. Anyway if you can't figure that out from this code, you better get a beginner book.

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

hi gbianchi,yeah,i can do it.thanks you .and alos a textbox right?

Yeah named txtgrade

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

gbianchi thanks you.i done it