Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
- Const nc As Integer = 5
- Const np As Integer = 2
- Dim risultati(np - 1, nc - 1) As Integer
- DataGridView1.RowCount = np
- DataGridView1.ColumnCount = nc
- Dim somma As Integer = 0
- Dim totaleprove = nc * np
- Dim media As Single
- Dim i As Integer
- Dim j As Integer
- 'i=righe
- 'j=colonne
- '(
- 'For i = 0 To nc - 1
- 'For j = 0 To np - 1
- 'risultati(i, j) = (InputBox("inserisci il voto(" & i + 1 & "," & j + 1 & ")"))
- 'somma = somma + risultati(i, j)
- 'DataGridView1.Item(j,1).Value = risultati(i, j)
- 'Next
- 'Next
- 'media = somma / totaleprove
- j = 0
- i = 0
- Do
- j = 0
- Do
- risultati(i, j) = (InputBox("inserisci il voto(" & i + 1 & "," & j + 1 & ")"))
- DataGridView1.Item(j, i).Value = risultati(i, j)
- j = j + 1
- Loop Until j = 5
- i = i + 1
- Loop Until i = 2
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement