vb文本框输入数值的计算

三个文本框和一个命令按扭,在第一个和第二个文本框中输入带两位小数的数值,如果第二个减第一个的差除以第一个小于0.1,就将第二个乘0.8加0.7乘20并将结果放到第三个框,... 三个文本框和一个命令按扭,在第一个和第二个文本框中输入带两位小数的数值,如果第二个减第一个的差除以第一个小于0.1,就将第二个乘0.8加0.7乘20并将结果放到第三个框,如果第二个减第一个的差除以第一个大于0.1小于0.2,就将就将第二个乘0.8加0.75乘20并将结果放到第三个框,请高手指点在vb中怎么编写代码
请高手指点在vb中怎么编写代码,三个文本框和一个命令按扭,在第一个和第二个文本框中输入带两位小数的数值,点命令按扭,如果第二个减第一个的差除以第一个小于0.1,就将第二个乘0.8加0.7乘20并将结果放到第三个框,如果第二个减第一个的差除以第一个大于0.1小于0.2,就将就将第二个乘0.8加0.75乘20并将结果放到第三个框,请高手指点在vb中怎么编写代码,如果第二个减第一个的差除以第一个大于0.2小于0.3,就将第二个乘0.8加0.8乘20并将结果放到第三个框, 如果第二个减第一个的差除以第一个大于0.3小于0.4,就将第二个乘0.8加0.85乘20并将结果放到第三个框, 如果第二个减第一个的差除以第一个大于0.4小于0.5,就将第二个乘0.8加0.9乘20并将结果放到第三个框,如果第二个减第一个的差除以第一个大于0.5小于0.6,就将第二个乘0.8加0.95乘20并将结果放到第三个框, 如果第二个减第一个的差除以第一个大于0.6小于0.7,就将第二个乘0.8加1乘20并将结果放到第三个框,如果第二个减第一个的差除以第一个大于0.7小于0.8,就将第二个乘0.8加1.05乘20并将结果放到第三个框,如果第二个减第一个的差除以第一个大于0.8小于0.9,就将第二个乘0.8加1.05乘20并将结果放到第三个框,
展开
 我来答
76de1
2010-05-28 · TA获得超过1158个赞
知道小有建树答主
回答量:666
采纳率:100%
帮助的人:493万
展开全部
Dim x,y,z As Double
x=CDbl(Textbox1.text)
y=CDbl(TextBox2.text)
If (y-x)/x<0.1 Then
z=y*0.8+0.7*20
ElseIf(y-x)/x>0.1 and (y-x)/x<0.2 Then
z=y*0.8+0.75*20
Else
MessageBox.Show("重新输入", "范围错误")
End If
TextBox3.text=z.ToString()
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式