VB 代码帮忙解释下啊- -##· 不懂

来源:百度知道 编辑:UC知道 时间:2024/05/26 10:36:40
Private Sub Form_Click()
for A=1 to 5
for B=1 to 5
print tab(5*B);"|";5*(A-1)+B;
next B
PRINT tab(30);"|"
next A

end sub

Private Sub Form_Click()
for A=1 to 5 '循环 1-5 5次
for B=1 to 5 '循环 1-5 5次 因为嵌套在A循环里 所以2个循环一共25次
print tab(5*B);"|";5*(A-1)+B; 'tab函数表示下个表达式在第N列输出
tab(5*b)就是当B等于1是 在第五列输出 类推,5*(A-1)+B 只是数值的计算而已
next B
PRINT tab(30);"|"
next A

end sub

'窗体点击
Private Sub Form_Click()
'行1-5循环
For A = 1 To 5
'列1-5循环
For B = 1 To 5
'窗体打印5*B个tab后,打印竖线|,打印数字(A-1)+B
Print Tab(5 * B); "|"; 5 * (A - 1) + B;
Next B
'打印30个tab后,打印竖线|
Print Tab(30); "|"
Next A
End Sub

=======
结果如下

| 1 | 2 | 3 | 4 | 5
| 6 | 7 | 8 | 9 | 10
| 11 | 12 | 13 | 14 | 15
| 16 | 17 | 18 | 19 | 20
| 21 | 22 | 23 | 24 | 25

Private Sub Form_Click() '说明是窗体单击事件
for A=1 to 5 '外层循环
for B=1 to 5 '内层循环
print tab(5*B);"|";5*(A-1)+B;