用vb编写程序输出乘法口诀表

发布网友发布时间：2023-08-23 08:29

共2个回答

热心网友时间：2024-01-13 22:22

Private Sub Form_Click()
Dim I As Integer, J As Integer, S As String
Cls
For I = 1 To 9
For J = 1 To I
S = S & J & "*" & I & "=" & I * J & Chr(9)
Next J
Print S
S = ""
Next I
End Sub

热心网友时间：2024-01-13 22:23

Private Sub Form_click()
For e = 1 To 9
Print Tab(10 * e - 1); e;
Next e
For i = 1 To 9
Print Tab(1);
Print i
For j = 1 To i
s = i * j
k = i & "*" & j & "=" & s
Print Tab(10 * j); k;
Next j
Print
Next i
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com