Function esercizio1() As Double
    esercizio1 = -1
    
    
    
End Function

Function esercizio2() As String
    esercizio2 = ""
    Dim cell As Range
    esercizio2 = ""
    
    
    For Each cell In Range("B2 : B10")
    esercizio2 = esercizio2 & cell
    Next cell
    
    
    
End Function

Function esercizio3(ByVal parametro1 As Integer, ByVal parametro2) As Double
    esercizio3 = -1
    Dim i As Integer
    
    If (parametro1 <= 0 And parametro2 >= 0) Or parametro1 > parametro2 Then
    esercizio3 = 0
    Else
    For i = parametro1 To parametro2
    esercizio3 = esercizio3 + i * i
    Next i
    End If
    
    
    
End Function

Function esercizio4() As Integer
    esercizio4 = -1
    Dim cell As Range, media As Double

    esercizio 4 = 0
    media = 0
    
    For Each cell In Range("C4  : C 30 ")
    media = media + cell
    Next cell
    media = media / Range(" c4 :C 30 ").Count
    
      esercizio3 (Range("C2"))
      esercizio3 (Range("C3"))
      
      
      
     
     
     
     For Each cell In Range("c4:c30")
     If cell > media Then
     esercizio4 = esercizio4 + 1
     End If
     Next cell
     
     
     
     
     
     
     
     
    
    
End Function


Private Sub runEsercizio1_Click()
    Dim i As Integer

    Range("A2") = Rnd > 0.5
    For i = 3 To 20
        Cells(i, 1) = Rnd * 100
    Next i
    
    Range("J2") = esercizio1()
End Sub

Private Sub runEsercizio2_Click()
    Dim i As Integer

    For i = 2 To 10
        Cells(i, 2) = Chr(CInt(Rnd * 25 + 65)) & Chr(CInt(Rnd * 25 + 65)) & Chr(CInt(Rnd * 25 + 65))
    Next i
    
    Range("J5") = esercizio2()
End Sub

Private Sub runEsercizio3_Click()
    Dim parametro1 As Integer, parametro2 As Integer
    
    parametro1 = CInt(Rnd * 110 - 100)
    parametro2 = CInt(Rnd * 20) + parametro1
    
    Range("C2") = parametro1
    Range("C3") = parametro2
    
    Range("J8") = esercizio3(parametro1, parametro2)
End Sub

Private Sub runEsercizio4_Click()
Dim i As Integer
    For i = 2 To 30
        Cells(i, 4) = Rnd * 100
    Next i
    
    Range("J11") = esercizio4()
End Sub