For i = 1 To 9 For j = 1 To 9 If j >= i Then Label1.Text = Label1.Text & " " & i & "*" & j & "=" & IIf(i * j > 9, i * j, i * j & " ") End If Next Label1.Text = Label1.Text & vbCrLf Next End Sub End Class
Label1.Text = "" For i = 1 To 9 For j = 1 To 9 If j >= i Then Label1.Text = Label1.Text & " " & i & "*" & j & "=" & IIf(i * j > 9, i * j, i * j & " ") Else Label1.Text = Label1.Text & " " End If Next Label1.Text = Label1.Text & vbCrLf Next本回答被网友采纳