VB要求输出在text1标签中

Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Print j & "*" & i & "= " & i * j & vbTab;
Next
Print
Next
End Sub

---

输出到Text1标签你直接赋值就行，你的结果好像需要换行，那你的Text1标签的MultiLine属性一定要设置为True,最好将ScrollBars属性设置为3。还有，如果你需要输出前清空Text1的内容腊御伍，请加一句：Text1.text=""

把Print那行改为：Text1.Text = Text1.Text & vbCrLf & j & "*" & i & "= " & i 拆数* j & vbTab

完整代码如下：

Private Sub Command1_Click()

        Text1.Text = ""

        For i = 1 To 9

        For j = 1 To i

        Text1.Text = Text1.Text & j & "*" & i & "= " & i * j & vbTab

        Next

         Text1.Text = Text1.Text & vbCrLf

       Next

End Sub

设计界轮或面如下：

---