请教:VB编程,乘法口诀如何解决?

来源:百度知道 编辑:UC知道 时间:2024/05/22 04:17:01
----------------------------------------------
Private Sub Form_Click()
Dim i As Integer, j As Integer, sum As Integer
Dim str As String

i = 1: j = 1
For i = 1 To 9
For j = 1 To i
sum = i * j
Print i; " *"; j; " ="; sum
If i = j Then
Print
End If
Next j
Next i
End Sub
----------------------------------------------
我写的程序是这样的,显示的效果是竖着排下去的。
1 * 1 = 1

2 * 1 = 2
2 * 2 = 4

3 * 1 = 3
3 * 2 = 6
3 * 3 = 9

……
……
……
请问我该如何换行?代码如何修改?

新手上路

求详解!谢谢

sum后加逗号更合适一些,而且程序这样改更简洁:
Private Sub Form_Click()
Dim i As Integer, j As Integer, sum As Integer
For i = 1 To 9
For j = 1 To i
sum = i * j
Print i; " *"; j; " ="; sum,
Next j
Print
Next i
End Sub

sum后加分号更合适一些,而且程序这样改更简洁
Private Sub Form_Click()
Dim i As Integer, j As Integer, sum As Integer
For i = 1 To 9
For j = 1 To i
sum = i * j
Print i; " *"; j; " ="; sum,
Next j
Print
Next i
End Sub

在循环里面的Print i; " *"; j; " ="; sum语句后面加一个分号就可以了,即:
Print i; " *"; j; " ="; sum;