2013顺序结构程序设计实验.doc
上传人:qw****27 上传时间:2024-09-12 格式:DOC 页数:3 大小:43KB 金币:15 举报 版权申诉
预览加载中,请您耐心等待几秒...

2013顺序结构程序设计实验.doc

2013顺序结构程序设计实验.doc

预览

在线预览结束,喜欢就下载吧,查找使用更方便

15 金币

下载此文档

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

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

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

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

VF程序设计实验顺序结构程序设计实验例1:显示两条口号,看清楚第一条口号后按任意键再显示第二条口号。SETTALKOFFCLEAR@12,28SAY“欢迎使用湖南城市学院图书管理系统!”WAIT“”@12,28SAY“欢迎使用湖南城市学院邮政管理系统!”WAIT“”SETTALKONRETURN例2:输入2个数据到变量a、b中,然后交换2个变量的内容再显示出来。SETTALKOFFCLEARINPUT“a=”TOaINPUT“b=”TOb?“a,b:”,a,bt=aa=bb=t?“a,b:”,a,bSETTALKONRETURN例3:显示今天是星期几。SETTALKOFFCLEARc=“日一二三四五六”?“今天是星期”+SUBSTR(c,dow(DATE())*2-1,2)例4:编程求圆的周长。根据输入的半径值,计算出相应的圆的周长。SETTALKOFFCLEARINPUT“请输入圆的半径:”TORL=2*3.1416*R@10,10SAY“圆的周长是:”+STR(L,6,3)SETTALKONRETURN例5:编程求长方形面积。从键盘输入两个任意正数,求以两数为边长的长方形面积。SETTALKOFFCLEARINPUT“长方形一边的长为:”TOAINPUT“长方形另一边的长为:”TOBS=A*B?“长方形的面积为:”,SSETTALKONRETURN例6:编程,根据从键盘输入的半径值,计算出相应的圆的面积。settalkoffclearinput“请输入圆的半径:”tors=3.1416*r*r@10,10say“圆的面积是:”,ssettalkonreturn例7:从键盘输入一个三位数,求出其百位、十位、个位数字。settalkoffclearinput“请输入一个三位数:”toxb=int(x/100)&&求出百位数字s=int(mod(x,100)/10)&&求出十位数字&&s=int(x/10)%10&&另一种方法求出十位数字g=mod(x,10)&&求出个位数字?“x的百位、十位、个位数字分别为:”,b,s,gsettalkonreturn例8:把输入的任意3位数整数的每一位数字分别输出来,并求它们的和。SETTALKOFFCLEAINPUT"请输入一个3位整数:"TOMX=INT(M/100)&&百位Y=INT((M-X*100)/10)&&十位*Z=M-X*100-Y*10&&个位Z=M%10&&个位S=X+Y+Z?X,Y,Z?SSETTALKONRETURN例9:把输入的任意4位数整数的每一位数字分别输出来,并求它们的和。另外,再把这个4位整数转化成它的倒置整数输出(1234倒置为4321)。SETTALKOFFCLEAINPUT"请输入一个4位整数:"TOia=int(i/1000)b=int(i/100)%10c=int(i/10)%10d=i%10s=a+b*10+c*100+d*1000?sSETTALKONRETURN