Luigi, se di passagio oper chi può

[claudio8]

Creata una matrice ho bisogno di visualizzare con "scrivimatrice" i valori (riga "Med") con i decimali
Esiste una funzione che mi permetta quanto richiesto.
inserisco un piccolo script x testare vostre idee

Sub Main
    ReDim a(13,10)
    Dim x,y,co
    For x =  1 To 10
    a(0,x) = x
    Next
   
    For x =  1 To 10
    a(x,0) = x
    Next
     a(11,0) = " tot"
     a(12,0) = " co "
     a(13,0) = " med"
   
    a(2,1) = 1
    a(3,1) = 3
    a(4,1) = 3
    a(5,1) = 1
    a(6,1) = 1
    a(1,2) = 5
    a(6,2) = 2
    For x = 1 To 10
        a(11,x) = 0
        co = 0
        For y = 1 To 10
                 If a(y,x) > 0 Then co = co + 1
            a(11,x) = a(11,x) + a(y,x) 
        Next
        a(12,x) = co
        If a(11,x)> 0 And a(12,x)> 0 Then a(13,x) = Round(a(11,x)/a(12,x),1) Else a(13,x)= "nd"
            Next
    ScriviMatrice a
    Scrivi "Effettivi ",,False
     For x = 1 To 10
    Scrivi  a(13,x) & "    " ,,False
    Next
    Scrivi
End Sub

per i novelli scripters, fatene buon uso

grazie

 

[claudio8]

Trovata la soluzione?

 

[claudio8]

Belin ... 150 visite e nessuna risposta.
Bene ve lo dico io come si fà:
aguzzare la vista

Sub Main
    ReDim a(13,10)
    Dim x,y,co
    For x =  1 To 10
    a(0,x) = x
    Next
 
    For x =  1 To 10
    a(x,0) = x
    Next
     a(11,0) = " tot"
     a(12,0) = " co "
     a(13,0) = " med"
 
    a(2,1) = 1
    a(3,1) = 3
    a(4,1) = 3
    a(5,1) = 1
    a(6,1) = 1
    a(1,2) = 5
    a(6,2) = 2
    For x = 1 To 10
        a(11,x) = 0
        co = 0
        For y = 1 To 10
                 If a(y,x) > 0 Then co = co + 1
            a(11,x) = a(11,x) + a(y,x)
        Next
        a(12,x) = co
        If a(11,x)> 0 And a(12,x)> 0 Then a(13,x) = Round(a(11,x)/a(12,x),1) Else a(13,x)= "nd"
            Next
    ScriviMatrice a,1
    Scrivi "Effettivi ",,False
     For x = 1 To 10
    Scrivi  a(13,x) & "    " ,,False
    Next
    Scrivi
End Sub

Saluti ai passanti