Att använda flera ojämlikheter i Visual Basic , eller " VB ", skriver en serie av enskilda ojämlikhet , vardera inom parentes , då kedjan dessa ojämlikheter tillsammans med VB : s jämförelse operatörer . Du kan använda flera ojämlikheter i " Om " uttalanden " Välj mål " uttalanden , och alla andra VB uttalande som fungerar på villkorliga uttryck . Innan du fortsätter med detta projekt studerar VB : s villkorade operatörer och uttalanden . Observera att en av dessa operatörer , " = ", har en annan användning utöver den som för jämförande uttryck . Den kan också användas i uttalanden som tilldelar värden till variabler . Instruktioner
skriv multipla Inequalities
en
Typ i det VB programmeringsfönstret en parentes uttryck som innehåller det första av två eller flera ojämlikheter. Skriv till exempel " ( arter < > " hund " ) " för ett hypotetiskt påstående att jämföra en variabel " art " till värdet " hund . "
2
Type , efter parentes uttrycket från föregående steg , en jämförelse operatör , t.ex. " och " eller " eller ". exempelvis kan det tidigare steget uttryck visas nu som " (arter < > " hund " ) eller "
3
Använd steg en instruktion att skriva en annan parentes ojämlikhet , såsom " ( ögonfärg < > " blå " ) . "
4
Skriv ett Visual Basic uttalande som fungerar på villkorliga uttryck till vänster om den fullständiga föreningen ojämlikhet du just avslutat . Skriv till exempel detta uttryck :
p Om ( arter < > "hund " ) Eller ( ögonfärg < > " blå " ) Then "
5
Press " F5 " för att köra programmet .
Sample program
6
Öppna Visual Basic utvecklingsmiljö, klicka sedan på " New project "-länken för att berätta VB dig vill göra ett nytt projekt . Klicka på " Windows formen " alternativet på skärmen som visas för att välja ett projekt med en användare anmälningsblankett .
7
Klicka på " textrutan " alternativ från " Tools " paletten , sedan drar på användarens formuläret för att placera textrutan . Placera en annan textruta nedanför den första.
8
Klicka en " Button " kontroll från " Verktyg " paletten , dra sedan under den andra textrutan för att placera en kommandoknapp . Dubbelklicka på den knappen för att komma in i programmeringen fönstret .
9
Klistra in följande program i fönstret .
Public Sub ValidateApplicant ( ) Dim speciesDim eyecolorspecies = TextBox1.Texteyecolor = TextBox2.TextIf ( arter < > "hund " ) eller ( ögonfärg < > " blå " ) ThenMsgBox ( " Vi ber om ursäkt : . er art eller ögonfärg disqualfies dig från antagning i vårt program " ) ElseMsgBox ( " , Välkommen till programmet " ) End IfEnd SubPrivate Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e som System.EventArgs ) Hanterar Button1.ClickValidateApplicant ( ) End Sub
10
Klicka på " ; Debug " menyn " Debug " -kommandot för att köra programmet . Skriv en djurart i den övre textrutan och en ögonfärg i den andra , tryck sedan på knappen för att göra ditt program tillämpa flera olikheter du skrev . Ditt program kommer att visa ett meddelande på grundval av resultaten av de ojämlikheter .
