VF程序设计经典例题.doc

《VF程序设计经典例题.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.1.求园的面积（要求判断半径是否合理）..CleaInpu‘r=’torIfr>0S=3.14*r*r?sElse?’半径错误！’Endif2.求分段函数Y的值Y=2x＋5x>0xx=0

2、x

3、x<0..CleaInpu‘x=’toxIfx>0Y=2*x+5ElseIfx=0Y=xElseY=abs(x)EndifEndif?y3.输入一个百分制成绩判断其等级（优/良/中/及格/不及格）..CleaInpu‘cj=’tocjDocaseCasecj>=90?’优’Casecj>=80?’良’Cas

4、ecj>=70?’中’Casecj>=60?’及格’Orth?’不及格’Endcase4.输入若干个（个数不定）百分制成绩判断其等级（优/良/中/及格/不及格）..CleaInpu‘请输入处理几个人的成绩：’tonFori=1tonInpu‘cj=’tocjDocase..Casecj>=90?’优’Casecj>=80?’良’Casecj>=70?’中’Casecj>=60?’及格’Orth?’不及格’Endcaseendfor1.求S＝1+2+3......+100..C..leaS=0For

5、i=1to100S=s+iEndfor?s2.求S＝1×2×3......×100..Cleap=1Fori=1to100p=p*iEndfor?p3.求S＝1+3+5......+99..CleaS=0Fori=1to99step2S=s+iEndfor?s4.求S＝1－2+3－4......－100..CleaS=0Fori=1to100S=s+(-1)^(i+1)*iEndfor?s5.求S＝1+1/2+2/3+3/5......前10项之和..CleaS=0A=1..B=1Fori=1to

6、10S=s+a/bT=aA=bB=t+bEndfor?s1.求S＝1！+2！+3！......+10！..CleaS=0P=1Fori=1to10P=p*iS=s+pEndfor?s2.对学生表中所有入学成绩≥650分的学生免去贷款CleaUse学生Scanfor入学成绩>=650.and.贷款否=.t.Repl贷款否with.f.EndscanUse************************************************************************3.

7、输出图形..CleaFori=1to4Forj=1toi??’*’Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1to2*i-1??’*’..Endfor?EndforCleaFori=1to4Forj=1to4-i??’’&&有一个空格EndforForj=1toi??’*’Endfor?Endfor1.判断一个整数是否素数..CleaInpu‘x=’toxFori=2tox-1Ifmod(x,i)<>0LoopElseEx

8、itEndifEndforIfi>x-1?x,’是素数’Else?x,’不是素数’Endif2.判断十个整数是否素数..CleaForj=1to10Inpu‘x=’toxFori=2tox-1Ifmod(x,i)<>0LoopElseExitEndifEndforIfi>x-1?x,’是素数’Else?x,’不是素数’Endif..Endfor1.找出两个数的大数和小数..CleaInpu‘x=’toxInpu‘y’toyIfx>y?x,’大’,y,’小’Else?y,’大’,x,’小’Endif

9、2.找出三个数的最大数和最小数..CleaInpu‘x=’toxInpu‘y’toyInpu‘z’tozIfxa(i)..Mi

10、n=a(i)EndifEndifEndfor?max,min1.找出2×3矩阵中的最大数和最小数cleadimea(2,3)fori=1to2forj=1to3input‘a(‘+str(I,2)+’,’+str(j,2)+’)=’toa(I,j)endforendformax=a(1,1)min=a(1,1)fori=1to2forj=1to3ifmaxa(I,j)min=a(I,j)endifendifendforendfo