請問各位大大們 下面是我寫的語法 結果是10X10＝100 但後面還有1X1...9X9 要如何顯示輸出呢？ Dim i, x, y, xy As Integer Dim arrayA(10), arrayB(10) As Integer For i = 1 To 10 If i <= 10 Then arrayA(i) = i arrayB(i) = i x = arrayA(i) y = arrayB(i) xy = x * y RichTextBox1.Text() = "Array A = " & x & Chr(13) & "Array B = " & y & Chr(13) & "A*B = " & xy End If Next

之前寫給你的範例已經有寫出了 RichTextBox1.Text() = RichTextBox1.Text() & "Array A = " & x & Chr(13) & "Array B = " & y & Chr(13) & "A*B = " & xy

抱歉唷~~ 只有參考前面的程式碼 以為輸出沒有變所以沒去看到= = 非常感謝你唷    感溫唷^^    

引言: 之前寫給你的範例已經有寫出了 RichTextBox1.Text() = RichTextBox1.Text() & "Array A = " & x & Chr(13) & "Array B = " & y & Chr(13) & "A*B = " & xy