VB编程练习（寒假业）.docVIP

VB编程练习（寒假作业） （VB软件在校园网下载，地址为：ttp://hdsdsfz.jsedu.sh.cn/2012/0112/237738.shtml ） 一、作业要求： 按照题目要求 ：①设计算法→②画出流程图→③写出对应的VB程序代码→④上机调试 变量的定义及赋值： 一定要为程序中出现的所有变量定义类型!!! 常用变量类型有：Integer（整数） Double（实数） String（字符串） Boolean（逻辑） 如： Dim a as integer 定义a为整数类型 Dim s as string 定义s为字符串类型 如： a=45 变量a赋值为45 s=”CHINA” 变量s赋值为字符串”CHINA” 输入输出语句： 输入用Input（）函数 其中双引号内文字为需显示在对话框中的提示信息 如：a=Input(“输入a的值： ”) （执行结果见下图左） 输出用Print 语句 执行时会从form的最左上角开始显示相应的值 如：print a, b, c （执行结果见下图右） VB语句： 1）分支结构 If 条件 then 操作1 Else 操作2 End if 二、实践操作：请根据题目编写VB程序并写出运行结果： 1、编写程序计算s=的和。输出结果: 2、编写程序计算10个并联电阻的总电阻值。 若运行时依次输入1，1，2，2，3，3，3，4，4，5，输出结果: _ 3、编写程序求1～ 2012之间所有能被17或31整除的数的立方和。输出结果: 4、包装600个变形金刚，要求是： (1) 包装的规格分别是：小盒每盒12个，大盒每盒15个。 (2) 每种规格的盒数都不能为0。 请设计算法，输出所有可能的包装方案，并统计共有多少种方案。 输出结果：共有______________种方案。 5、一张单据上有一个5位数的编号，其千位数和十位数处已经变得模糊不清 ，但是知道这个5位数是57或67的倍数。请设计一个算法， 找到所有满足这些条件的5位数予以输出， 并统计这些数的个数。输出结果：共有______________个数。 分别是：__________________________________________________________________________ 6、若一个直角三角形中一条直角边的长度固定为30，且斜边长度不超过200，要求设计算法找出所有满足这种要求的整数边长的直角三角形，并统计共有多少种可能情况。 输出结果：共有______________种可能情况。 7、要用一百元钱买一百只鸡，假设公鸡5元/只，母鸡3元/只，小鸡1元/3只，问公鸡、母鸡、 小鸡应各买多少只？列出所有可能情况，并统计共有多少种可能情况。 输出结果：共有______________种可能情况。 1 / 4 VB程序代码： VB程序代码： 流程图： VB程序代码： 流程图： 2）循环结构 Do while 条件 操作 Loop 流程图： VB程序代码： 流程图： VB程序代码： 流程图： 参考VB程序代码： dim c as integer dim i as integer dim j as integer dim n as integer c=0 i=0 do while i=9 j=0 do while j=9 n=10407+i*1000+j*10 if n mod 57=0 or n mod 67=0 then print n c=c+1 end if j=j+1 loop i=i+1 loop print c 参考流程图： VB程序代码： 流程图：