Sono Chiara, avrei bisogno di un aiuto per un esercizio scolastico..
Allora il problema sarebbe questo (non so come la prof se li inventi):
'Dati n valori in sequenza, sommare e contare quelli di posto pari;
'sommare e contare quelli di posto dispari.
Io ho fatto il codice, diciamo che non funziona esattamento come sparavo...Se potete darci un'occhiata e casomai venirci a capo
Grazie vi metto il codice che ho fatto io...è un pò lungo:
Private Sub cmdok_Click()
NV = Val(txtposti.Text)
App = 0
Apd = 0
Do
Stringa = InputBox("Inserisci il valore", "Richiesta valore")
V = Val(Stringa)
C = C + 1
Dim intNumero As Double
If Len(Stringa) > 0 Then
intNumero = (Stringa)
If intNumero Mod 2 = 0 Then
V = Np
Else
V = Nd
End If
End If
If V = Np Then
Npp = Npp + 1
Else
If V = Nd Then
Npd = Npd + 1
End If
End If
App = App + Np
Apd = Apd + Nd
Loop Until C = NV
Spp = App
Spd = Apd
lblrisultato.Caption = " La somma dei posti pari è " & Spp & " , " & " la somma dei posti dispari è " & Spd & " , " & " il numero di posti pari è " & Spp & " , " & " il numero dei posti dispari è " & Npd
End Sub
