Panetti
Menu principale:
0809SIS3etB_3
Compiti
Compito di Sistemi n.3
Classe 3 ET sez.B
28 gennaio 2009
Realizzare il listato di un programma in Visual Basic avente interfaccia grafica mostrata in figura in modo da funzionare come si descrive di seguito.
Alla pressione del pulsante con caption “Estrai” si deve inserire nella list box List1, indicata come Lista 1, n valori interi casuali compresi tra -10 e +10. Il valore n č prelevato dalla text box indicata con la label “n. estrazioni”.
Premendo il pulsante pos/neg si devono cancellare le liste Lista 2 e Lista 3 e smistare i valori positivi di Lista 1 in Lista 2 e i valori negativi di Lista 1 in Lista 3.
Premendo il pulsante Statistiche nelle text box minimo, massimo e media devono comparire, rispettivamente, il valore minimo, il valore massimo e la media della lista selezionata con gli option button Lista 1, Lista 2 e Lista 3. (Suggerimento: per controllare che, ad esempio, l’option button Lista 2 č abilitato si attivi l’istruzione: if option2.value=true then ….)
Premendo il pulsante Cancella si deve cancellare il contenuto della Lista selezionata con gli option button (si veda il suggerimento della richiesta precedente).
Premendo, infine, il pulsante con Caption Esci, si deve terminare l’esecuzione del programma.
| Private Sub Command1_Click() n = Val(Text1.Text) Randomize Timer For i = 1 To n v = Int(Rnd(1) * 21) - 10 List1.AddItem v Next i End Sub Private Sub Command2_Click() List2.Clear List3.Clear n = List1.ListCount For i = 1 To n v = Val(List1.List(i - 1)) If v >= 0 Then List2.AddItem v Else List3.AddItem v End If Next i End Sub Private Sub Command3_Click() If Option1.Value = True Then List1.Clear If Option2.Value = True Then List2.Clear If Option3.Value = True Then List3.Clear End Sub Private Sub Command5_Click() End End Sub |
Private Sub Command4_Click() Text2 = "" Text3 = "" Text4 = "" If Option1.Value = True Then Min = 10 Max = -10 media = 0 n = List1.ListCount If n > 0 Then For i = 1 To n v = Val(List1.List(i - 1)) If v < Min Then Min = v If v > Max Then Max = v somma = somma + v Next i media = somma / n Text2.Text = Min Text3.Text = Max Text4.Text = media End If End If |
If Option2.Value = True Then Min = 10 Max = -10 media = 0 n = List2.ListCount If n > 0 Then For i = 1 To n v = Val(List2.List(i - 1)) If v < Min Then Min = v If v > Max Then Max = v somma = somma + v Next i media = somma / n Text2.Text = Min Text3.Text = Max Text4.Text = media End If End If If Option3.Value = True Then Min = 10 Max = -10 media = 0 n = List3.ListCount If n > 0 Then For i = 1 To n v = Val(List3.List(i - 1)) If v < Min Then Min = v If v > Max Then Max = v somma = somma + v Next i media = somma / n Text2.Text = Min Text3.Text = Max Text4.Text = media End If End If End Sub |