[VB6] Restituzione di un vettore da parte di una funzione

[tina8]

Salve, vorrei far restituire un vettore ad una funzione in Visual Basic. Ho scritto il seguente codice ma non va. Ho anche intuito l'errore ma non riesco a trovare una soluzione. Qualcuno può darmi qualche suggerimento? Grazie

p.s. L'ho eseguito in Visual Basic 6.0 !

Dim n As Integer
Dim num1 As Integer
Dim num2 As Integer
Dim ris(1 To 2) As Integer

Private Sub Command1_Click()
      num1 = Val(InputBox("Inserire il primo numero", "Inserimento numeri"))
      num2 = Val(InputBox("Inserire il secondo numero", "Inserimento numeri"))
      ris() = calcola(num1, num2)
      Text1.Text = CStr(ris(0))
      Text2.Text = CStr(ris(1))
End Sub

Public Function calcola(n1, n2 As Integer) As Integer()
     Dim r(1 To 2) As Integer
     r(1) = n1 / n2
     r(2) = n1 Mod n2
     calcola = r()
End Function

[LeleFT]

Ricordati che la versione di VB va riportata anche nel tag del titolo e che tutte le discussioni riguardanti il linguaggio VB (in qualunque versione) sono trattate nel forum "Visual Basic e .NET Framework".

Ho corretto il titolo e ti sposto nel forum apposito.

PS: se hai più di una riga di codice da postare, NON usare il pulsante, ma scrivi direttamente i tag nel messaggio, ed incollaci dentro il codice. Il pulsante serve per postare codice di una sola riga.

[CODE]
Poi incolli il codice
[/CODE]

Ciao.

[oregon]

Devi correggere il codice (in rosso)

Dim n As Integer
Dim num1 As Integer
Dim num2 As Integer

Dim ris() As Integer

Private Sub Command1_Click()

    num1 = Val(InputBox("Inserire il primo numero", "Inserimento numeri"))
    num2 = Val(InputBox("Inserire il secondo numero", "Inserimento numeri"))
    
    ris = calcola(num1, num2)
    
    Text1.Text = CStr(ris(0))
    Text2.Text = CStr(ris(1))
End Sub
    
Public Function calcola(n1 As Integer, n2 As Integer) As Integer()
    Dim r(0 To 1) As Integer
    
    r(0) = n1 / n2
    r(1) = n1 Mod n2
    
    calcola = r
End Function