vb 帮我详细解释下代码

来源:百度知道 编辑:UC知道 时间:2024/06/25 03:48:55
Private Sub Command1_Click()
Dim Se As String
For i = 1 To 9
For j = 1 To i
Se = i & "X" & j & "=" & i * j
Print Tab((j - 1) * 9); Se;
Next j
Print
Next i
End Sub
解释下这个代码 尤其是Print Tab((j - 1) * 9); Se; 这句

这个最后会出来一个乘法口诀表
第一次循环i=1
子循环执行一次se=“1X1=1”
在距窗口左端0个单位((j-1)*9=0)处打印se
跳出子循环,print就是换行
第二次循环i=2
子循环执行二次有两个se值(分别是“2X1=2”“2X2=4”)
第一个se在距窗口左端0个单位((j-1)*9=0)处打印,第二个在距左端9个单位(子循环第二次时((j-1)*9=9))处打印
然后跳出子循环,换行
以此类推一直到i=9
Print Tab((j - 1) * 9); Se;这句是让i不变时一个接着一个打,每个之间有相同的距离
print tab就是指定在一行中某一特定位置打印
然后跳出子循环,换行

九九乘法表!
Tab((j - 1) * 9)就是在每一横行打一个就空9空,“;”是紧接输出
Next j
Print
然后打满J个数空一行