buon pomeriggio a tutti sono alle prime armi con esercizi d'informatica ho da risolvere questo esercizio di seguito vi posto il testo e il codice pensato da me se mi potete dire se è fatto bene e come si scrive la parte mancante del codice cioè la parte della media e l'ultimo punto.
Grazie mille a priori!!!

testo esercizio:

Siano VET A e VET B due variabili globali di tipo ARVEY così definite:
DIM VET A ( 1 to 100) as integrer
DIM VET B ( 1 to 100) as interger
e siano num A e num B i numeri attuali degli elementi di VET A e di VET B.
Scrivi una funzione visual basic che:

-ordini in ordine crescente il vettore VET A;
-definisci min e max per il minimo e il massimo di VET A, calcoli la media RM fra tali valori e ritorni il valore 1;
-se il minimo dovesse coincidere con il massimo individui la posizione dell'elemento di VET B, per cui è massima la distanza di un elemento da un certo valore GAMMA e ritorni il valore della posizione;

La function ha come parametri num A intero, num B intero e GAMMA intero
dove:
num A numero attuale degli elementi di VET A;
num B numero attuale degli elementi di VET B;
GAMMA valore intero;

adesso inserisco il codice da me scritto
codice:
DIM I as Integer DIM APP as Integer DIM VET A(1to100) as Integer DIM VET B(1TO100)as Integer DIM MIN as Integer DIM MAX as Integer DIM RM as Integer DIM GAMMA as Integer

Do
Scambio=false
Num A=NumA-1
For I=1toNum A
If Vet A (I)> Vet A(I)
APP=Vet A(I)
Vet A(I)= Vet A(I+1)
Vet A(I+1)=APP
Scambio=true
end If
next I
yoop until not scambio
MIN=Vet A(I)
MAX= Vet A(I)
For I=1 to Num A
If Vet A(I)<min Then
MIN=Vet A(I)
ELSE
If Vet A(I)>MAX Then
MAX=Vet A(I)
End If
End If
Next I