资源描述：
《VF30道程序设计题参考答案.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、1求圆的面积cleainpu'请输入半径='torifr>=0s=pi[]*r^2?'s=',selse?'此时半径无意义'endifretu 2求分段函数的值cleainpu'请输入x='toxdocasecasex>0y=2*x+5casex=0y=-xcasex<0y=xendcase?'y=',ysettalkonretu3输入一个成绩判断等级cleainput'请输入成绩='toxifx<=100andx>=0docasecasex<60?'不及格'casex<70?'及格'casex<80?'中
2、'casex<90?'良'otherwise?'优秀'endcaseendififx>100orx<0?'成绩无效'endifretu4输入多个成绩判断等级cleadimea[6]fori=1to6inpu'请输入成绩：'toa[i]?'：',str[a[i],3]ifa[i]<=100anda[i]>=0docasecasea[i]<60?'不及格'casea[i]<70?'及格'casea[i]<80?'中'casea[i]<90?'良'otherwise?'优秀'endcaseendififa[i]>
3、100ora[i]<0?'成绩无效'endifendforretu5求和1到100的和cleas=0fori=1to100s=s+iendfor?'s=',sretu61to100乘cleas=1fori=2to100s=s*iendfor?'s=',sretu71+3+……+99cleas=0fori=1to99step2s=s+iendfor?'s=',sretu81-2+3-……-100cleas=0fori=1to100s=s-(-1)^i*iendfor?'s=',sretu91+1/2+2/3+
4、3/5+……前十项和cleas=1a=1b=1fori=1to9t=aa=bb=t+bs=s+a/bendfor?'s=',sretu10.1+2!+3!+cleas=0t=1fori=1to10t=t*is=s+tendif?'s=',sretu11.对学生表中所有入学成绩≥650分的学生免去贷款cleaopendatabase教学管理use学生if入学成绩>=650?姓名,'免去贷款'endifretu12.输出图形********************************************
5、****************************第一个cleafort=1to4fori=1tot??'*'endfor?endforretu下面是第五个图形cleafort=4to1step-1?space[4-t]fori=1tot??'*'endforendforretu下面是第三个图形cleafort=1to4?space[4-t]fori=1to2*t-1??'*'endfendfretu13.判断一个整数是否素数cleainput'请输入x='toxfori=2tox-1ifmod[x,
6、i]=0?x,'不是素数'exitendifendforIfi>x-1?x,'是素数'endifretu14.判断十个整数是否素数cleadimea(10)forj=1to10input'请输入x='toa(j) ?fori=2toa[j]-1ifa[j]/i=int(a[j]/i)exitendifendforifi>a[j]-1?a[j],'是素数'else?a[j],'不是素数'endifendforretu15.找出两个数的大数和小数cleadimea[2]fori=1to2input'请输入x='
7、toa[i]Endforifa[1]>=a[2]?a[1]else?a[2],'较大'endifretu16.找出三个数的最大数和最小数cleainput'请输入一个数:'toxstorextomax,minfori=2to3input'请输入一个数:'toxifmax<=xmax=xelsemin=xendifendfor?'最大数:',max?'最小数:',minretu17.找出十个数的最大数和最小数cleadimea[10]fori=1to10input'请输入x='toa[i]endforforj
8、=9to1step-1fori=1tojifa[i]<=a[i+1]t=a[i]a[i]=a[i+1]a[i+1]=tendifendforendfor?'最大值',a[1]?'最小值',a[10]retu18.找出2×3矩阵中的最大数和最小数cleadimea[2,3]fori=1to2forj=1to3input'请输入x='toa[i,j]endforendforfori=1to1forj=1to2ifa[
