2013-07-11 2 views
-5

Если пользователь вводит «A» или «a» .., то вывод будет Apple. Это также будет работать в письмах «B» «C», и поэтому форт ... Где/Как я должен поставить оператора And/or?VB Если оператор AND/OR

Private Sub txtchange_Change() 

If txtchange.Text = "A" Then 
    lbloutput.Caption = "Apple" 

ElseIf txtchange.Text = "B" Then 
    lbloutput.Caption = "Banana" 

ElseIf txtchange.Text = "C" Then 
    lbloutput.Caption = "Cat" 

ElseIf txtchange.Text = "D" Then 
    lbloutput.Caption = "Dog" 

Else 
    lbloutput.Caption = "Not Found" 

End If 


End Sub 
+3

Не думаю, что вам нужно. Почему вы думаете, что делаете? –

+1

Мы не знаем, чего вы пытаетесь выполнить, что очень сложно понять, где вы должны использовать 'And' или' Or'. –

+1

Если бы вместо этого вы спросили: «Как я могу улучшить этот код», я бы указал вам на ['Select ... Case'] (http://msdn.microsoft.com/en-us/library /cy37t14y(v=vs.110).aspx), но, как есть, я согласен с другими, что вопрос очень неясен. –

ответ

1

для простой .. использовать Select Case

Private Sub txtchange_Change() 

Select case Ucase(txtchange.Text) 
case "A" : lbloutput.Caption = "Apple" 
case "B" : lbloutput.Caption = "Banana" 
case "C" : lbloutput.Caption = "Cat" 
case "D" : lbloutput.Caption = "Dog" 
case "RED" : lbloutput.BackColor = RGB(255, 0, 0) 
case Else 
    lbloutput.Caption = "Not Found" 
End Select 

End Sub 
+0

Спасибо :) Я еще не встречал Select Case. Может быть, поэтому. Но спасибо. –

+0

@ KC-Chan .. это не о 'select case' .. это в функции Ucase() .. просто измените ваш с помощью' if ucase (txtchange.Text) = "A" '..' if ucase (txtchange.Text) = «B» '.. и т. Д. – matzone

+0

Я получаю это, пока просматриваю коды. Хе-хе спасибо большое :) –

0

Если txtchange.Text = "A" Или txtchange.Text = "а" Тогда lbloutput.Caption = "Яблоко"

0

Вы можете иметь: Если txtchange.Text = "A" ИЛИ txtchange.Text = "a" Затем lbloutput.Caption = "Apple"