《循 环 嵌 套》由会员分享,可在线阅读,更多相关《循 环 嵌 套(13页珍藏版)》请在金锄头文库上搜索。
1、循 环 嵌 套-打印99乘法表11=1 12=2 22=4 13=3 23=6 33=9 14=4 24=8 34=12 44=16 15=5 25=10 35=15 45=20 55=25 16=6 26=12 36=18 46=24 56=30 66=36 17=7 27=14 37=21 47=28 57=35 67=42 77=49 18=8 28=16 38=24 48=32 58=40 68=48 78=56 88=64 19=9 29=18 39=27 49=36 59=45 69=54 79=63 89=72 99=8199乘法表乘法表乘法表Dim s as integer S
2、=1*1 Print 1;”*”;1;”=”;s ;1 j单元公式:s=1*jDim s, j As Integer For j = 1 To 9s = j * 1Print j; “*“; 1; “=“; s; Next j19乘法表单元公式:s= i*jji191 9单元公式:s= i*jDim i As Integer Dim j As Integer Dim s As IntegerFor i = 1 To 9For j = 1 To 9s = i * jPrint j; “*“; i; “=“; s;Next jPrint “ Next i乘法表jii=jDim i As Integer Dim j As Integer Dim s As IntegerFor i = 1 To 9For j = 1 To is = i * jPrint j; “*“; i; “=“; s;Next jPrint “ Next i* * * * * * * * * * * * * * * * * * *