本人自学VB,下面代码 If (j >= i) Then Print Tab(j * 3); Format(B(i, j), "###");不懂。
OptionBase1PrivateSubCommand1_Click()Dima,B(3,3)a=Array(1,2,3,4,5,6,7,8,9)Fori=1To3Fo...
Option Base 1
Private Sub Command1_Click()
Dim a, B(3, 3)
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 1 To 3
For j = 1 To 3
B(i, j) = a(i * j)
If (j >= i) Then Print Tab(j * 3); Format(B(i, j), "###");
Next j
Print
Next i
End Sub 展开
Private Sub Command1_Click()
Dim a, B(3, 3)
a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
For i = 1 To 3
For j = 1 To 3
B(i, j) = a(i * j)
If (j >= i) Then Print Tab(j * 3); Format(B(i, j), "###");
Next j
Next i
End Sub 展开
1个回答
展开全部
如果j大于等于i,在窗口打印 j*3个TAB符号(类似空格的制表符号)再打印出i*j的值。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询