Question

编写VB程序：九九乘法口诀表

Answer 1

1×1=1
1×2=2 2×2=4
1×3=3 2×3=6 3×3=9
1×4=4 2×4=8 3×4=12 4×4=16
1×5=5 2×5=10 3×5=15 4×5=20 5×5=25
1×6=6 2×6=12 3×6=18 4×6=24 5×6=30 6×6=36
1×7=7 2×7=14 3×7=21 4×7=28 5×7=35 6×7=42 7×7=49
1×8=8 2×8=16 3×8=24 4×8=32 5×8=40 6×8=48 7×8=56 8×8=64
1×9=9 2×9=18 3×9=27 4×9=36 5×9=45 6×9=54 7×9=63 8×9=72 9×9=81

Answer 2

Private Sub Form_Click()
Print Tab(35); "九九乘法表"
Print Tab(35); "-"
For i = 1 To 9
For j = 1 To i
s = i & "x" & j & "=" & i * j
Print Tab(j * 8); s;
Next j
Print
Next i
End Sub

Answer 3

Private Sub Picture1_Click()
Dim se As String
Picture1.Print
Picture1.Print Tab(35); "九九乘法表"
Picture1.Print Tab(35); "-----------"
For i = 1 To 9
For j = i To 9
se = i & "×" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9 + 2); se;
Next j
Picture1.Print
Next i
End Sub

Answer 4

Private Sub Command1_Click()

Dim i As Integer

Dim j As Integer

For i = 1 To 9 Step 1

Print " ";

For j = 1 To 9

Print i * j;

Print vbTab;

Next j

Print vbTab

Next i

End Sub

Private Sub Form_Load()
Command1.Caption = "Display(&D)"
Command1.Height = 615
Command1.Width = 1200
Command1.Top = 3600
Command1.Left = 8760
Me.BackColor = vbBlack 'Black=黑色

Me.ForeColor = &HFFFF00
Me.FontSize = 15
Me.Caption = "九九乘法表"
End Sub