连云港副市长:会用VB编程的人帮我一下,帮我编个程!跪谢!!

for(i = 1;i<=9;i++){
for(m = ((9+1) - i) ;m <= 9 ;m++){
print(i."*" .m. "=".i * m . "空格");
}
print"换行";
}

这不是 VB的 语法

1*9=9
2*8=16 2*9=18
3*7=21 3*8=24 3*9=27
4*6=24 4*7=28 4*8=32 4*9=36
5*5=25 5*6=30 5*7=35 5*8=40 5*9=45
6*4=24 6*5=30 6*6=36 6*7=42 6*8=48 6*9=54
7*3=21 7*4=28 7*5=35 7*6=42 7*7=49 7*8=56 7*9=63
8*2=16 8*3=24 8*4=32 8*5=40 8*6=48 8*7=56 8*8=64 8*9=72
9*1=9 9*2=18 9*3=27 9*4=36 9*5=45 9*6=54 9*7=63 9*8=72 9*9=81

新建一个窗体,建立按纽"计算",下面是它的Click事件.
Private Sub 计算_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
Cls
For a = 1 To 9
d = d + 1
For b = d To 9
c = a * b
CurrentX = (a - 1) * 1200
CurrentY = (b - 1) * 300
Print a; "×"; b; "="; c
Next b
Next a
End Sub

这样结果很精确

如果只要九九乘法表的话，也不一定要用到窗体啊。把下面的内容粘帖到任一个文本编辑器，另存为"九九乘法表.vbs"
'__________________九九乘法表______________
dim result,i,j,jieguo
for i = 1 to 9
for j=1 to i
jieguo=i*j
result=result & j & "X" & i & "=" & jieguo & space(8)
next
result =result & vbcrlf
next
msgbox result
'__________________________________________

如果你还是要用VB的话,上面的也可以在VB里用.如下:

Private Sub Form_Load()
Dim result, i, j, jieguo
For i = 1 To 9
For j = 1 To i
jieguo = i * j
result = result & j & "X" & i & "=" & jieguo & Space(8)
Next
result = result & vbCrLf
Next
MsgBox result
Unload Me
End Sub

Private Sub Form_Click()
Dim strS As String, i As Integer, j As Integer
Cls
Print vbCr; Tab(41); "九九乘法表"
For i = 1 To 9
For j = 1 To i
strS = i & "X" & j & "=" & i * j
Print Tab((j - 1) * 10 + 3); strS;
Next j
Print
Next i

End Sub
在窗体的单击事件里写代码如上即可。

这个象是VC不是VB