PrivateSubCommand1_Click()
'循环嵌套
DimiAsInt适既喜eger
DimjAsInteger
PrintString(56,"-")
PrintTab(25);"九九乘法表"
PrintString(56,"-")
Fori=0To9
PrintTab(i*6);i;
Nexti
Forj=1To9
Printj;
Fori=1Toj
PrintTab(i*6);j*i;
Nexti
Nextj
EndSub
标签:乘法表
PrivateSubCommand1_Click()
'循环嵌套
DimiAsInt适既喜eger
DimjAsInteger
PrintString(56,"-")
PrintTab(25);"九九乘法表"
PrintString(56,"-")
Fori=0To9
PrintTab(i*6);i;
Nexti
Forj=1To9
Printj;
Fori=1Toj
PrintTab(i*6);j*i;
Nexti
Nextj
EndSub
标签:乘法表