Practica 1. 

Option Explicit

Sub EmplenarTaula(NúmeroTaula As Integer)
  Dim i As Integer
  Dim Taula As String
    For i = 1 To 10
      Taula = Taula + Str$(NúmeroTaula) + " * " + Str$(i) + " = "
      Taula = Taula + Str$(NúmeroTaula * i) + Chr$(13) + Chr$(10)
    Next i
  txtTaula.Text = Taula
End Sub

Private Sub opt1_Click()
EmplenarTaula (1)
End Sub
Private Sub opt2_Click()
EmplenarTaula (2)
End Sub
Private Sub opt3_Click()
EmplenarTaula (3)
End Sub
Private Sub opt4_Click()
EmplenarTaula (4)
End Sub
Private Sub opt5_Click()
EmplenarTaula (5)
End Sub
Private Sub opt6_Click()
EmplenarTaula (6)
End Sub
Private Sub opt7_Click()
EmplenarTaula (7)
End Sub

Amb arrays de controls 

Private Sub optNumero_Click(Index As Integer)
EmplenarTaula (Index + 1)
End Sub

Practica 3: Rellotge

Private Sub Timer1_Timer()
    segons = Second(Time)
   If segons Mod 5 = 0 Then
        txt.Text = "Senyal de 5 segons, dintre de 5 segons m'esborrare"
   End If
   If segons Mod 10 = 0 Then
        txt.Text = ""
   End If
End Sub

 

Hosted by www.Geocities.ws

1