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運行結果
本文到此結束,希望對大家有所幫助。
關鍵詞: