首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

看IF方法怎样才能成立?该如何处理

2012-03-25 
看IF方法怎样才能成立?Text18 Combo1 Text28If Text1.Text & Combo1.Text & Text2.Text Then Ms

看IF方法怎样才能成立?
Text1="8" Combo1="=" Text2="8" 
If Text1.Text & Combo1.Text & Text2.Text Then MsgBox "?????" 
以上代码我测试不成立
用什么办法可以实现此功能
请高手指教。

[解决办法]
在Text1和Text2填入数字,Text3填入关系(=、>、<、>=、<=、<>)
Text4输出比较结果

VB code
Private Sub Command1_Click()  Dim tCheck As Boolean  Dim tOutBool As Boolean  tCheck = IsNumeric(Text1.Text) And IsNumeric(Text2.Text)  If tCheck Then    tOutBool = (InStr(Text3.Text, "=") And CLng(Text1.Text) = CLng(Text2.Text)) Or (InStr(Text3.Text, ">") And CLng(Text1.Text) > CLng(Text2.Text)) Or (InStr(Text3.Text, "<") And CLng(Text1.Text) < CLng(Text2.Text))  End If  Text4.Text = tOutBoolEnd Sub 

热点排行