Codigo de programas en visual basic vercion 6.00

CAPTURA DE PANTALLAS DEL TRABAJO DE VISUAL BASIC:
Ejercicio No. 1 Formato del Formulario

INGRESO DE DATOS:

CODIGOS UTILIZADOS:

Private Sub CmdAceptar_Click()
Dim SueldoBasico As Double
Dim HorasExtras As Integer, PagoHoraExtra As Double
Dim Renta As Double, Fonavi As Double, AFP As Double
Dim Ingresos As Double, Egresos As Double
Dim SueldoNeto As Double
SueldoBasico =Val(TxtSueldoBasico)
HorasExtras = Val(TxtHorasExtras)

If OptDiurno Then
PagoHoraExtra = 10
End If

If OptNocturno Then
PagoHoraExtra = 15
End If

If ChkRenta.Value Then
Renta = SueldoBasico * 0.1
Else
Renta = 0
End If

If ChkFonavi.Value Then
Fonavi = SueldoBasico * 0.07
Else
Fonavi = 0
End If

If ChkAFP.Value Then
AFP = SueldoBasico * 0.03
Else
AFP = 0
End If

Ingreso =SueldoBasico + HorasExtras * PagoHoraExtra
Egreso = Renta + Fonavi + AFP
SueldoNeto = Ingreso - Egreso
txtPagoHoraExtra = Str(PagoHoraExtra)
TxtRenta = Str(Renta)
TxtFonavi = Str(Fonavi)
TxtAFP = Str(AFP)
TxtSueldoNeto = Str(SueldoNeto)
End Sub

Private Sub CmdLimpiar_Click()
txtPagoHoraExtra = ""
TxtRenta = ""
TxtFonavi = ""
TxtSueldoNeto = ""
txtTrabajador = ""
TxtSueldoBasico =""
TxtHorasExtras = ""
txtPagoHoraExtra = ""
TxtAFP = ""
End Sub
Private Sub CmdSalir_Click()
End
End Sub


CODIGO EN IMAGEN:

EJERCICIO No 2
FORMATO DEL FORMULARIO:


INGRESO DE DATOS:

CODIGOS UTILIZADOS:

Private Sub CmdAceptar_Click()
Dim Nota1 As Double, Nota2 As Double, Nota3 As Double, Nota4 As Double
Dim Promedio As Integer
Nota1 = Val(TxtNota1): Nota2 =Val(TxtNota2)
Nota3 = Val(TxtNota3): Nota4 = Val(TxtNota4)
Promedio = CInt((Nota1 + Nota2 + Nota3 + Nota4) / 4)
TxtPromedio = Str(Promedio)

If Promedio >= 19 And Promedio = 16 And Promedio = 11 And Promedio = 6 And Promedio = 0 And Promedio = 30 And Precio 50 Then
TxtDescuento = "20%"
End If
If TxtDescuento = "10%" Then
Descuento = Precio * 0.1
ElseIf TxtDescuento = "20%" Then
Descuento =Precio * 0.2
End If
TxtPago = (Precio - Descuento)
End Sub

Private Sub CmdLimpiar_Click()
TxtMenu = ""
TxtPrecio = ""
TxtDescuento = ""
TxtPago = ""

End Sub

Private Sub CmdSalir_Click()
End
End Sub




IMAGEN DEL CODIGO


EJERCICIO No 5FORMATO DEL FORMULARIO:





INGRESO DE DATOS:





CODIGOS UTILIZADOS:


Private Sub Command1_Click()

End Sub

Private Sub CmdLimpiar_Click()
TxtNumero = "": TxtTabla = ""
TxtNumero.SetFocus
End Sub

Private Sub TxtNumero_Change()
If IsNumeric(TxtNumero) Then
Dim N As Integer
Dim P As Integer
Dim I As Integer
Dim S As String
N = Val(TxtNumero)
S = ""For I = 0 To 12
P = N * I
S = S & N & "*" & I & "=" & P & vbCrLf
Next I
TxtTabla = S
ElseIf TxtNumero = "" Then
Exit Sub
Else: MsgBox "Ingrese un numero", vbCritical, "Mensaje"
TxtTabla = ""
End If
End Sub


IMAGEN DE CODIGO:

EJERCICIO No. 6

FORMATO DEL FORMULARIO:


INGRESO DE DATOS:


CODIGOS UTILIZADOS:

Private Sub CmdAceptar_Click()
If IsNumeric(TxtNumero) ThenDim S As Integer, SI As Integer, SP As Integer
Dim May As Integer, Min As Integer
Dim Cad As String
Dim I As Integer, J As Integer
N = CLng(TxtNumero)
M = CLng(TxtNumero)
Cad = ""
I = 0
J = 1
S = SP = SI = 0
For J = 1 To N
If (N Mod J = 0) Then
Cad = Cad & J & vbCrLf
End If
Next J
While (N > 0)
If ((N Mod 10) Mod 2) = 0 Then
SP = SP + (N Mod 10)
Else
SI = SI + (N Mod 10)
EndIf
S = S + (N Mod 10)
N = N / 10
I = I + (1)
Wend
May = Mid(TxtNumero, 1, 1)
Men = May
While (M > 0)
If May < (M Mod 10) Then
May = M Mod 10
End If
If Men > (M Mod 10) Then
Men = M Mod 10
End If
M = M / 10
Wend
TxtCantCifra = Str(I)
TxtSumImpares = Str(SI)
TxtSumPares = Str(SP)
TxtSumTotal = Str(S)
TxtCifraMayor = Str(May)
TxtCifraMenor = Str(Men)
TxtDivisores = Cad
Else...