VB 九九乘法表

Question

在窗体上显示下三角形式的九九乘法表形
具体要求，窗体的标题为“九九乘法表”，背景为“白色”，显示字体为“宋体”，字号为“小四”，字体颜色为“红色”。

Answer 1

代码给你，其它背景字体什么的都是小问题
Private Sub Command1_Click()
Dim i As Integer,j As Integer
For i = 1 To 9
For j = 1 To i
Print j & "X " & i & "= " & i * j & vbTab;
Next
Print
Next
End Sub

追问

就是不会设字体什么的 能详细说一下吗？

追答

vb.net的图形界面前台相关属性里面就可设定背景或字体什么的，后台代码如Form1.Background="White", Label1.Font="Arial" 等等都可以实现. vb应该也是类似的，你在你的vb编程工具里面找找看。

Answer 2

(1)print"*"
意思是打印一个字符"*"。
(2)print:print
VB中，一行一句命令，如果你想多句命令一行，可用冒号隔开。
print省略参数就表示输出一个空行。
简单说，"print:print"就等于：
print
print
打印两行空行。
(3)tab(n)函数。
用来将光标移到参数n指定的位置开始输出信息。tab(i*6)，(i=1,2,3...),也就是在第6、12、24...格才输出表达式，这样看起来就像一个列表一样。如果你需要更要宽松一点，你写成tab(i*7)也是可以的:）

楼主提供的程序代码,语句有点混乱,运行也不正确.
请参考我提供的以下的乘法表（思路清晰）：
Private Sub Form_Click()
Print Tab(35); "乘法表"
Dim Se As String
For I = 1 To 9
For J = 1 To I
Se = I & "X" & J & "=" & I * J
Print Tab((J - 1) * 9); Se;
Next J
Print
Next I
End Sub

Answer 3

For i = 1 To 9
For k=0 To 9-j
'先输出一系列空格字符
Text1.Text =Text1.Text & Space(9)
Next k
For j = i To 1 step -1
'逆序输出m=a*b 的形式
'用format函数定宽输出
Text1.Text =Text1.Text & format(i * j,"##")+ "=" & format(i,"##") + "*" + format(j,"##")&" "
Next j
For j = 1 To i
'顺序输出a*b=M形式
'同样用format固定数字宽度
Text1.Text = Text1.Text & format(i,"##") & "*" & format(j,"##") & "=" & format(i * j,"##") &" "
Next j
Text1.Text = Text1.Text + VBA.vbCrLf
Next i

Answer 4

Private Sub Command1_Click()
'Text1.ScrollBars = 1'设计时设置
Dim i As Integer
Dim t As Variant
Dim j As Integer
Text1.Text = ""
For i = 1 To 9
For j = 1 To 9 - i
Text1.Text = Text1.Text & vbTab
Next j
For j = i To 1 Step -1
Text1.Text = Text1.Text & CStr(i * j) & "=" & CStr(i) & "*" & CStr(j) & vbTab
Next j
For j = 1 To i
Text1.Text = Text1.Text & CStr(j) & "*" & CStr(i) & "=" & CStr(i * j) & vbTab
Next j
Text1.Text = Text1.Text + vbCrLf
Next i
End Sub

Answer 5

一个最简单的99乘法表代码：
Private Sub Form_Activate()
i = 1
j = 1
For i = 1 To 9
For j = 1 To i
Print i & "x" & j & "=" & i * j; Tab(j * 10);
Next
Print
Next
End Sub