偶是VB的菜鸟.哪位大大可以帮帮偶啊?

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Print "*";
For i = 1 To 9
Print Tab(6 * i); i;
Next i
Print
For i = 1 To 9
Print i;
For j = 1 To 9
Print Tab(6 * j); i * j;
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
Dim i As Integer, j As Integer
Print "*";
For i = 1 To 9
Print Tab(6 * i); i;
Next i
Print
For i = 1 To 9
Print i;
For j = 1 To i
Print Tab(6 * j); i * j;
Next j
Print
Next i
End Sub

Private Sub Form_Load()
AutoRedraw = True
End Sub

给你两个例子，你到时候漫漫修改吧

private sub command1_click()
dim i as integer,j as integer
for i = 1 to 9
for j = 1 to i
print tab(4*j);i * j ;
next j
next i
end sub

Private Sub command1_click()
Dim i As Integer, j As Integer
For i = 1 To 9
Print String(9 * i, "-")
For j = 1 To i
If i * j < 10 Then
Print "| " & i & "×" & j & "=" & i * j & " ";
Else
Print "| " & i & "×" & j & "=" & i * j;
End If
Next j
Print "| "
Next i
Print String(9 * (i - 1), "-")
End Sub
表还真难画啊!哎

[此贴子已经被作者于2007-6-21 18:47:51编辑过]