内容发布更新时间 : 2025/12/22 1:09:19星期一 下面是文章的全部内容请认真阅读。
《VB程序设计》实验单元一 实验报告 专业班级：姓名学号指导教师：完成时间：2013/4/ 一、实验题目 二、实验环境 三、实验目的 四、实验内容 五、实验步骤 六、实验结果 实验体会 一实验题目 （1）一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满30天为止；而陌生人每天给富翁一分钱，第二天2分，第三天4分，。。。。。。富翁每天给陌生人的钱是前一天的2倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？ （2）用计算机安排考试日程。期末某专业在周一到周六的六天时间内要考x,y,z三门课，考试顺序为，先考x，再考y,最后考z，规定一天只能考一门，且z课程只能安排在周五或周六考。编写程序安排考试日程，要求列出满足条件的所有-来源网络，仅供个人学习参考 方案。 二实验环境 在宿舍用自己的电脑做出的 三实验目的 1掌握for语句的使用。 2掌握do语句的形式使用。 3掌握如何控制循环条件，防止死循环或不循环。 四、实验内容 （1）一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满30天为止；而陌生人每天给富翁一分钱，第二天2分，第三天4分，。。。。。。富翁每天给陌生人的钱是前一天的2倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？ （2）用计算机安排考试日程。期末某专业在周一到周六的六天时间内要考x,y,z三门课，考试顺序为，先考x，再考y,最后考z，规定一天只能考一门，且z课程只能安排在周五或周六考。编写程序安排考试日程，要求列出满足条件的所有方案 （1）一个富翁试图与陌生人做一笔换钱生意，换钱规则为：陌生人每天给富翁10万元钱，直到满30天为止；而陌生人每天给富翁一分钱，第二天2分，第三天4分，。。。。。。富翁每天给陌生人的钱是前一天的2倍，直到满一个月。分别显示富翁给陌生人的钱和陌生人给富翁的钱为多少？ -来源网络，仅供个人学习参考 （2）用计算机安排考试日程。期末某专业在周一到周六的六天时间内要考x,y,z三门课，考试顺序为，先考x，再考y,最后考z，规定一天只能考一门，且z课程只能安排在周五或周六考。编写程序安排考试日程，要求列出满足条件的所有方案 五、实验步骤 （1）privatesubform-click() Dimx%;y%;z%,w% Printx=0.01;y=1;z=1 Dowhiley<30 X=2*x Y=y+1 Z=z+x Loop Printz=”陌生人给富翁的钱” W=10*30=300 Printw=”富翁给陌生人的钱” （2）privatesubcommand1-() ForI=1to6 Forj=1to6 Forl=5to6 IfIlj;andjllthen“a”;”i”;b”j”l; Nextl Nextj Nexti Endsub -来源网络，仅供个人学习参考