在VB里输出九九乘法表

Question

请问要怎么样编写

Answer 1

vb中输出九九乘法表，可以参考下面的代码：

Private Sub Form_Click()

For a = 1 To 9

For b = 1 To a

Print b; "*"; a; "="; b * a;

Next b

Print

Next a

End Sub

扩展资料：

VB基本函数列举：

CBool 函数： 返回已被转换为 Boolean 子类型的变体的表达式。 

CByte 函数： 返回已被转换为字节子类型的变体的表达式。

CCur 函数 ：返回已被转换为货币子类型的变体的表达式。 

CDate 函数： 返回已被转换为日期子类型的变体的表达式。 

CDbl 函数： 返回已被转换为双精度子类型的变体的表达式。 

Chr 函数： 返回指定 ANSI 字符码的字符。 

参考资料来源：百度百科-Visual Basic

Answer 2

Private Sub Command1_Click()
Dim i, j, s
For i = 1 To 9
For j = 1 To i
s = s & j & "×" & i & "=" & IIf(Len(i * j) < 2, i * j & " ", i * j) & " "
Next
s = s & vbCrLf
Next
Print s
End Sub

Answer 3

Private Sub Form_click()
For a = 1 To 9
For b = 1 To a
Print b; "*"; a; "="; b * a;
Next b
Print
Next a
End Sub本回答被提问者采纳

Answer 4

Answer 5

Private Sub Form_click()
For a = 1 To 9
For b = 1 To a
Print b; "*"; a; "="; b * a;
Next b
Print
Next a
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Cls
For j = 1 To 9
For k = 1 To 9
If k > j Then Exit For
Print k & "*" & j & "=" & j * k; " ";
Next k
Print
Next j
End Sub
Private Sub Form_Click()
Dim i, j As Integer
For i = 1 To 9
For j = i To 9
Line (i * 200, j * 250)-(i * 200, j * 250)
ForeColor = i * j * 253
Print Space((i - 1) * 6); i & "×" & j & "=" & i * j
Next j
Next i
End Sub