VF程序上机答案

《VF程序上机答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、输入货物重量，计算该货物的托运费，记费标准每公斤为0.1元，当超过50公斤后，超出数为0.2元。分别用双分支选择及单分支选择编写程序。Ø用单分支选择编写YH2.prg程序如下：INPUT"请输入货物重量:"TOwIFw<=50f=w*0.1&&货物重量没有超过50公斤时的计算公式ENDIFIFw>50f=50*0.1+(w-50)*0.2ENDIF?"托运费为:",fn用双分支选择编写YH1.prg程序如下：INPUT"请输入货物重量:"TOwIFw<=50f=w*0.1&&货物重量没有超过50公斤时的计算公式ELSEf=50*0.1+(w-50)*0.2&&货物重量超过50公斤时的

2、计算公式ENDIF?"托运费为:",f2、编写程序，其程序功能是在学生基本情况表中，查询陈键的记录，如果找到记录，就显示该记录，否则，显示“查无此人”。CLEARUSE学生基本情况LOCATEALLFOR姓名="陈键"IF.NOT.EOF()BROWSEFOR姓名="陈键"ELSE@2,30SAY"查无此人!"ENDIF3、成绩判定:成绩>=85显示优秀,成绩75~85显示良好,成绩60~75显示及格,成绩<60为不及格,其余为成绩输入错误.Input"请输入成绩:"to成绩docasecase成绩>=85?"优秀"case成绩>=75?"良好"case成绩>=60?"及格"case成绩

3、>=0?"不及格"otherwise?"成绩输入错误!"ENDcase4、编写一个简单的菜单程序，提供“添加”、“修改”和“打印”三种功能选择并转入相应处理，程序文件名为MCASE.prg。useXSQKCLEARtext1.添加2.修改3.打印endtextinput"请选择:"toopDOCASECASEOP=1APPENDCASEOP=2BROWCASEOP=3WAIT"按任一键打印"LISTTOPRINTOTHERWISE?"选择错!"ENDCASEUSE5、分别用条件循环与步长循环编写计算S=1+2+3+…+1000的程序。SETTALKOFFCLEARS=0I=0DOWHIL

4、EI<1000I=I+1S=S+IENDDO?"S=",SSETTALKONRETURNclears=0fori=1to1000s=s+iendfor?"s=",s