结果3,K的值就是奇数的值。
Sub 乘法表()Dim i%, j%For i = 1 To 9For j 凳梁闭= 1 To 9If i >= j Then Cells(i, j) = Str(i) & "x" & Str(j) & "=" & i * jNext j, iEnd Sub
效渣肆果如枣裂下图: