jacky
问题补充说明： Option Explicit Private Sub Form_Load() Dim i As Integer Dim j As Integer Print String(56, "-") Print Tab(25); "九九乘法表" Print String(56, "-") For i = 0 To 9 Print Tab(i * 6); i; Next i Print For j = 1 To 9 Print j; For i = 1 To j Print Tab(i * 6); j * i; Next i Print Next j End Sub 上面的是代码 其他还朦朦胧胧的似懂非懂的感觉 特别是Print Tab(i * 6); i;这个怎么也看不明白啊
Print String(56, "-") '5赵挥继民收极是名边运6个"-"
Print Tab(25); "九九乘法表" '25个跳格键Tab之后，打印"九九乘法表"
Print String(56, "-")
F360问答or i = 0 To 9
Print Tab(i * 左系6); i; 错宁齐京油 '每隔6个跳格键Tab，打印i。如i=0时，在开始位置打印0；i=1时，从开始位置算起的6个Tab之后打印1
'i=2时，从开始位置算起的2*6个Tab之后打印2；…
Next i
'下边有两层for，自己思考下吧
For j = 1 To 9
Print j;
For i = 1 T块洋火o j
P临名耐前rint Tab(i * 6); j * i;
Next i
Print '换行
Next j
E话练犯便满难有州蒸后nd Sub
下图是运行的情况，稍微修改了代码。如下
Pri视抗按月种兴强vate Sub Command1_Click()
Dim i As Int冲站理随天仅流情留灯四eger
Dim督交计 j As Integer
Print String(56, "-")
Print Tab(25); "九九乘法表"
Print String(56, "-")
For i = 0 To 9
P西及在本rint Tab(i * 8); i;
Next i
For j =富守眼落妒处村站苏候苏 1 To 9
法车由 Print j;
伟缩仍素者致操举按束女 For i = 1 To j
Print Tab(i * 岩决术互希若初8); j & "×" & i; "=" & j * i;
Next i
Next j
End Sub
