有兩個矩陣..A[1....10]..B[1....10] 我本想做A*B但是做不出1*1..2*2...3*3..4*4... 所以做成{A[1 2 ... 10]}*{B[1 2 ... 10]} 要如何更改才能改成列出1*1..2*2...3*3..4*4... 而且按button然後答案秀到RichTextBox??? Dim K, J, X, Y, arrayA(), arrayB() As Integer ReDim arrayA(10), arrayB(10) For K = 1 To UBound(arrayA) Y = K Next For J = 1 To UBound(arrayB) X = J Next RichTextBox1.Text() = "Array A = " & X & Chr(13) & "Array B = " & Y & Chr(13) & "A*B = " & X * Y

dim i,x,y,xy as integer for i=1 to 10 do x=arrayA[i] y=arrayB[i] xy=x*y RichTextBox1.Text() = "Array A = " & x.tostring & Chr(13) & "Array B = " & y.tostring & Chr(13) & "A*B = " & xy.tostring next

這是我按照你說明而KEY上去的...但結果會讓程式當掉說....不知道啥麼原因？？？         Dim i, x, y, xy As Integer         Dim arrayA(), arrayB() As Integer         For i = 1 To 10             x = arrayA(i)             y = arrayB(i)             xy = x * y             RichTextBox1.Text() = "Array A = " & x.ToString & Chr(13) & "Array B = " & y.ToString & Chr(13) & "A*B = " & xy.ToString         Next    ----------------------------------------------------------------------------------

引言: dim i,x,y,xy as integer for i=1 to 10 do x=arrayA[i] y=arrayB[i] xy=x*y RichTextBox1.Text() = "Array A = " & x.tostring & Chr(13) & "Array B = " & y.tostring & Chr(13) & "A*B = " & xy.tostring next

你陣列給值了嗎?    這是我用delphi寫的，跟C#差不多

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
arrayA:array[1..10] of integer;//宣告陣列
arrayB:array[1..10] of integer;
i:integer;
x:integer;
y:integer;
xy:integer;
begin       for i:=1 to 10 do //給值
   begin
     arrayA[i]:=i;
     arrayB[i]:=i;
   end;       for i:=1 to 10 do //運算
   begin
     x:=arrayA[i];
     y:=arrayB[i];
     xy:=x*y;
     self.RichTextBox1.Text:=self.RichTextBox1.Text 'ARRAY A=' x.ToString 'ARRAY B=' y.ToString 'A X B =' xy.ToString #13;
   end;    end;

呵呵~謝謝唷~忘了做宣告~~ 但結果只會顯示出10*10最後的答案說~~ 要如何把1*1-10*10的答案都列出來呢???    

引言: 你陣列給值了嗎? 這是我用delphi寫的，跟C#差不多

procedure TWinForm.Button1_Click(sender: System.Object; e: System.EventArgs);
var
arrayA:array[1..10] of integer;//宣告陣列
arrayB:array[1..10] of integer;
i:integer;
x:integer;
y:integer;
xy:integer;
begin       for i:=1 to 10 do //給值
   begin
     arrayA[i]:=i;
     arrayB[i]:=i;
   end;       for i:=1 to 10 do //運算
   begin
     x:=arrayA[i];
     y:=arrayB[i];
     xy:=x*y;
     self.RichTextBox1.Text:=self.RichTextBox1.Text 'ARRAY A=' x.ToString 'ARRAY B=' y.ToString 'A X B =' xy.ToString #13;
   end;    end;