成都网站建设设计

将想法与焦点和您一起共享

用vb.net写乘法表 vb乘积代码

VB.NET99乘法表问题

c = c a "*" b "=" a * b vbTab vbCrLf

成都创新互联主营杭锦后网站建设的网络公司,主营网站建设方案,重庆APP开发,杭锦后h5小程序定制开发搭建,杭锦后网站营销推广欢迎杭锦后等地区企业咨询

改成 c = c vbCrLf

以为B长到10的时候,才不满足条件 跳出循环啊,但是你的b=10时候跳出了内层,还要继续执行外层的语句。

其实最后A也是要到10的

因为只有条件不满足的时候才会跳出循环

to 后面的数字相当于限制数字

用vb.net设计程序,打印九九乘法表的右上部分和右下部分

右上部分的:

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

用VB.net 设计九九乘法表程序?

先建一文本框,将文本框的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


本文题目:用vb.net写乘法表 vb乘积代码
本文网址:http://chengdu.cdxwcx.cn/article/doicdpe.html