VBA 版九九乘法表

nothingwmm

1. 
   
2. Sub test()
   
3. Cells.Clear
   
4. For i = 1 To 9
   
5. For j = 1 To i
   
6. Cells(i, j) = i & "x" & j & "=" & i * j
   
7. Next
   
8. Next
   
9. End Sub

复制代码

BAIXINGR

你这个叫乘法表吗？
Sub xhkj()
    Dim x, y As Integer
    Columns("a:i").Clear
    For x = 1 To 9
        For y = 1 To x
            Cells(x, y) = x & "×" & y & "=" & x * y
        Next y
    Next x
End Sub

桑树果

看不懂啊！

nothingwmm

BAIXINGR 发表于 2011-2-10 18:41
你这个叫乘法表吗？
Sub xhkj()
    Dim x, y As Integer

哈哈，你的太对了！