VB怎么像这样的用数字组成矩形,还有等腰三角形,乘法表.
1个回答

Private Sub Command1_Click() '矩形

For i = 1 To 9

For i1 = 1 To 9

Print i1 & " ";

Next

Print

Next

End Sub

Private Sub Command2_Click() '三角型

For i = 1 To 9

For i1 = 1 To i

Print i1 & " ";

Next

Print

Next

End Sub

Private Sub Command3_Click() '乘法表

Dim k As String * 7

For i = 1 To 9

For i1 = 1 To i

k = i1 & "×" & i & "=" & i1 * i

Print k;

Next

Print

Next

End Su

相关问题