中职电子与信息：VB技能模块模拟考题9.docx

《中职电子与信息：VB技能模块模拟考题9.docx》由会员分享，可在线阅读，更多相关《中职电子与信息：VB技能模块模拟考题9.docx（1页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、VB技能模块模拟考题九.编写一个身高体重计算公式（东方人的标准）程序：BMI指数：男性:=（身高 CM 100） *0.9 （kg）女性：=（身高 CM 100） *0.9 （kg） -2.5正常体重：BMI +-10%超重：大于BMI 10%,小于20%轻度肥胖：大于BMI 20%,小于30%中度肥胖：大于BMI 30%,小于50%重度肥胖：大于BMI 50%操作要求：（1）编写“测试”事件.求园周率的数列为：要求当第n项的值小于或等于10-7时，求的近似值。操作要求：（1） 完成“圆周率”单击事件的（1）、（2）、（3）、（4）相应代码填空；单击“圆周率”按钮，结 果在标签1上显示如图2所

2、示Dim pi#, n&, s# s = 0Do Until 39cm 29cm的三种规格的短料，在三种规格 至少各截1根的前提下，如何截取才能使所余下的材料最少？ 操作要求：(1)创建如图3的界面，设置相应的属性；(三个文本框只能显示)(2)单击“截取最少”按钮，修改相应的代码，运行结果如图3；口钢筋截取最少, MlfW69cM钢筋39cM钢筋29cM钢筋当取各文本框的值时|厂 F F厂鲤邀豆1所余下的材料为kmPrivate Sub commandl_click()Dim a%, b%, c%, min!, x% min =For a = 1 To 8For b = 1 To 15For c = 1 To x = 600 - 69 * a - 39 * b - 29 * cIf min x And x = 0 ThenText 1.Text = aText 2.Text = bText3.Text = End IfNext cNext bNext alabel4.Caption =End Sub