1个回答
展开全部
Private Sub Command1_Click()
Sum = 1
For i = 1 To Text1.Text
Sum = Sum * i
Next i
Print Sum
End Sub
Sum = 1
For i = 1 To Text1.Text
Sum = Sum * i
Next i
Print Sum
End Sub
追问
那在窗体上输出九九乘法表??你会吗 ??真的谢谢你啊
追答
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Sum = j * i
Print j; "*"; i; "="; Sum;
Next j
Next i
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询