Advertisement
Guest User

Untitled

a guest
Oct 10th, 2015
111
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.19 KB | None | 0 0
  1. Public Class Form1
  2.  
  3. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
  4. Const nc As Integer = 5
  5. Const np As Integer = 2
  6. Dim risultati(np - 1, nc - 1) As Integer
  7. DataGridView1.RowCount = np
  8. DataGridView1.ColumnCount = nc
  9. Dim somma As Integer = 0
  10. Dim totaleprove = nc * np
  11. Dim media As Single
  12. Dim i As Integer
  13. Dim j As Integer
  14. 'i=righe
  15. 'j=colonne
  16. '(
  17. 'For i = 0 To nc - 1
  18. 'For j = 0 To np - 1
  19. 'risultati(i, j) = (InputBox("inserisci il voto(" & i + 1 & "," & j + 1 & ")"))
  20. 'somma = somma + risultati(i, j)
  21. 'DataGridView1.Item(j,1).Value = risultati(i, j)
  22. 'Next
  23.  
  24. 'Next
  25. 'media = somma / totaleprove
  26.  
  27. j = 0
  28. i = 0
  29. Do
  30. j = 0
  31. Do
  32.  
  33. risultati(i, j) = (InputBox("inserisci il voto(" & i + 1 & "," & j + 1 & ")"))
  34. DataGridView1.Item(j, i).Value = risultati(i, j)
  35. j = j + 1
  36. Loop Until j = 5
  37. i = i + 1
  38. Loop Until i = 2
  39.  
  40.  
  41.  
  42. End Sub
  43.  
  44. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement