帮忙用VB编一单位换算的小程序

来源：百度知道 编辑：UC知道 时间：2024/06/04 18:42:06
帮忙编一个小程序

在文本框里输入数字a，当a大于500，小于2000时，执行①，否则执行②
①，a*0.22
②，a*4.55

由于学习VB要太长时间，小弟分不多，好心人有空做一下发到我邮箱谢谢

chennianlei@qq.com

发了请附带百度用户名，重谢！！！

Option Explicit
Private a&
Private Sub Text1_Change()
a = Val(Text1.Text)
If a > 500 Or a < 200 Then Text2.Text = Str(a * 0.22) Else Text2.Text = Str(a * 4.55)

End Sub
已发到你的邮箱。

给你发邮件了哦 不知道符合不符合你的要求 需要改动的话可以邮件我 ：）

发了。