九九乘法表源代码(vb)
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
Private Sub Command1_Click() For i = 1 To 4
For j = 1 To 6
Print "*";
Next j
Next i
End Sub
Private Sub Command2_Click() For i = 1 To 4
Print Tab(i);
For j = 1 To 6
Print "*";
Next j
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
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
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
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
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
End Sub