1.k=1For j=1 to 8k=k*jNext jPrint k 2.dim n as integerdim sum as integern=0sum=0Do while n<=50Sum=sum+nN=n+1Loop 3.dim i as integerfor i=1 to 1000if i mod 13=0 thenprint iend ifnext i
1.k=1 //注意初始化问题,下面也有几处需要如此初始化For j=1 to 8 k=k*j Next j Print k 2.dim n as integer dim sum as integer n=0 sum=0 Do while n<=50 Sum=sum+n N=n+1 Loop 3.dim i as integer for i=1 to 1000 if i mod 13=0 then print i end if next i
1.For next语句 dim k as integerdim j as integerk=1 For j=1 to 8 k=k*j Print k & vbcrlfNext j 2.do loop语句 dim sum,nn=0sum=0Do while n<=50 Sum=sum+n N=n+1 Loop print sum3.打印出1000以内能被13整除的整数 dim i as integer for i=1 to 1000 if i mod 13=0 then print i & vbcrlfend if next i