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運行結果

本文到此結束，希望對大家有所幫助。

關鍵詞：