帮忙设计一个Vb程序

来源：百度知道 编辑：UC知道 时间：2024/07/07 13:26:39
设计一个九九乘法表，成直角三角形，直角在最左边，也就是课本上的小九九表

Private Sub Form_Click()
Dim i As Integer, j As Integer

For i = 1 To 9
For j = 1 To i
Print i & "*" & j & "=" & i * j,
Next
Print
Next
End Sub

Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = 1 To i
Print i & "*" & j & "=" & i * j,
Next
Print
Next
End Sub

要将窗体设的足够大哦

Private Sub Command1_Click() '长方形的
Cls
Dim a As String, i As Integer, j As Integer
Print vbCr; String(40, " "); "九九乘法表"
Print String(89, "-")
For i = 1 To 9
For j = 1 To 9
a = i & "x" & j & "=" & i * j
Print Tab((j - 1) * 10 + 3); a;
Next j
Print
Next i
Print String(89, "-")
End Sub

Pri