vb编程实例

vb编程实例

Private Sub Form_Click()  Form1.Width = 13000  Dim i As Integer, j As Integer  Cls  Print  Print "***************九九乘法表*****************"  Print  For j = 1 To 9    Print " 1 *"; j; "="; j;    For k = 2 To j    Print Tab(15 * (k - 1)); k; "*"; j; "="; j * k;    Next k    Print  Next jEnd Sub