VF程序设计经典例题.doc
上传人:王子****青蛙 上传时间:2024-09-14 格式:DOC 页数:12 大小:42KB 金币:10 举报 版权申诉
预览加载中,请您耐心等待几秒...

VF程序设计经典例题.doc

VF程序设计经典例题.doc

预览

免费试读已结束,剩余 2 页请下载文档后查看

10 金币

下载此文档

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

求园得面积(要求判断半径就是否合理)CleaInpu‘r=’torIfr〉0S=3、14*r*r?sElse?'半径错误!’Endif求分段函数Y得值Y=2x+5x>0xx=0|x|x<0CleaInpu‘x=’toxIfx>0Y=2*x+5ElseIfx=0Y=xElseY=abs(x)EndifEndif?y输入一个百分制成绩判断其等级(优/良/中/及格/不及格)CleaInpu‘cj=’tocjDocaseCasecj>=90?'优'Casecj〉=80?’良’Casecj>=70?’中'Casecj〉=60?’及格’Orth?’不及格’Endcase输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格)CleaInpu‘请输入处理几个人得成绩:’tonFori=1tonInpu‘cj=’tocjDocaseCasecj〉=90?’优’Casecj>=80?’良’Casecj>=70?'中'Casecj〉=60?’及格’Orth?’不及格’Endcaseendfor求S=1+2+3、、、、、、+100CleaS=0Fori=1to100S=s+iEndfor?s求S=1×2×3、、、、、、×100Cleap=1Fori=1to100p=p*iEndfor?p求S=1+3+5、、、、、、+99CleaS=0Fori=1to99step2S=s+iEndfor?s求S=1-2+3-4、、、、、、-100CleaS=0Fori=1to100S=s+(-1)^(i+1)*iEndfor?s求S=1+1/2+2/3+3/5、、、、、、前10项之与CleaS=0A=1B=1Fori=1to10S=s+a/bT=aA=bB=t+bEndfor?s求S=1!+2!+3!、、、、、、+10!CleaS=0P=1Fori=1to10P=p*iS=s+pEndfor?s对学生表中所有入学成绩≥650分得学生免去贷款CleaUse学生Scanfor入学成绩>=650、and、贷款否=、t、Repl贷款否with、f、EndscanUse************************************************************************输出图形CleaFori=1to4Forj=1toi??'*'Endfor?EndforCleaFori=1to4Forj=1to4—i??’’&&有一个空格EndforForj=1to2*i-1??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1toi??’*’Endfor?Endfor判断一个整数就是否素数CleaInpu‘x=’toxFori=2tox-1Ifmod(x,i)〈〉0LoopElseExitEndifEndforIfi〉x—1?x,’就是素数’Else?x,’不就是素数’Endif判断十个整数就是否素数CleaForj=1to10Inpu‘x=’toxFori=2tox-1Ifmod(x,i)〈>0LoopElseExitEndifEndforIfi〉x-1?x,’就是素数’Else?x,’不就是素数’EndifEndfor找出两个数得大数与小数CleaInpu‘x=’toxInpu‘y’toyIfx〉y?x,’大',y,’小’Else?y,’大’,x,’小’Endif找出三个数得最大数与最小数CleaInpu‘x=’toxInpu‘y’toyInpu‘z'tozIfx<yt=xx=yy=tElseIfx<zt=xx=zz=tendifendifify<zt=yy=zz=tendif?x,'就是最大数',z,'就是最小数’找出十个数得最大数与最小数CleaDimea(10)Fori=1to10Inputoa(i)EndforMax=a(1)Min=a(1)Fori=2to10Ifmax〈a(i)Max=a(i)ElseIfmin〉a(i)Min=a(i)EndifEndifEndfor?max,min找出2×3矩阵中得最大数与最小数cleadimea(2,3)fori=1to2forj=1to3input‘a(‘+str(I,2)+