重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
右上部分的:
“只有客户发展了,才有我们的生存与发展!”这是创新互联的服务宗旨!把网站当作互联网产品,产品思维更注重全局思维、需求分析和迭代思维,在网站建设中就是为了建设一个不仅审美在线,而且实用性极高的网站。创新互联对成都网站设计、网站建设、网站制作、网站开发、网页设计、网站优化、网络推广、探索永无止境。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim se$, i%, j%
Label1.Text = Space(35) "九九乘法表" vbCrLf
Label1.Text = Space(35) "_________" vbCrLf
For i = 1 To 9
For j = 1 To 9
If j = i Then
se = i "×" j "=" i * j
Label1.Text = se Space(8 - Len(se))
Else
se = ""
Label1.Text = se Space(9 - Len(se))
End If
Next j
Label1.Text = vbCrLf
Next i
End Sub
左下部分的:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim se$, i%, j%
Label1.Text = Space(35) "九九乘法表" vbCrLf
Label1.Text = Space(35) "_________" vbCrLf
For i = 1 To 9
For j = 1 To i
se = i "×" j "=" i * j
Label1.Text = se Space(8 - Len(se))
Next j
Label1.Text = vbCrLf
Next i
End Sub
(1)print"*"
意思是打印一个字符"*"。
(2)print:print
VB中,一行一句命令,如果你想多句命令一行,可用冒号隔开。
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
Next I
End Sub
先建一文本框,将文本框的text属性值删除,将mulitline属性值设成true 建一命令按扭,在命令按扭的click事件中写以下语句。For i = 1 To 9 '9行
For j = 1 To i ‘每行i列
Text1.Text = Text1 + Str(i * j)
Next j
Text1.Text = Text1.Text + vbCrLf '每行后加一回车
Next i
c = c a "*" b "=" a * b vbTab vbCrLf
改成 c = c vbCrLf
以为B长到10的时候,才不满足条件 跳出循环啊,但是你的b=10时候跳出了内层,还要继续执行外层的语句。
其实最后A也是要到10的
因为只有条件不满足的时候才会跳出循环
to 后面的数字相当于限制数字
用VB编写打印九九乘法表可以参考下面的代码:
按钮单击代码
Private Sub Command1_Click()
For i = 1 To 9
For j = 1 To i
Print i "*" j "=" i * j " ";
Next j
Next i
End Sub
扩展资料:
vb常用函数:
And 运算符:执行两个表达式的逻辑连接。
Array 函数:返回含一数组的变体 。
Asc 函数:返回字符串首字母的 ANSI 字符代码。
赋值运算符 (=):给变量或属性赋值。
Atn 函数:返回数的反正切值。
调用语句将控制移交 Sub 或 Function 过程。
CBool 函数:返回已被转换为 Boolean 子类型的变体的表达式。
参考资料来源:百度百科-Visual Basic
vb中输出九九乘法表,可以参考下面的代码:
Private Sub Form_Click()
For a = 1 To 9
For b = 1 To a
Print b; "*"; a; "="; b * a;
Next b
Next a
End Sub
扩展资料:
VB基本函数列举:
CBool 函数: 返回已被转换为 Boolean 子类型的变体的表达式。
CByte 函数: 返回已被转换为字节子类型的变体的表达式。
CCur 函数 :返回已被转换为货币子类型的变体的表达式。
CDate 函数: 返回已被转换为日期子类型的变体的表达式。
CDbl 函数: 返回已被转换为双精度子类型的变体的表达式。
Chr 函数: 返回指定 ANSI 字符码的字符。
参考资料来源:百度百科-Visual Basic