UC知道做一道VB题
来源：百度知道 编辑：UC知道 时间：2024/06/04 13:28:49
'填空完成程序，使得单击"显示"按钮后，在窗体上显示如图99乘法表。
'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To (1) Step 1
Print " ";
For j = 1 To 9
Print (2)
Print vbTab;
Next j
(3)
Next i
End Sub
图就像
1*1=1
1*2=2 2*1=2
1*3=3 2*2=4 3*1=3
类似于这样
'注：请不要更改源程序结构，删除（1）、（2）、（3），并在对应位置填写正确的代码。
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To (1) Step 1
Print " ";
For j = 1 To 9
Print (2)
Print vbTab;
Next j
(3)
Next i
End Sub
图就像
1*1=1
1*2=2 2*1=2
1*3=3 2*2=4 3*1=3
类似于这样
你是一句一句敲上来的还是复制过来的？你的图有问题. 你的程序也有些问题。
图是
1*1=1
1*2=2 2*2=4
1*3=3 2*3=6 3*3=9 这样的吧?
怀疑原题是 For i = 1 To 9 Step 1
For j = 1 To (1)
代码
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 9 Step 1
Print " ";
For j = 1 To i
Print i; "*"; j; "="; i * j;
Print vbTab;
Next j
Print
Next i
End Sub
不过你不给分就太不够意思了.
看不到图，没法做啊
(1)9
(2)i;"*";j;"=";i*j;
(3)print
只有这一个答案，但打出来的图不是你说的那样，而是：
1*1=1__1*2=2__1*3=3__ ......__1*8=8__1*9=9
2*1=2__2*2=4__2*3=6__.......__2*8=16_2*9=18
3*1=3__3*2=6__3*3=9__.......__3*8=24_3*9=27
......
8*1=8__8*2=16_8*3=24_.......__8*8=64_8*9=72
9*1=9__9*2=18_9*3=27_.......__9*8=72_9*9=81
不知道是不是这种格式。
你写的那段程序，无论在1、2、3处填什么，也不会打出你说的那个样子。
有办