我廢才，又來問

1.JPG (19.33 KB)

2009-2-7 19:38

要寫一個像上圖的乘數表
一定要用For/next

這是我寫的，
        Dim i, j As Integer
        For i = 1 To 3
            For j = i To 3
                output.Text = i & " × " & j & " = " & Str(i * j)
                i += i
            Next j
            j += j
        Next i


請高人指點！

[ 本帖最后由 napa6101 于 2009-2-7 19:44 编辑 ]

Dim i, j As Integer
For i = 1 To 3
     For j = i To 3
          output.Text =output.Text &" " & i & " × " & j & " = " & Str(i * j)
     Next j
Next i