用vb 编写一个乘法口诀表 要求分别有四种三角形的形状

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/05 06:39:44

用vb 编写一个乘法口诀表 要求分别有四种三角形的形状

Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Print Tab(9 * (j - 1)); i & "x" & j & "=" & i * j;
Next
Print
Next
End Sub
Private Sub Command2_Click()
For i = 1 To 9
For j = i To 9
Print Tab(9 * (j - 1)); i & "x" & j & "=" & i * j;
Next
Print
Next
End Sub
Private Sub Command3_Click()
For i = 9 To 1 Step -1
For j = i To 9
Print Tab(9 * (j - 1)); i & "x" & j & "=" & i * j;
Next
Print
Next
End Sub
Private Sub Command4_Click()
For i = 9 To 1 Step -1
For j = 1 To i
Print Tab(9 * (j - 1)); i & "x" & j & "=" & i * j;
Next
Print
Next
End Sub