- 1、本文档共14页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
算法与程序设计(VB)
刘晗高二全体2008-11-10
第一套
第15题
请编写程序,打印出下面所示的图案。
*
**
***
**
*
完成所有操作后,请按“Ctrl+S”保存。
程序如下:
PrivateSubForm_Click()
DimiAsInteger定义i为整形变量
DimjAsInteger定义j为整形变量
Fori=-3To3
PrintTab(Abs(i)+5)确定每行的起始位置
Forj=1To(4-Abs(i))-1
Print*;
Nextj
Print换行
Nexti
EndSub
(说明:i表示行数,j表示输出的“*”数)
第16题
编写程序,求函数y的值(当x小于等于0时,y=3x+1;当x0时,y=4x+1)。完成所有操
作后,请按“Ctrl+S”保存。(x的值在程序中调用InputBox函数,在弹出的标准对话框中
输入)
程序如下:
PrivateSubForm_Click()
DimxAsSingle定义x为单精度型变量,由标准输入对话框输入
DimyAsSingle定义y为单精度型变量,值由窗体显示
x=Val(InputBox(请输入变量x的值))Ifx=0Then
y=3*x+1
Else
y=4*x+1
EndIf
Printy=;y
EndSub
(说明InputBox中输入的是字符串型,用Val函数将其转换成数值型。)第17题
编程计算S=1-2+3-4+5-??????+99-100。完成所有操作后,请“Ctrl+S”保存。
程序如下:
PrivateSubForm_Click()
DimsAsInteger定义变量s为单精度型
DimiAsInteger定义循环变量
s=0
Fori=1To100
IfiMod2=1Then
s=s+i
Else
s=s–i
EndIf
Nexti
Prints=;s
EndSub
第18题
编程求:鸡和兔在一个笼里,共有100条腿,40个头,问鸡有几只,兔有几只,完成所有
操作后,请“Ctrl+S”保存。
PrivateSubForm_Click()
DimJiAsInteger鸡
DimTuAsInteger兔
DimLegAsInteger腿数
DimHeadAsInteger头数
ForJi=1To50
ForTu=1To25
Leg=Ji*2+Tu*4计算腿数
Head=Ji+Tu计算头数
IfLeg=100AndHead=40Then如果腿数够100并且头有40个,则打印
Print鸡;Ji;只,兔,;Tu;只
EndIf
NextTu
NextJi
EndSub
第二套
第15题
设计一个程序,打印下面所示图案。
*
***
*****
***
*
privatesubform_click()
DimIAsInteger
DimjAsInteger
ForI=-3to2__
Printtab(abs(i)+5)Forj=1to2*(3-abs(i)-1)
Print“*”;
Nextj
NextI
Endsub
第16题
编写程序,求y=6*x-5的值。(x的值在程序调用中调用inputbox函数,在弹出的标准输入
对话框中输入)。
Privatesubform_click()
Dimxassingle
Dimyassingle
X=val(inputbox(“请输入变量x”))Y=6*x-5
Print“y=”;y_
Endsub
第17题
编写程序求1+2+3+……..+n=500中最小的n.
Privatesubform_click()
dimsasintegerdimnasintegers=0_
n=0
do
n=n+1
s=s+n_
loopuntils500
print“n=”;n
endsub
第18题
编写递归函数求5!的值。
Publicfunctions(nasinteger)aslong
Ifn=1then
S=
您可能关注的文档
- 香港旅游景点大全及票价 2010 香港旅游指南 2010.doc
- 食品安全检验检测能力建设中心项目可行性研究报告.doc
- 食品原辅材料进货查验记录制度.doc
- 预防治艾滋病教育终期评估报告2019.doc
- 项目管理机构配备情况辅助说明资料.doc
- 项目技术分析报告(范文).doc
- 项目成果交付清单.doc
- 项目工程安全目标管理网络图(安2-4).doc
- 智能打包机生产基地项目可行性研究报告写作模板-申批备案.doc
- 年产1250万只蜗杆生产线技改项目可行性研究报告模板-立项拿地.doc
- 量子点及应用型产品项目可行性研究报告模板-立项备案.doc
- 排水管网改造及排涝设施提升项目可行性研究报告写作模板-拿地申报.doc
- 区域综合管线管廊新建项目可行性研究报告写作模板-拿地备案.doc
- 新建电商产业园项目可行性研究报告模板-立项拿地.doc
- 80万吨甲醇制烯烃及下游深加工一体化项目可行性研究报告模板-立项备案.doc
- 易腐有机废弃物综合处置中心项目可行性研究报告写作模板-申批立项.doc
- 新建年产铜铝合金线缆1000万米项目可行性研究报告模板-立项备案.doc
- 他等一类创新药原料药和制剂生产基地项目可行性研究报告模板-立项拿地.doc
- 年产塑料地台板项目可行性研究报告写作模板-申批立项.doc
- 氧化铝母液综合利用项目可行性研究报告写作模板-备案审批.doc
文档评论(0)