装修问答

B版的Private Sub Command1_Click()
Dim x;×"= x
Print x & ", y As Integer
For x = 1 To 9
y = 1
Do While y < & y & "=" & x * y

Next i
Print
For j = 1 To 9
Print j; & i, ")
For i = 0 To 9
Print Tab(i * 8);)
Print Tab(25)Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Print String(56;-" " i;×", "九九乘法表" j & "=" "
Print String(56;-"
For i = 1 To j
Print Tab(i * 8); & j * i

这是C++的。。里边算法都是一样。LZ这只是一个参考。要领会呀 #include <iostream>
using namespace std;
void main()
{
int x,y;
x=0;
y=0;
for(int i=1;i<=9;i++)
{
for(int j=1;j<=i;j++)
{
cout<<j<<"*"<<i<<"="<<i*j<<" ";
}
cout<<endl;
}
}

Private Sub Form_Click()
Dim x, y As Integer
For x = 1 To 9
For y = 1 To 9 '这个是矩形的，如果要左上角的三角形，就是 y = x to 9，如果要右下角的三角形，就是 y = 1 to x
Print x & "×" & y & "=" & x * y,
next y
Print
Next x
End Sub