Question

VB程序设计九九乘法表编写，求高手解答，非常感谢！

VB程序设计九九乘法表编写，求高手解答，非常感谢！

Answer 1

我下面给你空坦的这个代码谈尺是包括正三角打印乘法表和倒三角打印的……

Private Sub Command1_Click()
Dim se As String
Print Tab(35); "九九乘法表"
Print Tab(35); "-----------"
For i = 1 To 9
For j = 1 To i
se = i & "×" & j & "=" & i * j 'se字符含亏高串变量存放每一项表达式
Print Tab((j - 1) * 9 + 1); se; ' 每项表达式显示占9列
Next j
Print '换行
Next i
End Sub

Private Sub Command2_Click()
Dim se As String
Print Tab(35); "九九乘法表"
Print Tab(35); "-----------"
For i = 1 To 9
For j = i To 9
se = i & "×" & j & "=" & i * j 'se字符串变量存放每一项表达式
Print Tab((j - 1) * 9 + 1); se; ' 每项表达式显示占9列
Next j
Print '换行
Next i
End Sub

Private Sub Command3_Click()
Me.Cls
End Sub

Answer 2

Private Sub Form_Click()
For i = 1 To 9
For j = 1 To i
Print j; "败咐郑*"简搭; i; "="; i * j;
If j = 2 And (i = 3 Or i = 4) Then
Print "察颂 ";
End If
Next j
Print
Next i
End Sub