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

新建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运行结果