vb编程练习1文本文档.docVIP

vb编程练习1文本文档 专升本Visual Basic上机编程作业（一）及题解 一、循环结构程序设计： 1、编程找满足条件的值。 例1：编程求解百钱买百鸡问题。公鸡每只5元，母鸡每只3元，小鸡三只1元，百元钱买百只鸡，问公鸡、母鸡、小鸡各若干？ 程序代码如下： 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 As Integer, 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 + c) * 100 + 2 * b * 10 + c + a = 1333 Then Print a=; a, b=; b, c=; c Next c Next b Next 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 ：exit for 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整除的整数，计算和并在窗体中输出满足此条件的所有整数及其和。 Dim i%, s, k% s = 0 k = 0 For i = 100 To 1000 If i Mod 3 = 0 And i Mod 5 0 Then Print i; k = k + 1 If k Mod 10 = 0 Then Print s = s + i End If Next i Print Print s=; s 1.7、打印九九乘法表 参考P97例4.19 方法一： Dim i%, j% Print Print Space(50); 九九乘法表 Print For i = 1 To 9 For j = 1 To i Print Tab(10 * j); i × j = i * j; Next j Print Next i Dim i%, j% For i = 1 To 9 For j = 1 To i Print i; *; j; =; i * j; Next j Print Next i 方法二： 打印标题 Print Chr(10); Tab(30); 九九乘法表 Print Tab(29); ------------ 打印乘法表 For i =