编写VB程序：九九乘法口诀表

1×1=1

1×2=2 2×2=4

1×3=3 2×3=6 3×3=9

1×4=4 2×4=8 3×4=12 4×4=16

1×5=5 2×5=10 3×5=15 4×5=20 5×5=25

1×6=6 2×6=12 3×6=18 4×6=24 5×6=30 6×6=36

1×7=7 2×7=14 3×7=21 4×7=28 5×7=35 6×7=42 7×7=49

1×8=8 2×8=16 3×8=24 4×8=32 5×8=40 6×8=48 7×8=56 8×8=64

1×9=9 2×9=18 3×9=27 4×9=36 5×9=45 6×9=54 7×9=63 8×9=72 9×9=81

我下面给你的这个代码是包括正三角打印乘法表和倒三角打印的……

Private Sub Command1_Click()

Dim se As String

Print Tab(35); "九九乘法表"

Print Tab(35); "-----------"

For i = 1 To 9

For j = 1 To i

se = i & "×" & j & "=" & i j 'se字符串变量存放每一项表达式

Print Tab((j - 1) 9 + 1); se; ' 每项表达式显示占9列

Next j

Print '换行

Next i

End Sub

Private Sub Command2_Click()

Dim se As String

Print Tab(35); "九九乘法表"

Print Tab(35); "-----------"

For i = 1 To 9

For j = i To 9

se = i & "×" & j & "=" & i j 'se字符串变量存放每一项表达式

Print Tab((j - 1) 9 + 1); se; ' 每项表达式显示占9列

Next j

Print '换行

Next i

End Sub

Private Sub Command3_Click()

MeCls

End Sub

Private Sub Button1_Click(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles Button1Click

Dim a() As Integer = {4, 8, 2}

Dim b() As Integer = {7, 5, 7}

Dim c(2, 2)

Dim i, j As Integer

For i = 0 To 2

For j = 0 To 2

c(i, j) = a(i) b(j)

TextBox1Text &= c(i, j) & Space(3)

Next

TextBox1Text &= vbNewLine

Next

End Sub

以上就是关于编写VB程序：九九乘法口诀表全部的内容，包括:编写VB程序：九九乘法口诀表、VB程序设计九九乘法表编写，求高手解答，非常感谢！、VB程序设计 向量相乘等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！