[笔记]九九乘法
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
源代码(vb)
Private Sub Command1_Click()
For i = 1 To 4
For j = 1 To 6
Print "*";
Next j
Print
Next i
End Sub
Private Sub Command2_Click() For i = 1 To 4
Print Tab(i);
For j = 1 To 6
Print "*";
Next j
Print
Next i
End Sub
Private Sub Command3_Click() For i = 1 To 4
Print Tab(5 - i);
For j = 1 To 6
Print "*";
Next j
Print
Next i
End Sub
Private Sub Command4_Click() For i = 1 To 9
For j = 1 To 9
Print i; "*"; j; "="; i * j;
Next j
Print
Next i
End Sub
Private Sub Command5_Click() Dim se As String Print Tab(35); "乘法表" For i = 1 To 9
For j = 1 To 9
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9); se;
Next j
Picture1.Print
Next i
End Sub
Private Sub Command6_Click() End
End Sub
Private Sub Command7_Click() Print Tab(35); "乘法表" For i = 1 To 9
For j = i To 9
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9); se;
Next j
Print
Next i
End Sub
Private Sub Command8_Click() Print Tab(35); "乘法表" For i = 1 To 9
For j = 1 To i
se = i & "*" & j & "=" & i * j
Print Tab((j - 1) * 9); se;
Next j
Print
Next i
End Sub
Private Sub Command9_Click() Cls
End Sub
Private Sub Picture1_Click() Dim se As String
Picture1.Print Tab(35); "乘法表" For i = 1 To 9
For j = 1 To 9
se = i & "*" & j & "=" & i * j
Picture1.Print Tab((j - 1) * 9); se;
Next j
Picture1.Print
Next i
![[笔记]九九乘法表源代码(vb)](https://swf.iask.com/2NTDIoxRvqk.svg?ssig=O2MRfU5Vf0&Expires=1719348211&KID=sina,ishare&range=0-4581)
浙公网安备 33021202002483