vb九九乘法表

要求是右上角的三角形 就是 1*1=1 1*2=2 1*3=3 1*4=4 1*5=5…… 2*2=4 2*3=6 2*4=8 2*5=10…… 3*3=9 3*4=12 …… 4*4=16 4*5=20意思就是正常的反着的 要求写出VB6.0程序代码 要求简单的代码别太复杂 for next 的

第1个回答  2013-09-24
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嵌套循环,如有问题,请追问本回答被网友采纳
第2个回答  2013-09-23
(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
第3个回答  2013-09-24
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
第4个回答  2013-09-24
Private Sub Command1_Click()
Dim I, J As Integer
For I = 1 To 9
For J = I To 9
Print J & "*" & I & "=" & CStr(I * J) & Space(2);
Next J
Print
Next I
End Sub
第5个回答  2020-12-22

04九九乘法表的记忆方法

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网