I am doin a school project and i am having problems with a code. It does not seem work.
Code:Private Sub Command1_Click() If Text1 >= 86 Then Label2.Caption = "Nicely done!" And Image1.Visible = True ElseIf Text1 < 86 >= 73 Then Label2.Caption = "Good Job!" And Image2.Visible = True ElseIf Text1 < 73 >= 65 Then Label2.Caption = "Right on!" And Image3.Visible = True And Image5.Visible = True ElseIf Text1 < 65 >= 60 Then Label2.Caption = " Not bad" And Image3.Visible = True ElseIf Text1 < 60 >= 49 Then Label2.Caption = "You got to try harder" And Image3.Visible = True And Image6.Visible = True ElseIf Text1 < 49 Then Label2.Caption = "Need more studying" And Image4.Visible = True End If End Sub Private Sub Command2_Click() Label2.Caption = " " Text1.Text = " " End Sub Private Sub Form_Load() Image1.Visible = False Image2.Visible = False Image3.Visible = False Image4.Visible = False Image5.Visible = False Image6.Visible = False End Sub Private Sub Quit_Click() End End Sub




Reply With Quote