联通购机送话费:那为高人能帮我写个九九乘法表(VB)

来源:百度文库 编辑:神马品牌网 时间:2024/05/01 03:09:56

Private Sub Form_click()
Print " *";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
Print
For j = 1 To 9
Print j; " ";
For k = 1 To j
xixi = j * k
Print Tab(k * 6); xixi; " ";
Next k
Print
Next j
End Sub

Private Sub Form_click()
Print " *";
For i = 1 To 9
Print Tab(i * 6); i;
Next i
Print
For j = 1 To 9
Print j; " ";
For k = 1 To j
xixi = j * k
Print Tab(k * 6); xixi; " ";
Next k
Print
Next j
End Sub

Turbo C 2.0编译通过
#include"stdio.h"
main()
{
int m,n;
for(m=1;m<10;m++)
{
for(n=1;n<=m;n++)
printf("%1d*%1d=%-4d",n,m,m*n);

printf("\n");
}
}