vb编程输出九九乘法表

Posted 2023-05-02

希望您的程序切实可用
最好是这种形式的：
1×1=1
1×2=2 2×2=4
1×3=3 2×3=6 3×3=9

(1)print"*"
意思是打印一个字符"*"。
(2)print:print
VB中，一行一句命令，如果你想多句命令一行，可用冒号隔开。
print省略参数就表示输出一个空行。
简单说，"print:print"就等于：
print
print
打印两行空行。
(3)tab(n)函数。
用来将光标移到参数n指定的位置开始输出信息。tab(i*6)，(i=1,2,3...),也就是在第6、12、24...格才输出表达式，这样看起来就像一个列表一样。如果你需要更要宽松一点，你写成tab(i*7)也是可以的:）

楼主提供的程序代码,语句有点混乱,运行也不正确.
请参考我提供的以下的乘法表（思路清晰）：
Private Sub Form_Click()
Print Tab(35); "乘法表"
Dim Se As String
For I = 1 To 9
For J = 1 To I
Se = I & "X" & J & "=" & I * J
Print Tab((J - 1) * 9); Se;
Next J
Print
Next I
End Sub 参考技术A 上面的哪是九九乘法表啊
我这有两种

Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub

''''''''''''''''
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub本回答被提问者采纳 参考技术B Private Sub Form_click()
Dim i As Integer, j As Integer
For i = 1 To 9
For j = i To 9
Print i; "*"; j; "="; i * j; " ";
Next j
Print
Next i
End Sub
for嵌套循环，如有问题，请追问 参考技术C sub command1_click()
for i=1 to 9
for j=1 to i
print j*i
next j
print (每乘一组换行)
next i
end sub
本题还可做修改lz要的话我可以打上来 参考技术D Private Sub Form_click()
For a = 1 To 9
For b = 1 To a
Print b; "*"; a; "="; b * a;
Next b
Print
Next a
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub

循环语句的嵌套：编程输出九九乘法表口诀。

#include<stdio.h>
void main()
{
int i,j;
for(i=1;i<=9;i++)
{
for(j=1;j<=i;j++)
printf("%dx%d=%-4d",i,j,i*j);
printf(" ");
}
}