注册 登录
编程论坛 VB6论坛

小白求助高手用VB6怎样写出下面过程?

jiachengooo 发布于 2018-05-05 14:36, 1823 次点击
在A中〔输入框〕随便输入一个文字,若输入的这个文字=“甲、乙、丙”中其中一个返回1,否则返回0
在B中〔输入框〕随便输入一个文字,若输入的这个文字=“戊、己、庚”中其中一个返回1,否则返回0
点击判断按钮
若 A中的返回结果是1 并且 B中的返回结果是1,则输出“比对成功”
其他情况全部输出“查无信息”


只有本站会员才能查看附件,请 登录
5 回复
#2
wds12018-05-05 15:34
Private Sub Command1_Click()
  bz = 0
  Select Case Text1.Text
  Case "甲", "乙", "丙"
  bz = 1
  Case Else
  bz = 0
  End Select
  Select Case Text2.Text
  Case "戊", "己", "庚"
  bz = bz + 1
  Case Else
  bz = 0
  End Select
  If bz = 2 Then
    MsgBox "配对成功"
  Else
    MsgBox "查无信息"
  End If
End Sub
#3
jiachengooo2018-05-05 21:27
回复 2楼 wds1
谢谢大神
#4
nmti1682018-05-08 19:21
Private Sub Command1_Click()
if  instr("甲乙丙",text1.text)>0 and instr("戊己庚",text2.text)>0 then
   MsgBox "配对成功"
  Else
    MsgBox "查无信息"
  End If
End Sub
#5
wds12018-05-08 21:20

楼上方法更好
#6
jiachengooo2018-05-11 15:51
回复 4楼 nmti168
你好,能不能限制成 只提取 其中一个文字 做比较呢?
1