- 1、本文档共6页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 8、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
专升本Visual Basic上机编程作业(一)
一、循环结构程序设计:
1、编程找满足条件的值。
例1:编程求解百钱买百鸡问题。公鸡每只5元,母鸡每只3元,小鸡三只1元,百元钱买百只鸡,问公鸡、母鸡、小鸡各若干? 程序代码如下:
Dim x%, y%, z %
For x=1 To 20
For y=1 To 33
Z=100-x-y
If 5*x+3*y+z/3=100 Then Print ”公鸡:”; x ;”母鸡:”; y ;”小鸡:” ;z
Next y
Next x
请参考以上程序,完成下列编程。
1.1、(09专升本编程题)鸡免同笼问题:已知笼中鸡和免共36只,它们的脚共有100只,编程计算鸡和免分别有多少只。
Dim x%, y%
For x = 1 To 35
y = 36 - x
If 2 * x + 4 * y = 100 Then Print 鸡:; x; 免:; y
Next x
1.2、已知两个三位数相加之和abc+cba=1333,编程计算并输出能满足这个条件的所有a、b、c的值。
Dim a%, b%, c%
For a = 1 To 9
For b = 0 To 9
For c = 1 To 9
If a * 100 + b * 10 + c + c * 100 + b * 10 + a = 1333 Then Print a, b, c
Next c, b, a
1.3、有一篮鸡蛋(总数小于500),二个一数多一个,三个一数多二个,四个一数多三个,五个一数多四个,六个一数多五个,七个一数正好,编程求鸡蛋的数量。
方法一:
Dim i%
For i = 1 To 499
If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print 鸡蛋的只数=:; i
Next i
方法二:
Dim i%
i = 0
Do Until i = 500
i = i + 1
If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 And i Mod 5 = 4 And i Mod 6 = 5 And i Mod 7 = 0 Then Print 鸡蛋的只数=:; i
Loop
1.4、马克思曾经做过这样一道趣味数学题:有30个人在一家小饭馆里用餐,其中有男人、女人和小孩。每个男人花了3先令,每个女人花了2个先令,每个小孩花了1个先令,一共花了50先令。问男人、女人及小孩各有几个?试编程求解。
Dim x%, y%, z%
For x = 1 To 16
For y= 1 To 25
z = 30 - x - y
If 3 * x + 2 * y + z = 50 Then Print x, y, z
Next y, x
1.5、编程实现搬砖问题:有36块砖,36人搬,男人搬4块,女人搬3块,2个小孩抬1块,要求一次搬完,问需要男人、女人、小孩各多少人?
1.6、编写程序找出100到1000之间所有能被3整除且不能被5整除的整数,计算和并在窗体中输出满足此条件的所有整数及其和。
1.7、打印九九乘法表
参考P97例4.19
1.8、有一堆苹果,个数在50至500之间,按5个人均分余4个,按6个人均分余3个,按7个人均分余2个,设计程序,计算输出苹果有多少个?
2、求和、求阶乘等问题:
例2:编写程序,计算自然对数度数e的值,并将结果显示在窗体中(直到最后一项小于10-7为止)。
e ≈
Dim i%, t#, e#
e = 0 : i =0
t = 1
Do Until t 10 ^ (-7)
i = i + 1
t = t / i
e = e + t
Loop
Print “e≈=”;e
例:编写程序计算公式 的值。
Dim I%,j%,n%,p#,s#
n=inputbox(“输入n的值:”)
s=1
For i=1 to n step 2
p=1
For j=1 to i
p=p*j
Next j
s=s+1/p
Next i
Print s
例3:某员工的年工资为15万元人民币,员工工资每年涨9.8%,多少年后该员工工资翻一番。
Dim a%,i%
a=15 :I=0
Do While a30
a=a*
您可能关注的文档
最近下载
- 重点中心乡镇卫生院门诊及收治住院基本病种、中医医疗技术目录.docx VIP
- 2023-2024学年山东省新泰市小学数学二年级期末通关考试题详细答案和解析.docx VIP
- 质量管理小组活动推进指南(TCAQ10208-2024).docx
- 门诊质量管理基本内容.docx VIP
- 马工程管理学全章节(共16章&绪论)思维导图.pdf VIP
- 东芝(TOSHIBA)变频器VF-S11使用手册说明书.pdf
- 2023-2024学年山东省新泰市小学数学五年级期末通关题详细答案和解析.docx VIP
- 四年级奥数---格点与面积---(学生版).docx VIP
- 初中数学教师招聘考试试题.doc VIP
- 中国农业科学院果树研究所人才招聘考试试题及答案.pdf VIP
文档评论(0)