新Visual Basic程序设计实践教程 工业和信息化普通高等教育“十二五”规划教材立项项目 教学课件 王成敏 李忠 第4章.pptVIP

三、实验内容 1．编写程序，单击窗体时输入3个数x，y，z，按从 小到大的顺序依次显示在窗体上。 * 提示： （1）利用InputBox函数输入3个数，存放到数值型的 变量中，然后对其依次进行比较。 （2）对3个数进行排序，只能通过两两比较，一般可 用3条单分支If语句来实现。方法如下： * 先将x和y比较，将较小值存入x，较大值存入y，使得 xy；然后将x和z比较，使得xz，此时x最小；最后将y和 z比较，使得yz。 * 2．编写如图4.2所示的应用程序，计算应缴纳的个人 所得税额，个人所得税缴纳的起点是3500元，个人应缴纳 的税率如表4.1所示。 * * 图4.2　程序运行的参考界面 * 表4.1 个人所得税税率表 3．某商场搞促销活动，在购买物品时，按照所标明 的价格用以下数学公式所对应的折扣付款。编写程序，根 据购买价格计算应付金额。应用程序的参考界面如图4.3所 示。 * * * 图4.3 程序的运行界面 4．编写程序实现用户登录的界面，如图4.4所示。如 果输入密码正确，则弹出登录成功的消息框，否者弹出密 码输入有误的消息框，提醒用户重新输入密码。 提示：程序中涉及到的各个控件的属性可参考表4.2。 读者可以自行假设用户名为“VB”,初始密码为“123456” 。 * * 　图4.4　程序的运行界面 * 表4.2 练习题4的各控件的相关属性 5．乘客乘坐飞机，可免费携带20kg行李，超过20kg需 支付托运费10元，超过50kg部分则每千克需支付20元托运 费。请编写程序根据每位旅客行李的重量计算出其应付的 行李托运费。程序运行的参考界面如图4.5所示。 * * 图4.5 程序的运行界面　 6．编写一个程序，其功能为输入货物的数量及单价 ，求总价，并输出。窗体上的两个标签控件的标题分别为 “货物的数量（个）：”和“货物的单价（元）：”，在两 个文本框中输入相应的数据，当单击“总价”按钮时，在右 下方的图形框中显示原价和折扣价。当原价达到1000元 以上时，按9折计算折扣价；当原价达到2000元以上时 ，按8折计算折扣价。程序运行界面如图4.6所示。 * * 图4.6程序的运行界面 实验2　循环结构程序设计 一、实验目的 1．掌握For…Next语句的使用。 2．掌握Do…Loop语句的各种形式的使用。 3．掌握While…Wend语句的使用。 4．掌握双重循环结构的使用；掌握如何控制循环条件，防 止死循环或者不循环。 * 二、实验示例 【例题4.4】 编程，求1+3+7+…（即自然数中的奇数和 ），当和超过100时，程序结束。求满足条件的最大奇数以 及此时的和。 * 1．分析 （1）For…Next循环要求循环控制变量的初值和终值 是已知的，所以建议此题不要使用此结构，而采用Do…Loop 循环结构来实现。 * （2）使用Do…Loop循环结构时，需要循环结构内部 有语句来实现步长的变化及循环控制条件的变化，当和超 过100时，循环结束。所以循环体内的语句主要为步长变 化语句和累加语句，要特别注意：循环结构内部步长变化 语句和累加语句二者之间的语句次序与初值有关。 * 2．参考程序代码 【例题4.5】 编程计算1！+2!+…+10!，在窗体上显 示计算结果。 1．分析 这是一个经典的连乘和累加的问题，使用单重循环 的控制结构采用递推法进行数列的求和，首先找到递推的 关键是i!=(i-1)!*i，即后一项在前一项的基础上乘以i； 然后计算 。 2．参考程序代码 * 【例题4.6】 在窗体上输出如图4.7所示的九九乘法表。 * 图4.7 程序的运行界面 1．分析 九九乘法表中有许多行，而每一行中有多个式子 ，所以要用循环的嵌套来实现。用外循环结构控制行的 显示，用内循环结构控制列的显示，并且内循环变量的 变化范围和外循环当前的值有关。此题另一个关键是输 出格式的控制，可以使用tab函数或者space函数来控制 数据显示的位置。 2．参考程序代码 * 三、实验内容 1．计算S=a+aa+aaa+aaaa+…+aa…aaa（n个a），其 中a是一个由随机数产生的1～9（包括1和9）中的一个正整 数，n是一个由随机数产生的5～10（包括5和10）中的一个 数。 例如：当a=3，n=5时，则s=3+33+333+3333+3333