VB实验报告3VB实验报告3.pdf

Vb程序设计实验报告 试 验 报 告 院（系）：机械院机自专业 课程名称：VB程序设计 日期：2014.06 班级 机自 （3）班 学号 20110401326 机 406 专业 机自 姓名 邓 鑫 时间 2014.06.21 VB程序设计 实验名称 成绩评定 所用软件 VisualBasic6.0 教师签名 1. 熟练使用顺序结构、分支结构、循环结构实现程序的编写； 实验目的 2. 掌握用户菜单定义，实现功能集成； 及要求 3. 综合使用不同控件，实现界面的美观及使用； 4. 实现简单动画。 1 分别用子程序、自定义函数过程计算:3!+5!+7! 实 验 步 骤 程序运行界面 、 程序代码： 心 Subsum(n%) s=1 得 Fori=1Ton 体 s=s*i Next 会 a=s EndSub PrivateSubCommand1_Click() 1 17 第 页 共 页 Vb程序设计实验报告 Callsum(3) a1 =a Callsum(5) a2 =a Callsum(7) a3 =a Text1.Text =a1+a2+a3 EndSub Functionfun(n%) s=1 Fori=1Ton s=s*iNext fun=s EndFunction PrivateSubCommand2_Click() Text2.Text =fun(3)+fun(5)+fun(7) EndSub 2. 编写程序：验证任意一个不超过9位的自然数，经过下述的反复变换最终得 到123。变换方法是：统计该数的各位数字，将偶数数字（0算偶数数字）个数 记为a，奇数数字个数记为b，该数位数记为c；以a为百位数、b 为十位数、c 为个位数，得到一个新数（若a＝0，则以b 为百位数、a为十位数），若这个新 数不是123，再按上述步骤进行变换，直到出现123为止。123被称为陷阱数。 程序运行界面 2 17 第 页 共 页 Vb程序设计实验报告 程序运行界面 程序代码： PrivateSubCommand1_Click() n=Val(Text1.Text) DoWhilen123 Dima%,b%,c%,i% List1.AddItemn c =Len(n) a=0 b=0