Programa En Visual Basic

INSTITUTO TECNOLÓGICO “BENITO JUÁREZ”
Nombre:
Curso: ”
Fecha: 1/abr/2012
Programa1.

Private Sub Command1_Click()
Frame1.Visible = True
Label8.Caption = Text1.Text
Label10.Caption= Text2.Text

Label11.Caption = Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)
If (Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)) > 39 Then
Label9.Caption = "Aprueba el año con :"Else
Label9.Caption = "Reprueba el año con :"
End If

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text1_Change()
If IsNumeric(Text1.Text) Then MsgBox "Ingrese nombre delestudiante", Mensaje
End Sub

Programa 2. Si el valor total es mayor a 25 aplica el 10% de descuento

Private Sub Command1_Click()
Label8.Visible = False
Label8.Caption =Val(Text2.Text) * Val(Text3.Text)
Label6.Caption = Text1.Text + " " + Text2.Text + " " + Label8.Caption
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""Command4.Visible = True
End Sub
Private Sub Command2_Click()
Frame2.Visible = True
Label16.Caption = Val(Label8.Caption) + Val(Label21.Caption) + Val(Label22.Caption) + Val(Label23.Caption) +Val(Label24.Caption) + Val(Label25.Caption) + Val(Label26.Caption)
If Label16 > 25 Then
Label17.Caption = "Descuento 10%"
Label18.Caption = Val(Label16.Caption) * 0.1
Label20.Caption =Val(Label16.Caption) - Val(Label18.Caption)
Else
Label17.Caption = "Descuento 0%"
Label20.Caption = Label16.Caption
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()Label21.Caption = Val(Text2.Text) * Val(Text3.Text)
Label9.Caption = Text1.Text + " " + Text2.Text + " " + Label21.Caption
Command5.Visible = TrueText1.Text = ""
Text2.Text = ""

Text3.Text = ""
End Sub
Private Sub Command5_Click()
Label22.Caption = Val(Text2.Text) * Val(Text3.Text)
Label10.Caption = Text1.Text + " " +...