VB问题，都来看看吧

问题是这样的，我添加了TEXT1 TEXT2 TEXT3 3个TEXT框，一个LABEL框，一个COMMAND按钮，实现条件如下，TEXT1定义为在60,70,80,90,100,110,120,130,140,150等几个数时，计算结果在LABEL框中显示，TEXT2为自己输入，TEXT3为最终结果显示框，COMMAND按钮定义为LABEL框中数据与输入TEXT2中数据的一个公式。现在实现在60至150时都可以计算。
现在我要定义就是TEXT1框中数据不为这几个数时，在TEXT3框中显示重新输入，我在COMMAND按钮中定义if TEXT1.text<>60 OR 70 OR 80 OR 90 OR 100 OR 110 OR 120 OR 130 OR 140 OR 150，then text3.text=“请重新输入” 为什么在运行的时候无法实现呢拜求... 用了好几种办法了都不行

if text1.text <> xx or text1.text <> YY or... then

回复：2楼
这个我试了也不行我分段位进行定义可是还是不行上手我在通用框中定义了
dim a as intenger
dim b as intenger
dim c as intenger
dim d as intenger
a=text1.text
b=text2.text
c=label1
d=text3.text
可是最后还是运行时变成了不管输入什么都显示为请重新输入求问

简短一些是If IsNumeric(Text1.Text) And InStr("6,7,8,9,10,11,12,13,14,15",Val(Text1.Text) \ 10) > 0 Then '...

Dim a As Integer,b as Integer
a=Val(Text1.Text) \10
b=Val(Text1.Text) Mod 10
If b<>0 Or a<6 Or a>15 Then text3.text=“请重新输入”

if instr("60,70,80,90,100,110,120,130,140,150",text1) then else msgbox ""

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

5回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六