第6章、综合练习.docVIP

4、试编写一个程序，当输入正方形的边长时，输出正方形的周长和面积。 分析问题： 设用bc代表边长，用zc代表周长，用mj代表面积。 周长的公式为：zc=4*bc 面积的公式为：mj=bc*bc 设计算法： 输入周长 zc=4*bc mj=bc*bc 输出周长和面积 编写程序： 启动VB6.0中文版，新建项目，选择“标准EXE” 在工具箱中选择按钮控件，然后在窗体上增加一个按钮控件 按钮控件默认的名称为，修改它的Capiton属性为“求正方形的周长和面积” ，效果如下： 双击按钮控件Command1，产生它的单击事件代码 然后在按钮控件Command1的单击事件中添加代码 Private Sub Command1_Click() Dim bc As Single 边长 Dim zc As Single 周长 Dim mj As Single 面积 bc = Val(InputBox(请输入正方形的边长)) 输入边长 zc = 4 * bc 计算周长 mj = bc * bc 计算面积 Print 周长为： zc 面积为： mj 输出周长和面积 End Sub 效果如下图： 6、从键盘上输入小时、分和秒，把它们转换为秒数并输出。 分析问题： 设用xs代表小时，用fen代表分钟,用miao代表秒，用sum代表转换后的总秒数。 计算公式为：sum=3600*xs+60*fen+miao 设计算法： 输入小时、分和秒的值 sum=3600*xs+60*fen+miao 输出sum的值 编写程序 启动VB6.0中文版，新建项目，选择“标准EXE” 在工具箱中选择按钮控件，然后在窗体上增加一个按钮控件 按钮控件默认的名称为，修改它的Capiton属性为“转换时间”，效果如下： 双击按钮控件Command1，产生它的单击事件代码 然后在按钮控件Command1的单击事件中添加代码 Private Sub Command1_Click() Dim xs As Integer 小时 Dim fen As Integer 分钟 Dim miao As Integer 秒 Dim sum As Integer 转换后的值 xs = InputBox(请输入小时) 输入小时 fen = InputBox(请输入分钟) 输入分钟 miao = InputBox(请输入秒钟) 输入秒钟 sum = 3600 * xs + fen * 60 + miao换算 Print 转换后为 sum 秒 输出换算后的值 End Sub 效果如下图： 5、已知三种水果糖每500克价格分别为10元、12元、16元，为糖果店的营业员设计一个程序，计算顾客购买各种水果糖后一共要付多少钱。 分析问题 设用yi代表第一种水果糖的重量，用er代表第二种水果糖的重量, 用san代表第三种水果糖的重量，用sum代表应付金额。 计算公式为：sum=yi*10/500+er*12/500+san*16/500 设计算法： 输入三种水果糖的重量 sum=yi*10/500+er*12/500+san*16/500 输出sum的值 编写程序 启动VB6.0中文版，新建项目，选择“标准EXE” 在工具箱中选择按钮控件，然后在窗体上增加一个按钮控件 按钮控件默认的名称为，修改它的Capiton属性为“计算水果糖金额”，效果如下： 双击按钮控件Command1，产生它的单击事件代码 然后在按钮控件Command1的单击事件中添加代码 Private Sub Command1_Click() Dim yi As Single 第一种水果糖的重量 Dim er As Single 第二种水果糖的重量 Dim san As Single 第三种水果糖的重量 Dim sum As Single 应付金额 yi = Val(InputBox(请输入第一种水果糖的重量)) 输入第一种水果糖的重量 er = Val(InputBox(请输入第二种水果糖的重量)) 输入第二种水果糖的重量 san = Val(InputBox(请输入第三种水果糖的重量)) 输入第三种水果糖的重量 sum = yi * 10 / 500 + er * 12 / 500 + san * 16 / 500 应付金额 Print 一共需要付 Format(sum, 0.00) 元 输出结果 End Sub 效果如下图：