用vb.net写乘法表 vba 乘法怎么写

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

右上部分用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

左下部分用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 i

se = i "×" j "=" i * j

Label1.Text = se Space(8 - Len(se))

Next j

Label1.Text = vbCrLf

Next i

End Sub

相关问答

Q1: 用VB.net 设计九九乘法表程序？

先建一文本框用vb.net写乘法表，将文本框用vb.net写乘法表的text属性值删除用vb.net写乘法表，将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

Q2: VB．NET99乘法表问题

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

改成 c = c vbCrLf

以为B长到10用vb.net写乘法表的时候，才不满足条件 跳出循环啊，但是用vb.net写乘法表你用vb.net写乘法表的b=10时候跳出用vb.net写乘法表了内层，还要继续执行外层的语句。

其实最后A也是要到10的

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

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

Q3: vb.net 新九九乘法表 求做 做出来的是倒三角形 顶角在左侧

for i=1 to 9

for k=1 to 9

if k=i then 

    print i  " x "   k  "=" i*k,

else

    exit for

    print

end if

next k

next i

Q4: 用VB.NET建立 9行9列的二维整型数组，数组内容为九九乘法表的乘积，并将之输出？

Dim arr(9, 9), i, j As Integer

Dim s As String

For i = 1 To 9

  For j = 1 To i

      arr(i, j) = i * j

      s = s + CStr(i) + "*" + CStr(j) + "=" + CStr(arr(i, j)) + Chr(32)

  Next

  s = s + Chr(13)

Next

MsgBox(s)

用vb.net写乘法表的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vba 乘法怎么写、用vb.net写乘法表的信息别忘了在本站进行查找喔。