VB作业求帮助 身高是Text1 体重是Text2 显示的是Label3_百度知道
VB作业求帮助 身高是Text1 体重是Text2 显示的是Label3
一、理解任务国际上常用的体重计算公式（适合东方人）
标准体重=(身高cm-100)*0.9(kg)
偏瘦：体重&标准体重*0.9
超 重：体重&标准体重*1.1
正常体重：标准体重*0.9&=体重&=标准体重*1.1算法要求
输入某一同学的身高与体重，计算出他的标准体重，然后根据标准体重来判断该同学是属于“偏瘦”“超重”还是“正常体重”，如果是正常体重则输出“恭喜你身材不错！”，如果超重则输出“要加强锻炼！”，如果是偏瘦则输出“要增加营养！”二、完善代码Private Sub Command1_Click()Dim h As Single
'该变量用于存储身高值Dim w As Single
'该变量用于存储体重Dim b As Single
'该变量用于存储标准体重End Sub******************************************************************************Private Sub Text1_Click()
'清空上次运行留下的痕迹End Sub
提问者采纳
Private&Sub&Command1_Click()Dim&h&As&SingleDim&w&As&SingleDim&b&As&Singleh&=&Val(Text1.Text)w&=&Val(Text2.Text)b&=&(h&-&100)&*&0.9If&w&&&b&*&0.9&Then&&&&Label3.Caption&=&&要增加营养!&ElseIf&w&&&b&*&1.1&Then&&&&Label3.Caption&=&&要加强锻炼!&Else&&&&Label3.Caption&=&&恭喜你身材不错!&End&IfEnd&SubPrivate&Sub&Text1_Click()Text1.Text&=&&&Text2.Text&=&&&Label3.Caption&=&&&End&Sub
提问者评价
其他类似问题
为您推荐：
其他1条回答
这.....这么简单，还是自己想吧......（我就是自学的都觉得不难..）
帮忙一下吧
额......Option&Explicit&dim&SGdim&TZ&dim&Hdim&Wdim&b&SG&=&inputbox(&&)TZ&=&inputbox(&&)&if&SG*0.81&-&81&&TZ&thenMsgbox&&要增加营养&elseif&SG*0.9&-&90&=&TZ&thenmsgbox&&恭喜你身材不错&elseif&SG*1.1&-110&&&TZ&thenmsgbox&&要加强锻炼&end&if&这代码弱爆了.....你要么就自己改写，要么就保存为控制台*.VBS！......
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁2010VB本科期末上机考试练习题答案_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
2010VB本科期末上机考试练习题答案
答​案
阅读已结束，如果下载本文需要使用
想免费下载本文？
你可能喜欢vb text字体颜色,样式如何原样显示在label中
vb text字体颜色,样式如何原样显示在label中 15
Label1.ForeColor = Text1.ForeColorLabel1.Caption = Text1.TextLabel1.Font = Text1.Font
把文本框的属性全部赋给label标签
的感言：\非常感谢 相关知识
相关知识等待您来回答
编程领域专家
& &SOGOU - 京ICP证050897号vb2010如何在windowsmediaplayer结束以后触发下一个事件？比如，结束以后label1.text=&天气不错”谢谢啦_百度知道
vb2010如何在windowsmediaplayer结束以后触发下一个事件？比如，结束以后label1.text=&天气不错”谢谢啦
假设该控件名为axWindowsMediaPlayer1。该控件有一PlayStateChange事件，触发该事件时检查axWindowsMediaPlayer1.playState或e.newState是否为WMPLib.WMPPlayState.wmppsMediaEnded，如是，再执行你的代码。WMP控件需要依赖WMP，其实有一些更好的方案的，比如说bass（播放绝大多数格式音乐），DirectShow（调用系统自带解码器）等等。
其他类似问题
为您推荐：
windowsmediaplayer的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁求 翻译粤语 杨千嬅 处处吻 汉字谐音歌词。不要粤语拼音跪求 大神 好人 一生平安 身体健康 万事如意_百度知道
求 翻译粤语 杨千嬅 处处吻 汉字谐音歌词。不要粤语拼音跪求 大神 好人 一生平安 身体健康 万事如意
提问者采纳
内爱一们可晕吧爱音林咋为狼单色怕手音内爱喽过会所催敢们某喽音比得比有粉后刚内以爱比内宅喝宅内次发饭哼给够发粉骗被oh~内宅薄弄择群先有黑跟他给出他于她宅呀黑内修森有们斌定斗总森呀们变够呀过音卡内怎够得忒们中为宅亏卡某音呀们变头呀个森呀们比撒呀给银呀存们刚呀纯跟呀某给亏得为很
提问者评价
其他类似问题
为您推荐：
粤语拼音的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}