十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
c = c a "*" b "=" a * b vbTab vbCrLf
成都创新互联主营杭锦后网站建设的网络公司,主营网站建设方案,重庆APP开发,杭锦后h5小程序定制开发搭建,杭锦后网站营销推广欢迎杭锦后等地区企业咨询
改成 c = c vbCrLf
以为B长到10的时候,才不满足条件 跳出循环啊,但是你的b=10时候跳出了内层,还要继续执行外层的语句。
其实最后A也是要到10的
因为只有条件不满足的时候才会跳出循环
to 后面的数字相当于限制数字
右上部分的:
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
先建一文本框,将文本框的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