第四章节实习训练.docVIP

例4-1 Private Sub Command1_Click() Print Tab(26); * Print Tab(25); *** Print Tab(24); ****** Print Tab(23); ******** Print Tab(22); ********** Print Tab(21); ************ Print Tab(20); ************** Print Tab(19); **************** End Sub Private Sub Command1_Click() Picture1.Print Tab(21); * Picture1.Print Tab(20); *** Picture1.Print Tab(19); ****** Picture1.Print Tab(18); ******** Picture1.Print Tab(17); ********** End Sub 例4-2 Private Sub Command1_Click() Dim x%, y%, h%, f% f = 16: h = 40 x = (4 * f - h) / 2 y = (h - 2 * f) / 2 Label