Question

VB高手请帮个忙

1*1=1 1*2=2 1*3=3 1*4=4 1*5=5 1*6=6 1*7=7 1*8=8 1*9=9
2*1=2 2*2=4 2*3=6 2*4=8 2*5=10 2*6=12 2*7=14 2*8=16
3*1=3 3*2=6 3*3=9 3*4=12 3*5=15 3*6=18 3*7=21
4*1=4 4*2=8 4*3=12 4*4=16 4*5=20 4*6=24
5*1=5 5*2=10 5*3=15 5*4=20 5*5=25
6*1=6 6*2=12 6*3=18 6*4=24
7*1=7 7*2=14 7*3=21
8*1=8 8*2=16
9*1=9

谁能帮我编个这样的程序

Answer 1

form放一个按钮,不要改动任何,复制代码运行即可

Private Sub Command1_Click(Index As Integer)
Dim i, j
For i = 1 To 9
For j = 1 To 10 - i
Print i & "*" & j & "=" & i * j,
Next j
Print
Next i
End Sub

Private Sub Form_Load()
Me.WindowState = 2
End Sub