白皮书参考答案.pptVIP

25.(1)pos =i(2)pos(3)a(i)=a(i+1) 26.(1)len(x)(2)mid(x,I,1)(3)i+1 To k 27.(1)len(oldsen)(2)” ”空格(3)mid(oldsen,i,1) 28.(1)For i=9 To 1 step -1(2)Form1.print Trim(str(i));(3)End sub 29.(1)sum=sum+x(i)(2)ave =sum/30(3)ount=count+1(4)count mod 5 =0 30.(1)Loop while m=0 or n=0 (2)div =m(3)div=div-1 31.(1)m=0 or N=0 (2)m*n/Div(m,n)(3)div=m(4)div=div-1 32.(1)t=t\n(2)term =term +t(3)str(term) 33.(1)1 to len(a)(2)n+fact(p)(3)fact=y 34.(1)dalt0(2)dalt=0(3)sqrt(-dalt) 35.(1)n+1(2)n mod 3 =1 And n mod 5=1 And n mod 7=1 (3)until count N =5 36.(1)1(2)-1(3)x=2*(x+1) 37.(1)Ubound(A)-1(2)a(j)=c