vb 乘法表

来源：百度知道 编辑：UC知道 时间：2024/04/29 06:27:51
* 1 2 3 4 5 6 7 8 9
1 2 3 4 5 6 7 8 9
2 6 8 1012141618
3 121518212427
4 2024283236
5 3035...
6 ...
7 ...
8 ...
9 ...
应该在窗口中添加什么工具？ 如果是添加button和一个textbox行不行？

Cls
Dim i, j
Print " * ";
For i = 1 To 9
Print Format(Trim(i), "00 ");
Next i
Print
For i = 1 To 9
Print Format(Trim(i), "00 ");
For j = 1 To i
Print Format(Trim(i * j), "00 ");
Next j
Print
Next i

Private Sub Form_Click()
Dim I, J, K As Integer
Print "*";
For I = 1 To 9
Print I;
Next I
Print
For I = 1 To 9
Print I;
For J = 1 To 9
K = I * J
Print K;
Next J
Print
Next I

End Sub