如何利用For循环打印九九乘法表

如何利用For循环打印九九乘法表

利用for双重循环打印99乘法表

新建Form窗体，加入picturebox和command 控件

双击command按钮 进入代码块

书写代码

源代码

Private Sub Command1_Click()

Dim se As String

Picture1.Print Tab(35); "9*9乘法表" '表头

For i = 1 To 9 '外层大循环 1到9

For j = 1 To i '内层小循环

se = j & "*" & i & "=" & j * i '计算每行的内容

Picture1.Print Tab((j - 1) * 9); se; '打印出每行的内容

Next j

Picture1.Print

Next i

End Sub

按F5运行结果