Public Class GASTOS
Private Sub BtnIngresar_Click(sender As Object, e As EventArgs) Handles
BtnIngresar.Click
'Dlecaracion de variable
Dim VGastos() As Double
Dim Gasto As Double, TotalGasto As Double, DiaMayor As Integer
Dim GastoMayor As Double
Dim CantDias As Integer
'Inicalizar Variables
TotalGasto = 0
DiaMayor = 1
GastoMayor = 0
'Leer los gastos
CantDias = Val(TxtCantDias.Text)
ReDim Preserve VGastos(CantDias)
For i As Integer = 0 To (CantDias - 1) Step 1
Gasto = InputBox("INGRESE EL GASTO DEL DIA" & (i + 1), "GASTOS")
VGastos(i) = Gasto
Next
For J As Integer = 0 To (CantDias - 1) Step 1
'Evaluamos el gasto mayor
If (VGastos(J) > GastoMayor) Then
GastoMayor = VGastos(J)
DiaMayor = J + 1
End If
CboGastos.Items.Add("DIA" & (J + 1) & "TOTAL:" & VGastos(J))
TotalGasto = TotalGasto + VGastos(J)
Next
'Salida de informacion
TxtGastoMayor.Text = GastoMayor
TxtDiaMayor.TEXT = "DIA" & DiaMayor
TxtTotalGastos.Text = TotalGasto
End Sub
Private Sub BtnNuevo_Click(sender As Object, e As EventArgs) Handles
BtnNuevo.Click
CboGastos.Items.Clear()
TxtCantDias.Clear()
TxtDiaMayor.Clear()
TxtTotalGastos.Clear()
TxtGastoMayor.Clear()
End Sub
Private Sub BtnSalir_Click(sender As Object, e As EventArgs) Handles
BtnSalir.Click
End
End Sub
End Class
