专升本VB上机编程作业1.docVIP

  1. 1、本文档共6页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  5. 5、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  6. 6、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  7. 7、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  8. 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*

文档评论(0)

82393aa + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档