- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
[2018年最新整理]VF程序设计编程题答案
程序设计编程题
(3)?下面程序的运行结果是(??)?[2008年4月选择题14]??
SET?EXACT?ON?
?S=ni+SPACE(2)??
IF?s=?=ni??
?IF?s=ni????
?one???
ELSE?
?two?
??ENDIF??
ELSE??
?IF??s=ni??
??three?
ELSE?
?four?
?ENDIF?
ENDIF?
RETURN?
A?)?one??????????B)?two???????????C)?three???????????D)?four
求园的面积(要求判断半径是否合理)
Clea
Inpu ‘r=’ to r
If r0
S=3.14*r*r
?s
Else
?’半径错误!’
Endif
求分段函数Y的值
Clea
Inpu ‘x=’ to x
If x0
Y=2*x+5
Else
If x=0
Y=x
Else
Y=abs(x)
Endif
Endif
?y
输入一个百分制成绩判断其等级(优/良/中/及格/不及格)
Clea
Inpu ‘cj=’ to cj
Do case
Case cj=90
?’优’
Case cj=80
?’良’
Case cj=70
?’中’
Case cj=60
?’及格’
Orth
?’不及格’
Endcase
输入若干个(个数不定)百分制成绩判断其等级(优/良/中/及格/不及格)
Clea
Inpu ‘请输入处理几个人的成绩:’ to n
For i=1 to n
Inpu ‘cj=’ to cj
Do case
Case cj=90
?’优’
Case cj=80
?’良’
Case cj=70
?’中’
Case cj=60
?’及格’
Orth
?’不及格’
Endcase
endfor
求S=1+2+3. . . . . .+100
Clea
S=0
For i=1 to 100
S=s+i
Endfor
?s
求S=1×2×3. . . . . .×100
Clea
p=1
For i=1 to 100
p=p*i
Endfor
?p
求S=1+3+5.. . . . .+99
Clea
S=0
For i=1 to 99 step 2
S=s+i
Endfor
?s
求S=1-2+3-4. . . . . .-100
Clea
S=0
For i=1 to 100
S=s+(-1)^(i+1)*i
Endfor
?s
求S=1+1/2+2/3+3/5. . . . . .前10项之和
Clea
S=0
A=1
B=1
For i=1 to 10
S=s+a/b
T=a
A=b
B=t+b
Endfor
?s
求S=1!+2!+3!. . . . . .+10!
Clea
S=0
P=1
For i=1 to 10
P=p*i
S=s+p
Endfor
?s
对学生表中所有入学成绩≥650分的学生免去贷款
Clea
Use 学生
Scan for入学成绩=650 .and. 贷款否=.t.
Repl贷款否 with .f.
Endscan
Use
输出图形
Clea
For i=1 to 4
For j=1 to i
??’*’
Endfor
?
Endfor
Clea
For i=1 to 4
For j=1 to 4-i
??’ ’ 有一个空格
Endfor
For j=1 to 2*i-1
??’*’
Endfor
?
Endfor
Clea
For i=1 to 4
For j=1 to 4-i
??’ ’ 有一个空格
Endfor
For j=1 to i
??’*’
Endfor
?
Endfor
判断一个整数是否素数
Clea
Inpu ‘x=’ to x
For i=2 to x-1
If mod(x,i)0
Loop
Else
Exit
Endif
Endfor
If ix-1
?x,’是素数’
Else
?x,’不是素数’
Endif
判断十个整数是否素数
Clea
For j=1 to 10
Inpu ‘x=’ to x
For i=2 to x-1
If mod(x,i)0
Loop
Else
Exit
Endif
Endfor
If ix-1
?x,’是素数’
Else
?x,’不是素数’
Endif
Endfor
找出两个数的大数和小数
Clea
Inpu ‘x=’ to x
Inpu ‘y’ t
您可能关注的文档
- [2018年最新整理]Surfer白化文件建立与应用.doc
- [2018年最新整理]suricata源码阅读main函数.docx
- [2018年最新整理]SVG技术规范.doc
- [2018年最新整理]SVG动态无功补偿培训.ppt
- [2018年最新整理]SVM习题集.docx
- [2018年最新整理]SVM支持向量机的基础知识及深入讲解.ppt
- [2018年最新整理]SuperTopCG_readme.doc
- [2018年最新整理]SVN使用手册(简易版).doc
- [2018年最新整理]Surfacer曲面建模实验指导.doc
- [2018年最新整理]SWDC-4数字航摄仪.doc
- 2025年网络文学平台版权运营模式创新与版权保护体系构建.docx
- 数字藏品市场运营策略洞察:2025年市场风险与应对策略分析.docx
- 全球新能源汽车产业政策法规与市场前景白皮书.docx
- 工业互联网平台安全标准制定:安全防护与合规性监管策略.docx
- 剧本杀剧本创作审核标准2025年优化与行业自律.docx
- 2025年新能源电动巡逻车在城市安防中的应用对城市环境的影响分析.docx
- 全渠道零售案例精选:2025年行业创新实践报告.docx
- 2025年网约车司乘纠纷处理机制优化与行业可持续发展报告.docx
- 2025年宠物烘焙食品市场法规政策解读:合规经营与风险规避.docx
- 2025年宠物行业数据安全监管政策影响分析报告.docx
文档评论(0)