At bruge flere uligheder i Visual Basic , eller " VB ", skriver en række af enkelte uligheder , hver i parentes , så kæden disse uligheder sammen med VB sammenligning operatører. Du kan bruge flere uligheder i "hvis " udsagn " Vælg Case " erklæringer og enhver anden VB erklæring , der fungerer på betingede udtryk. Før du fortsætter med dette projekt , studere VB s betingede operatører og erklæringer. Bemærk, at en af disse aktører , "= ", har en anden anvendelse udover den ene til sammenligning udtryk. Den kan også bruges i udsagn, der tildeler værdier til variabler . Instruktioner
Skriv Multiple Uligheder
1
Indtast VB programmeringsvinduet en parentes udtryk, der indeholder den første af to eller flere uligheder. For eksempel , skriv " ( arter < >" hund " )" for en hypotetisk erklæring sammenligne en variabel "arter " til værdien "hund ".
2
Type efter parentes udtryk fra det foregående trin , en sammenligning operatør , såsom " og " eller "eller ". for eksempel kan det forrige trin udtryk vises nu som " (arter < > " hund " ) eller "
3
Brug trin et instruktion til at skrive en anden parentes ulighed, såsom" ( Øjenfarve < > "blå" ) . "
< br > 4
Indtast et Visual Basic erklæring , der opererer på betingede udtryk til venstre for det komplette sammensatte ulighed du lige blevet færdig . For eksempel skriver dette udtryk : Hej p Hvis (arter < > " hund" ) Or ( Øjenfarve < > "blå" ) Så "
5
Press " F5 " for at køre dit program.
Sample program
6
Åbn Visual Basic udviklingsmiljøet , og klik derefter på " Nyt projekt " linket for at fortælle VB dig ønsker at gøre et nyt projekt. Klik på "Windows form" option på skærmen, der vises for at vælge et projekt med en bruger tilmeldingsblanket .
7.
Klik på " tekstboksen " emne fra " Tools " palette , så træk på brugerens formular for at placere tekstfeltet. Placer en anden tekst feltet nedenfor den første.
8
Klik på en " Button " kontrol fra " Tools " palette , og derefter trække under det andet tekstfelt til at placere en kommandoknap . Dobbeltklik på denne knap for at komme ind i programmerings -vinduet.
9
Indsæt følgende program i vinduet.
Public Sub ValidateApplicant ( ) Dim speciesDim eyecolorspecies = TextBox1.Texteyecolor = TextBox2.TextIf ( arter < > " hund" ) Or ( Øjenfarve < > "blå" ) ThenMsgBox ( "Vi er ked af: . dine arter eller Øjenfarve disqualfies dig fra optagelse i vores program " ) ElseMsgBox ( " , Velkommen til programmet " ) End IfEnd SubPrivate Sub Button1_Click ( ByVal afsender Som System.Object , ByVal e Som System.EventArgs ) Handles Button1.ClickValidateApplicant ( ) End Sub
10
Klik på" , Debug " menuen " Debug " kommando til at køre dit program. Skriv en dyreart i den øverste tekstboks og et øje farve i den anden , og tryk derefter på knappen for at gøre dit program anvende de mange uligheder , du skrev . Dit program vil vise en meddelelse baseret på resultaterne af de uligheder.