際際滷

際際滷Share a Scribd company logo

Ejercicio Del Combo1

Download as DOC, PDF
V
vperla99
1 of 1
Download to read offline
Private Sub Command1_Click() costo = 0 If Check1.Value = 1 Then aditamento1 = quot;quemacocosquot; costo = costo + 5000 End If If Check2.Value = 1 Then aditamento2 = quot; rines de aluminioquot; costo = costo + 6000 End If If Option1.Value = True Then tipo = quot; autom叩ticoquot; costo = costo + 55000 ElseIf Option2.Value = True Then tipo = quot; est叩ndardquot; costo = costo + 10000 End If Select Case Combo1.ListIndex Case 0: carro = quot; Peugeutquot; costo = costo + 149000 Case 1: carro = quot; Stratusquot; costo = costo + 250000 Case 2: carrro = quot; Chevy popquot; costo = costo + 95000 End Select Label1.Caption = quot;Ud. escogi坦 un quot; & carro & quot; tipo quot; & tipo & quot; con quot; & aditamento1 & aditamento2 & quot;en total quot; & costo End Sub Private Sub Form_initialize() Combo1.AddItem quot;Peugeutquot; Combo1.AddItem quot;Stratusquot; Combo1.AddItem quot;Chevy popquot; End Sub

More Related Content

Ejercicio Del Combo1

  • 1. Private Sub Command1_Click() costo = 0 If Check1.Value = 1 Then aditamento1 = quot;quemacocosquot; costo = costo + 5000 End If If Check2.Value = 1 Then aditamento2 = quot; rines de aluminioquot; costo = costo + 6000 End If If Option1.Value = True Then tipo = quot; autom叩ticoquot; costo = costo + 55000 ElseIf Option2.Value = True Then tipo = quot; est叩ndardquot; costo = costo + 10000 End If Select Case Combo1.ListIndex Case 0: carro = quot; Peugeutquot; costo = costo + 149000 Case 1: carro = quot; Stratusquot; costo = costo + 250000 Case 2: carrro = quot; Chevy popquot; costo = costo + 95000 End Select Label1.Caption = quot;Ud. escogi坦 un quot; & carro & quot; tipo quot; & tipo & quot; con quot; & aditamento1 & aditamento2 & quot;en total quot; & costo End Sub Private Sub Form_initialize() Combo1.AddItem quot;Peugeutquot; Combo1.AddItem quot;Stratusquot; Combo1.AddItem quot;Chevy popquot; End Sub