Private Sub Command1_Click() Dim i As Integer, j As Integer For i = 9 To 1 Step -1 For j =
PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=9To1Step-1Forj=1To9Ifj<=iThenP...
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 9 To 1 Step -1
For j = 1 To 9
If j <= i Then
Picture1.Print j; "x"; i; "="; i * j;
Else
Picture1.Print
Exit For
End If
Next j
Next i
End Sub（这个九九乘法表运行时为什么窗体中只有八行啊，应该有九行才对啊，哪位高手指点一下啊） 展开
Dim i As Integer, j As Integer
For i = 9 To 1 Step -1
For j = 1 To 9
If j <= i Then
Picture1.Print j; "x"; i; "="; i * j;
Else
Picture1.Print
Exit For
End If
Next j
Next i
End Sub（这个九九乘法表运行时为什么窗体中只有八行啊，应该有九行才对啊，哪位高手指点一下啊） 展开
1个回答
展开全部
Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = 9 To 1 Step -1
For j = 1 To i
Picture1.Print j; "x"; i; "="; i * j;
Next j
Picture1.Print
Next i
End Sub
Dim i As Integer, j As Integer
For i = 9 To 1 Step -1
For j = 1 To i
Picture1.Print j; "x"; i; "="; i * j;
Next j
Picture1.Print
Next i
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
