答案是这样的，打印在窗体上。
VB九九乘法表
答案:3 悬赏:60 手机版
解决时间 2021-04-14 04:14
- 提问者网友：姑娘长的好罪过
- 2021-04-13 03:22
最佳答案
- 五星知识达人网友：行雁书
- 2021-04-13 03:47
点击窗体就ok：
Private Sub Form_Click()
Print "* 1 2 3 4 5 6 7 8 9"
For i = 1 To 9
Print Format(i, "!@ ");
For j = 1 To 9
Print Format(i * j, "@@") & " ";
Next j
Print
Next i
End Sub
运行截图：
Private Sub Form_Click()
Print "* 1 2 3 4 5 6 7 8 9"
For i = 1 To 9
Print Format(i, "!@ ");
For j = 1 To 9
Print Format(i * j, "@@") & " ";
Next j
Next i
End Sub
运行截图：
全部回答
- 1楼网友：轮獄道
- 2021-04-13 04:19
Private Sub Form_Load()
Me.AutoRedraw = True
Cls
Print "* 1 2 3 4 5 6 7 8 9"
For i = 1 To 9
Print Format(i, "@ ");
For j = 1 To 9
Print Format(i * j, "@@") & " ";
Next j
Print
Next i
End Sub
- 2楼网友：woshuo
- 2021-04-13 04:11
Private Sub Command3_Click() Dim i As Integer, j As Integer, t% t = 1 For i = 1 To 9 For j = 1 To 9 Print i * j & Space(2); Next j Print vbCr Next i End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯