1、创建一个新窗体，并添加picturebox和command控件。

(资料图片)

2、双击命令按钮进入代码块。

3、编写代码

4、源代码

5、Private Sub Command1_Click()

6、 Dim se As String

7、Picture 1. Printing a label (35); 9*9 Multiplication Table"" Header

8、对于i=1至9 "外循环1至9

9、对于j=1到I "的内部小循环

10、Se=j "*" i "=" j * i "计算每行的内容。

11、图片1。打印选项卡((j-1)* 9)；se；打印出每行的内容。

12、 Next j

13、 Picture1.Print

14、 Next i

15、End Sub

16、按F5运行结果

本文到此结束，希望对大家有所帮助。