programma vettori. visual basic

[piquozzo94]

salve a tutti mi servirebbe una mano... il mio prof d info ci ha dato qst esercizio da svolgere.. e mi servirebbe una mano... nn ci sta a capì nnt d' info.... help me...

Caricare un vettore numerico e trovare i massimi relativi... qst è la traccia... spero nel vostro aiuto.. thanks anticipatamente

[!fazz]

Originariamente inviato da piquozzo94

salve a tutti mi servirebbe una mano... il mio prof d info ci ha dato qst esercizio da svolgere.. e mi servirebbe una mano... nn ci sta a capì nnt d' info.... help me...

Caricare un vettore numerico e trovare i massimi relativi... qst è la traccia... spero nel vostro aiuto.. thanks anticipatamente

inizia a farlo poi se ti blocchi ti daremo una mano

ma non ti facciamo noi i compiti

[piquozzo94]

Public Class massimi relativi

Private Sub cmd_go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_go.Click
Dim array(5), max As Integer
Dim s As String = ""
array = {2, 4, 1, 9, 8, 3}
max = array(0)
s &= max & ", "
For i As Integer = 1 To 5
If array(i) > max Then
max = array(i)
s &= max & ", "
End If
Next
MessageBox.Show("I massimi relativi sono: " & s)
End Sub
End Class

[!fazz]

così comunichi solo il massimo assoluto

[piquozzo94]

allora cosa dovrei...modificare per far si che il programma risponda alla traccia richiesta

[piquozzo94]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim array(5), max As Integer
array = {2, 4, 1, 9, 8, 3}
max = array(0)
For i As Integer = 1 To 5
If array(i) > max Then
max = array(i)
End If
Next
MessageBox.Show("Il numero più grande è: " & max)






potrebbe andare bene ?