大师作文网for I:=1 to 9 do begin for j:=1 to 9 do begin write(j:1,’*’,
for I:=1 to 9 do begin for j:=1 to 9 do begin write(j:1,’*’,
var i,j:integer; begin for i:=1 to 5 do begin for j:=1 to i
delphi for i := 1 to 10 do begin if Terminated then Exit; sl
vb题,For i=1 to 2 for j=1 to 2 for k=1 to j
for(j=i+1;j
for i=1 to 4 for j= 0 to i print chr$(65 + i) next j print n
for(j=1;j
for(j=i+n+1; j>i; j--)和s[j+1]= s[j];
j=0 for i=1 to 10 j=j+i Next print j 请画出此程序的流程图并写出j的值
dim m(5,5),s(5) for i=1 to 5 s(i)=0 for j=1 to 5 m(i,j)=i+j
For i = 1 To 4 For j = 1 To 5 b(i) = b(i) + a(i,j) Next j Ne
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a