Proyecto 1

Private Sub Command1_Click()Form1.HideForm2.Show

End Sub

Private Sub Command2_Click()Form1.HideForm3.Show

End Sub

Private Sub Command3_Click()Form1.HideForm4.ShowEnd Sub

Private Sub Command4_Click()

End Sub

Private Sub Label1_Click()

End Sub

Private Sub Command1_Click()Form2.HideForm1.ShowEnd Sub

Private Sub Command2_Click()Form2.HideForm3.ShowEnd Sub

Private Sub Command3_Click()Form2.HideForm4.ShowEnd Sub

Private Sub Command1_Click()Form3.HideForm1.ShowEnd Sub

Private Sub Command2_Click()Form3.HideForm2.ShowEnd Sub

Private Sub Command3_Click()Form3.HideForm4.ShowEnd Sub

Private Sub Command1_Click()Form4.HideForm1.ShowEnd Sub

Private Sub Command2_Click()Form4.HideForm2.ShowEnd Sub

Private Sub Command3_Click()Form4.HideForm3.ShowEnd Sub

Private Sub Command4_Click()

End Sub

Proyecto 2

Private Sub Label1_Click()

End Sub

Private Sub List1_Click()Select Case List1.ListIndex

Case 0:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\argentina.jpg ")Case 1:Image1.Picture = LoadPicture(Path + "D:\\4 B\Banderas\bolivia.jpg")Case 2:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\brasil.jpg ")Case 3:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\chile.jpg ")Case 4:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\colombia.jpg ")Case 5:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\ecuador.jpg ")Case 6:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\peru.jpg ")Case 7:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\uruguay.jpg ")Case 8:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\venezuela.jpg ")Case 9:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\guyana.jpg ")Case 10:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\paraguay.jpg ")Case 11:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\surinam.jpg ")Case 12:Image1.Picture = LoadPicture(Path + "D:\4 B\Banderas\guayana.jpg ")End Select

End Sub

Proyecto 3

Private Sub Combo1_Change()Text1.Text = Combo1.TextEnd SubPrivate Sub Combo1_Click()If Combo1.ListIndex <> -1 ThenIf Combo1.Text <> "Ninguno" ThenText1.Text = Combo1.List(Combo1.ListIndex)ElseText1.Text = ""End IfEnd IfEnd Sub

Private Sub Command1_Click()Dim nuevo As Stringnuevo = InputBox("Ingrese un nuevo elemento", "Nuevo elemento")If Len(Trim(nuevo)) > 0 ThenCombo1.AddItem nuevoEnd IfEnd Sub

Private Sub Command2_Click()If Combo1.ListIndex <> -1 ThenCombo1.RemoveItem Combo1.ListIndexText1.Text = ""

End IfEnd Sub

Private Sub Command3_Click()

Combo1.ClearEnd Sub

Private Sub Command4_Click()EndEnd Sub

Proyecto 4

Private Sub Command1_Click()Dim clave As Stringpituficodigo = "pipiripipirinay"If Text1.Text = pituficodigo ThenMsgBox ("BienvenidO al sistema")Form2.ShowForm1.HideElseMsgBox ("Error,Estabas cerca!!!!,VUELVE A INTENTARLO")Text1.Text = ""Text1.SetFocusEnd IfEnd Sub

Private Sub Command2_Click()EndEnd Sub

Private Sub Form_Load()Form1.ShowText1.SetFocusEnd Sub

Private Sub Command1_Click()Dim dias As Integer, costo As Integer, cable As Integer, telefono As Integer, bar As Integer, hospedaje As Integer, servicio As Integer, total As Integer, igv As Integer, netos As Integerdias = Val(Text2.Text)If Option1.Value = True Then costo = 50If Option2.Value = True Then costo = 70hospedaje = costo * diasText3.Text = Str(hospedaje)If Check1.Value = vbChecked Then cable = 20If Check2.Value = vbChecked Then telefono = 20If Check3.Value = vbChecked Then bar = 20servicio = cable + telefono + barText4.Text = Str(servicio)total = hospedaje + servicioText5.Text = Str(total)igv = 0.18 * totalText6.Text = Str(igv)neto = total + igvText7.Text = Str(neto)End Sub

Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text1.SetFocusEnd Sub

Private Sub Command3_Click()Form3.ShowEnd Sub

Private Sub Command4_Click()Dim res As Integerres = MsgBox("desea salir del sistema?", 4 + 32 + 256, "salir")If res = 6 ThenEndElseCancel = TrueEnd IfEnd Sub

Private Sub Command1_Click()Form2.ShowForm3.HideEnd Sub