Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 9 Step 1
Print " ";
For j = 1 To 9
Print i * j;
Print vbTab;
Next j
Print vbTab
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "Display(&D)"
Command1.Height = 615
Command1.Width = 1200
Command1.Top = 3600
Command1.Left = 8760
Me.BackColor = vbBlack 'Black=黑色
Me.ForeColor = &HFFFF00
Me.FontSize = 15
Me.Caption = "九九乘法表"
End Sub
参考资料:http://hi.baidu.com/kejisoft/blog/category/vb%B1%E0%B3%CC%C0%E0
本回答被网友采纳