سؤال في المصفوفات

 

[color= #800000;]dim s [color= #800000;]as [color= #800000;]string

[color= #800000;]dim size [color= #800000;]as [color= #800000;]integer

size = [color= #cc66cc;]3	[color= #008000;]' array size

[color= #800000;]for i = [color= #cc66cc;]0 [color= #800000;]to size[color= #cc66cc;]-1

	s = s & arr1[color= #66cc66;][i[color= #66cc66;]] & arr2[color= #66cc66;][i[color= #66cc66;]]

[color= #800000;]next i

 

Text1[color= #339933;].Text [color= #339933;]= [color= #cc66cc;]0

Dim INTS[color= #009900;]([color= #cc66cc;]2[color= #339933;], [color= #cc66cc;]1[color= #009900;]) [color= #b1b100;]As Double

INTS[color= #009900;]([color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]0[color= #009900;]) [color= #339933;]= [color= #cc66cc;]5

INTS[color= #009900;]([color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]1[color= #009900;]) [color= #339933;]= [color= #cc66cc;]5 [color= #0000ff;]' STS(0,0) + STS(0,1) = 10

[color= #0000ff;]INTS(1, 0) = 10

[color= #0000ff;]INTS(1, 1) = 10 ' STS[color= #009900;]([color= #cc66cc;]1[color= #339933;],[color= #cc66cc;]0[color= #009900;]) [color= #339933;]+ STS[color= #009900;]([color= #cc66cc;]1[color= #339933;],[color= #cc66cc;]1[color= #009900;]) [color= #339933;]= [color= #cc66cc;]20

INTS[color= #009900;]([color= #cc66cc;]2[color= #339933;], [color= #cc66cc;]0[color= #009900;]) [color= #339933;]= [color= #cc66cc;]20

INTS[color= #009900;]([color= #cc66cc;]2[color= #339933;], [color= #cc66cc;]1[color= #009900;]) [color= #339933;]= [color= #cc66cc;]20 [color= #0000ff;]' STS(2,0) + STS(2,1) = 40

[color= #0000ff;]Dim X As Integer

[color= #0000ff;]For X = 0 To 2

[color= #0000ff;]Text1.Text = CDbl(Text1.Text) + CDbl(INTS(X, 0) + INTS(X, 1))

[color= #0000ff;]Next

 

[color= #0000ff;]

 

Text1.Text [color= #339933;]= [color= #cc66cc;]0

Dim INTS1[color= #009900;]([color= #cc66cc;]2[color= #009900;]) [color= #b1b100;]As Double

Dim INTS2[color= #009900;]([color= #cc66cc;]2[color= #009900;]) [color= #b1b100;]As Double

INTS1[color= #009900;]([color= #cc66cc;]0[color= #009900;]) [color= #339933;]= [color= #cc66cc;]5[color= #339933;]: INTS2[color= #009900;]([color= #cc66cc;]0[color= #009900;]) [color= #339933;]= [color= #cc66cc;]5

INTS1[color= #009900;]([color= #cc66cc;]1[color= #009900;]) [color= #339933;]= [color= #cc66cc;]10[color= #339933;]: INTS2[color= #009900;]([color= #cc66cc;]1[color= #009900;]) [color= #339933;]= [color= #cc66cc;]10

INTS1[color= #009900;]([color= #cc66cc;]2[color= #009900;]) [color= #339933;]= [color= #cc66cc;]20[color= #339933;]: INTS2[color= #009900;]([color= #cc66cc;]2[color= #009900;]) [color= #339933;]= [color= #cc66cc;]20

Dim X [color= #b1b100;]As Integer

[color= #b1b100;]For X [color= #339933;]= [color= #cc66cc;]0 To [color= #cc66cc;]2

Text1[color= #339933;].Text [color= #339933;]= CDbl[color= #009900;](Text1[color= #339933;].Text[color= #009900;]) [color= #339933;]+ CDbl[color= #009900;](INTS1[color= #009900;](X[color= #009900;]) [color= #339933;]+ INTS2[color= #009900;](X[color= #009900;])[color= #009900;])

[color= #990000;]Next