sfida 1

[genios]

Se al tuo script claudio8 mettessimo un input box per variare i parametri della variabile i e della variabile y come si risolverebbe il tuo script non avendo una variabile matrice fissa ?

Ciao Eugenio

 

[i legend]

Ciao Genoa
Il codice di Claudio è ok
Bisogna dichiarare i limiti
Dim a
Dim b
Dim x,y
A= input box
B= input box
Redim miaM (a,b)
For x=0 To A
For y= 0 To b
MiaM (x,y)=x+y
Next
Next
Scrivimatrice miaM

Ciao
Se ci sono orrori Claudio correggere credo.
Un saluto a Claudio è un piacere rileggerti

 

[genios]

Ilegend in uscita non da la tabellina pitagorica .

Ciao Eugenio


Sub Main
Dim a
Dim b
Dim x,y
a= InputBox ( " Inserisci numero " ,a)
b= InputBox ( " Inserisci numero " ,b)
ReDim miaM (a,b)
For x=1 To a
For y= 1 To b
miaM (x,y)=x+y
Next
Next
ScriviMatrice miaM
End Sub

 

[i legend]

Era solo un esempio:
A=cint (input box ("numRighe","",9))
B=cint (input box ("numCol","",9))
Redim MiaM ( a,b)
For x = 0 To A
For y = 0 To b
MiaM (x,y)=(x+1)*(y+1)
Next
Next
Scrivimatrice miaM
Così dovrebbe andare bene

 

[i legend]

Oppure
For x=1 To A
For y=1 TO B
MiaM ( x, y ) =( x*y)
Scrivi format 2 ( miaM (x,y))&" ",1,0,vbblack, vb Green
Next
Scrivi
Next

Quella di Claudio è più elegante
Ciao

 

[claudio8]

Tabellina dimensionata in automaticico in termini si spaziature, in base al max n° caratteri usati.

Sub Main()
    Dim a,b,x,L
    a = CInt(InputBox("numColonne","",2)) - 1
    b = CInt(InputBox("numRighe","",2)) - 1
    x =(a + 1)*(b + 1)
    L = Len(x)  ' n° caratteri di x
    'Con questo truccheto, usando la variabil "L" noi gestiamo anche la formattazione della matrice
    ReDim tavolapitagorica(a,b)
    ' ..quini si avra' b  righe e a colonne.
    For i = 0 To a '   (valori da 0 ad "a" -1 entrambi compresi)
        For y = 0 To b '   (valori da 0 a  "b"-1  entrambi compresi)
            tavolapitagorica(i,y) =(i + 1)*(y + 1) ' in questa riga del calcolo, sommiamo +1ai valori di i ed y iniziali
        Next
    Next
    Scrivi "il numero massimo sarà = " & x & " composto da n°" & L & " caratteri."
    ColoreTesto 0
    ScriviMatrice  tavolapitagorica,,CInt(L) ' scrive la matrice con optional lunghezza = intero(L),  variabile
End Sub

Un saluto a tutti ed all'unico Luigi B