用vb的for...next语句循环如何实现乘法表

2025-12-17 01:24:54

推荐回答（5个）

回答1：

这个我有
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To 9
If j >= i Then
CurrentX = i * 10: CurrentY = j * 10
Print i * j
End If
Next j
Next i
End Sub

Private Sub Form_Load()
Scale (0, 0)-(120, 120)
End Sub
粘贴过去就可以用建一个command 就行了绝对没问题！！有疑问再联系我啊！！！

回答2：

Dim i As Integer, j As Integer
Dim k ( 1 to 9, 1 to 9 ) As Integer
for i = 1 to 9
for j = 1 to 9
k(i,j) = i * j
next
next

回答3：

窗体添加一个Command控件，将下边的代码粘贴过去

Private Sub Command1_Click()
Cls
Print " 九九乘法口诀表 "
Print "--------------------------------------"
For q = 1 To 9
Print Tab(4 * q); q;
Next q
Print
Print "--------------------------------------"
For i = 1 To 9
Print i;
For j = 1 To i
Print Tab(4 * j); i * j;
Next j
Print
Print "--------------------------------------"

Next i
End Sub

简单语句，明了，可以参考参考

回答4：

private sub command1_()
dim i as integer
dim j as integer
dim k as integer

for i=1 to 9
k=""
for j=1 to 9
k=k & i & "*" & j & "=" & i * j & vbtab
next j
print k
end sub

回答5：

很简单，几行代码就ok：
编辑窗体的单击事件
Private Sub Form_Click()
Dim i%, x%, s%
For i = 1 To 9
Print Spc(1)
For x = 1 To i
s = i * x
Print i & "*"; x; "=" & s & " ";
Next
Print
Next
End Sub
我试过了，效果还可以