用VB的方法判断一个人的胖瘦。
答案:2 悬赏:80 手机版
解决时间 2021-01-21 10:04
- 提问者网友：姑娘长的好罪过
- 2021-01-20 23:40
用VB的方法判断一个人的胖瘦。
最佳答案
- 五星知识达人网友：笑迎怀羞
- 2021-01-21 00:15
dim sg as integer
dim tz as long
dim sjtz as long
sg=text1.text
sjtz=text2.text
if sg<166 then tz=sg-100
if sg>=166 and sg<=175 then tz=sg-105
if sg>=176 and sg<=185 then tz=sg-110
if sg>185 then tz=sg-115
s=sjtz/tz
if s>0.05 then
text3.text="胖"
else
text3.text="正常"
endif
dim tz as long
dim sjtz as long
sg=text1.text
sjtz=text2.text
if sg<166 then tz=sg-100
if sg>=166 and sg<=175 then tz=sg-105
if sg>=176 and sg<=185 then tz=sg-110
if sg>185 then tz=sg-115
s=sjtz/tz
if s>0.05 then
text3.text="胖"
else
text3.text="正常"
endif
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯