VB编程上机题复习精华版.pdf

程序题： 1：求1/2-2/3+3/5-5/8……前20项 clear s=0 p=1 q=2 f=1 for i=1 to 10 s=s+p/q*f t=p p=q q=t+p f=-f endfor ?s 2 ：判断一个100 以内的数是否为素数 clear input输入一个数: to n if n=100 for i=2 to int(sqrt(n)+1) if n%i=0 exit endif endfor if n=2 ?alltrim(str(n))+是一个素数 endif if