代码给你,其它背景字体什么的都是小问题Private Sub Command1_Click()
Dim i As Integer,j As Integer
For i = 1 To 9
For j = 1 To i
Print j & "X " & i & "= " & i * j & vbTab;
Next
Print
NextEnd Sub...
For i = 1 To 9 For k=0 To 9-j '先输出一系列空格字符 Text1.Text =Text1.Text & Space(9) Next k For j = i To 1 step -1 '逆序输出m=a*b 的形式 '用format函数定宽输出 Text1.Text =Text1.Text & for...
Private Sub Command1_Click()'Text1.ScrollBars = 1'设计时设置Dim i As IntegerDim t As VariantDim j As IntegerText1.Text = ""For i = 1 To 9For j = 1 To 9 - iText1.Text = T...