For å bruke flere ulikheter i Visual Basic, eller " VB, " skriver en serie med enkle ulikheter , hver innenfor parenteser , deretter kjeden disse ulikheter sammen med VB sin sammenligning operatører . Du kan bruke flere ulikheter i "If" utsagn , " Velg case " uttalelser , og eventuelle andre VB uttalelse som opererer på betingede uttrykk . Før du fortsetter med dette prosjektet , studere VB er ​​betinget operatører og uttalelser . Legg merke til at en av disse operatørene , "= ", har en annen bruk foruten en for sammenligning uttrykk. Den kan også brukes i utsagn som tildeler verdier for variablene . Instruksjoner
Skriv Multiple ulikheter
en

Skriv inn VB programmeringsvinduet en parenteser uttrykk som inneholder den første av to eller flere ulikheter . For eksempel " ( arter < > " hund ")" for en hypotetisk uttalelse sammenligne en variabel " arter " til verdien " hund".
2

Type , etter parenteser uttrykk fra det forrige trinnet , en sammenligning operatør , for eksempel " og" eller "eller ". For eksempel kan det forrige trinnet uttrykk nå vises som " (arter < > " hund " ) eller "
3

bruk trinn en instruksjon om å skrive inn en annen parenthesized ulikhet , for eksempel" ( Eyecolor < > "blå" ) . "

4

Skriv inn et Visual Basic uttalelse som opererer på betingede uttrykk til venstre for komplett sammensatt ulikhet du nettopp ferdig . For eksempel inn uttrykket : en p Hvis (arter < > "hund" ) Or ( Eyecolor < > "blå" ) Then "
5

Press "F5 " for å kjøre programmet .
Sample program
6

Åpne Visual Basic utviklingsmiljø , og klikk deretter på " Nytt prosjekt " linken for å fortelle VB deg ønsker å lage et nytt prosjekt . Klikk på " Windows-skjema " på skjermen som ser ut til å velge et prosjekt med en bruker påmeldingsskjema.
7

Klikk på " tekstboksen " element fra " Verktøy"- paletten , deretter dra på brukerens skjema for å plassere tekstboksen . Plasser en annen tekstboks under den første.
8

Klikk på en " Button" kontroll fra " Verktøy"- paletten , deretter drar under den andre tekstboksen for å plassere en kommandoknapp. Dobbeltklikk på den knappen for å gå inn programmeringsvinduet .
9

Lim inn følgende program i vinduet.

Public Sub ValidateApplicant ( ) Dim speciesDim eyecolorspecies = TextBox1.Texteyecolor = TextBox2.TextIf ( arter < > "hund" ) Or ( Eyecolor < > "blå" ) ThenMsgBox ( " beklager : . dine arter eller Eyecolor disqualfies deg fra opptak i vårt program ") ElseMsgBox ( " ; ! Velkommen til programmet ") End IfEnd SubPrivate Sub button1_click ( ByVal avsenderen som System.Object , ByVal e Som System.EventArgs ) Håndtak Button1.ClickValidateApplicant ( ) End Sub
10

Klikk på" ; Debug " menyen er" Debug "-kommandoen for å kjøre programmet . Skriv en dyrearter i den øverste tekstboksen og en øyenfarge i andre , deretter trykker du på knappen for å gjøre programmet gjelder de mange ulikhetene du skrev. Programmet vil vise en melding basert på resultatene av ulikhetene.