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

专升本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*