API tools faq
paste
alexcarrega

23 January 2019 - Group 1 - Franco Barbieri (40519)

alexcarrega
Feb 1st, 2019
779
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 2.17 KB | None | 0 0
raw download clone embed print report
  1. Function esercizio1() As Double
  2.     esercizio1 = -1
  3.    
  4.    
  5.    
  6. End Function
  7.  
  8. Function esercizio2() As String
  9.     esercizio2 = ""
  10.     Dim cell As Range
  11.     esercizio2 = ""
  12.    
  13.    
  14.     For Each cell In Range("B2 : B10")
  15.     esercizio2 = esercizio2 & cell
  16.     Next cell
  17.    
  18.    
  19.    
  20. End Function
  21.  
  22. Function esercizio3(ByVal parametro1 As Integer, ByVal parametro2) As Double
  23.     esercizio3 = -1
  24.     Dim i As Integer
  25.    
  26.     If (parametro1 <= 0 And parametro2 >= 0) Or parametro1 > parametro2 Then
  27.     esercizio3 = 0
  28.     Else
  29.     For i = parametro1 To parametro2
  30.     esercizio3 = esercizio3 + i * i
  31.     Next i
  32.     End If
  33.    
  34.    
  35.    
  36. End Function
  37.  
  38. Function esercizio4() As Integer
  39.     esercizio4 = -1
  40.     Dim cell As Range, media As Double
  41.  
  42.     esercizio 4 = 0
  43.     media = 0
  44.    
  45.     For Each cell In Range("C4  : C 30 ")
  46.     media = media + cell
  47.     Next cell
  48.     media = media / Range(" c4 :C 30 ").Count
  49.    
  50.       esercizio3 (Range("C2"))
  51.       esercizio3 (Range("C3"))
  52.      
  53.      
  54.      
  55.      
  56.      
  57.      
  58.      For Each cell In Range("c4:c30")
  59.      If cell > media Then
  60.      esercizio4 = esercizio4 + 1
  61.      End If
  62.      Next cell
  63.      
  64.      
  65.      
  66.      
  67.      
  68.      
  69.      
  70.      
  71.    
  72.    
  73. End Function
  74.  
  75.  
  76. Private Sub runEsercizio1_Click()
  77.     Dim i As Integer
  78.  
  79.     Range("A2") = Rnd > 0.5
  80.     For i = 3 To 20
  81.         Cells(i, 1) = Rnd * 100
  82.     Next i
  83.    
  84.     Range("J2") = esercizio1()
  85. End Sub
  86.  
  87. Private Sub runEsercizio2_Click()
  88.     Dim i As Integer
  89.  
  90.     For i = 2 To 10
  91.         Cells(i, 2) = Chr(CInt(Rnd * 25 + 65)) & Chr(CInt(Rnd * 25 + 65)) & Chr(CInt(Rnd * 25 + 65))
  92.     Next i
  93.    
  94.     Range("J5") = esercizio2()
  95. End Sub
  96.  
  97. Private Sub runEsercizio3_Click()
  98.     Dim parametro1 As Integer, parametro2 As Integer
  99.    
  100.     parametro1 = CInt(Rnd * 110 - 100)
  101.     parametro2 = CInt(Rnd * 20) + parametro1
  102.    
  103.     Range("C2") = parametro1
  104.     Range("C3") = parametro2
  105.    
  106.     Range("J8") = esercizio3(parametro1, parametro2)
  107. End Sub
  108.  
  109. Private Sub runEsercizio4_Click()
  110. Dim i As Integer
  111.     For i = 2 To 30
  112.         Cells(i, 4) = Rnd * 100
  113.     Next i
  114.    
  115.     Range("J11") = esercizio4()
  116. End Sub
Advertisement
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!