Visual Basic - problemita con Notas de un alumno en visual basic

HOLA SOY NUEVO EN VISUAL BASIC Y TENGO UN GRAN PROBLEMON PERO A DE SER UN PROBLEMITA.....

http://a6.sphotos.ak.fbcdn.net/hphotos-ak-snc6/215006_203249849698446_100000402966288_643257_3964433_n.jpg

http://a5.sphotos.ak.fbcdn.net/hphotos-ak-snc6/216754_203249859698445_100000402966288_643258_6148194_n.jpg

EL PROBLEMA ES QUE CUANDO KIERO QUE INTRODUZCAN EN LA CAJA DE TEXTO UN 80 O 90 ME IMPRIMA "BUENO" PERO NO ME IMPRIME NADA... TAMBIEN CUNANDO INTRODUSZO 60 AND 70
AYUDA

Hola compañero:

He estado mirando tu código y tiene bastantes fallos.

TU CODIGO
-----------------
Private Sub Command1_Click()
If nota = 100 Then
Print "Excelente"
If nota = 80 And 90 Then
Print "Bueno"
If nota = 60 And 70 Then
Print "Regular"
If nota = 0 And 59 Then
Print Aplazado
End If
End If
End If
End If
End Sub

SUGERENCIA: Cuando abras un if, coloca justo debajo el (end if) es decir:
if nota = 100 then
print "Excelente"
end if

Si despues del if solamente vas a colocar una instrucción como es este caso puedes colocarlo de la siguiente manera: (if nota = 100 then print "Excelente"). Pero si vas a colocar mas de una instrucción, lo tienes que hacer de esta otra forma.

if nota = 100 then
print "Excelente"
print "Pasa de curso"
end if

En las siguiente lineas te hago una pequeña reflexión:

If nota = 80 And 90 Then
If nota = 60 And 70 Then
If nota = 0 And 59 Then

colocas (if nota = 80 and 90). Ese 90 a que te refieres? sera a nota? pues deberias colocarlo de esta manera
if nota = 80 And nota = 90 then
print "Bueno"
end if

el problema al colocarle (And) es que nunca va a imprimir nada ya que la casilla no puede tener las dos notas al mismo tiempo es decir (80 y 90) por lo tanto deberías modificarlas a esta otra manera.

Private Sub Command1_Click()
If nota = 100 Then
Print "Excelente"
end if
If nota = 80 Or nota = 90 Then
Print "Bueno"
end if
If nota = 60 Or nota = 70 Then
Print "Regular"
end if
If nota = 0 or nota = 59 Then
Print Aplazado
end if
End Sub


OTRA FORMA DE HACERLO

Private Sub Command1_Click()
If nota = 100 Then
Print "Excelente"
end if
If nota >= 80 And nota <=90 Then
Print "Bueno"
end if
If nota >= 60 And nota <= 70 Then
Print "Regular"
end if
If nota >= 0 And nota <= 59 Then
Print Aplazado
end if
End Sub


Bueno espero haberte ayudado y que te sirva lo que te he explicado.