资源描述：
《vf30道程序设计题参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、vf30道程序设计题参考答案*1求圆的面积cleainpu'请输入半径='torifr>=0s=pi[]*r^2?'s=',selse?'此时半径无意义'endifretu *2求分段函数的值cleainpu'请输入x='toxdocasecasex>0y=2*x+5casex=0y=-xcasex<0y=x?'y=',yendcaseretu*3输入一个成绩判断等级cleainput'请输入成绩='toxifx<=100andx>=0docasecasex<60?'不及格'casex<70?'及格'casex<80?'中'casex<90?'良'otherwise?'优秀'
2、endcaseendif?'成绩无效'11retu*4输入多个成绩判断等级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?'优秀'endcaseendifendfor*5求和1到100的和cleas=0fort=1to100s=s+tendfor?'s=',sretu*61to100乘cleas=1fort=2to1
3、00s=s*tendfor?'s=',sretu*71+3+……+99cleas=0fori=1to99step2s=s+i11endfor?'s=',sretu*81-2+3-……-100cleas=0fort=1to100s=s-(-1)^t*tendfor?'s=',sretu*91+1/2+2/3+3/5+……前十项和cleas=1a=1b=1fori=1to9t=aa=bb=t+bs=s+a/bendf?sretu10.1+2!+3!+s=0t=1fori=1to10t=t*is=s+tendf?sretu11.对学生表中所有入学成绩≥650分的学生免去贷款clea
4、opendatabase教学管理use学生if入学成绩>=650?姓名,'免去贷款'endifretu12.输出图形************************************11************************************下面是第五个图形cleafort=4to1step-1?space[4-t]fori=1tot??'*'endfendfretu下面是第三个图形cleafort=1to4?space[4-t]fori=1to2*t-1??'*'endfendfretu13.判断一个整数是否素数cleainput'请输入x='toxf
5、ori=2tox-1ifmod[x,i]=0?x,'不是素数'exitendifendfor?x,'是素数'retu14.判断十个整数是否素数cleadimea(10)forj=1to10input'请输入x='toa(j) fori=2toa[j]-1ifa[j]/i=int(a[j]/i)exitendifendforifi>a[j]-1?a[j],'是素数'11else?a[j],'不是素数'endifendfretu15.找出两个数的大数和小数cleadimea[2]fori=1to2input'请输入x='toa[i]endfifa[1]>=a[2]?a[1]els
6、e?a[2]endiretu16.找出三个数的最大数和最小数cleadimea[3]fori=1to3input'请输入x='toa[i]endfifa[1]>=a[2]ifa[1]>=a[3]?a[1]else?a[3]endielseifa[2]>=a[3]?a[2]else?a[3]endiendiretu17.找出十个数的最大数和最小数cleadimea[10]fori=1to10input'请输入x='toa[i]endfforj=9to1step-111fori=1tojifa[i]<=a[i+1]t=a[i]a[i]=a[i+1]a[i+1]=tendiendf
7、endf?'最大值',a[1]?'最小值',a[10]retu18.找出2×3矩阵中的最大数和最小数cleadimea[2,3]fori=1to2forj=1to3inpu'请输入x='toa[i,j]endfendffori=1to1forj=1to2ifa[i,j]>=a[i,j+1]t=a[i,j]a[i,j]=a[i,j+1]a[i,j+1]=tendiendfendfforj=1to3step2fori=1to1ifa[i,j]>=a[i+1,j]t=a[i,j]a[i,j]=a[i+1,j]
