如果x & gt；VB無法連接；=?而x & lt=?然後
私有子命令1_Click()
短信3。Text = Round(Val(Text2。Text / (Text1。正文)^ 2)，2)
尺寸x
圖片1。Cls
x = Val(Text3。正文)
如果20 & lt= x和x & lt那麽= 22
圖片1。打印“最佳”
else if 18.5 & lt；= x和x & lt那就20吧
圖片1。打印“正常”
ElseIf 22 & ltx和x & lt那就24吧
圖片1。打印“正常”
ElseIf x & lt那麽18.5
圖片1。打印“薄”
ElseIf 24 & lt= x和x & lt那就28
圖片1。打印“超重”
其他
圖片1。打印“肥胖”
如果…就會結束
末端接頭