Gabriele94 ha scritto:

Beh, nel caso in cui avrai ancora bisogno, posta che magari ti posso essere d'aiuto!

dico record nel senso che posso inserire dati di tipo diverso

database

variabili complesse o file ad accesso diretto?

cmq l'ho abbiamo corretto ed è giusto ma su VB non esce

al prossimo problema!

i record conosci?

grazie se mi dai una mano

Cmq scusa una cosa, ma città non lo salvi da nessuna parte?

ho provato ma niente

Perché se li metti 3 per provare in modo facile e di la metti 30 poi ti viene diverso il valore

Public Class Form1

Dim città As String

Dim r As Short

Dim matri(,) As Short

Private Sub BtnCarica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCarica.Click

r = Val(InputBox("num città"))

ReDim matri(r, 30)

For i = 1 To r

città = (InputBox("nome città"))

For j = 1 To 3

matri(i, j) = Val(InputBox("temp città" & CStr(i), "nella giornata" & CStr(j)))

Next j

Next i

End Sub

tipo "e." e hai dentro la matrice?

Gabriele94 ha scritto:

che problema ti da?

somma=0;

for (t=0; t++; t

somma=somma+matrice[t][t];

}

per diagonale inversa:

somma=0;

for (t=0; t++; t

somma=somma+matrice[t][matrice.numerocolonne-t];

}

il codice poi lo devi trasformare te in VB...

lasciate aperta il 3d perchè avrò delle domande

edit:

devo calcolare la media per ogni città. non capisco l'errore

Private Sub BtnCalcola_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCalcola.Click

Dim tot, media As Short

For I = 1 To r

tot = 0

For j = 1 To 30

tot = tot + matri(I, j)

Next j

media = tot / 30

TxtMedia.Text = CStr(media) & vbNewLine

Next I

End Sub

Se invece devi farla in visual basic allora posta su programmazione...

io usavo anni fa vb6, ora e tutto su .net ma cambia poco mi pare per queste cose

diagonale principale e secondaria

somma elementi riga e colonne.

ovviamente con il codice

lo so che non è il forum giusto...