Skrive et program som tillater brukere å spesifisere to tall, og deretter bruke dem i programmet til å returnere et resultat kan enkelt oppnås i Visual Basic. De fleste PC- programmer krever en bruker å legge inn informasjon , og en av de beste måtene å gjøre dette på er gjennom et brukervennlig grensesnitt. Du kan legge kontroller til en UI for å fange opp informasjon fra brukeren, for eksempel tekstbokser og knapper . Når du kjører programmet brukeren kan angi et tall i hver tekstboks og klikke en knapp for å få et resultat. Du trenger
Microsoft Visual Studio
Vis flere instruksjoner
en

Launch Microsoft Visual Studio , klikk " Nytt prosjekt " som ligger på den venstre ruten på skjermen , og utvide " Visual Basic" under " Installerte maler ." Klikk " Windows" og dobbeltklikk på " Windows Forms Application " for å opprette et nytt prosjekt med en UI .
2

Dobbeltklikk på " TextBox " til fra " Toolbox" -panelet for å legge til en ny tekstboks kontroll i skjemaet. Legg til en ny tekstboks. Dobbeltklikk på " Button" til fra " Toolbox" -panelet for å legge til en ny knapp kontroll i skjemaet. Dobbeltklikk på " Button1 " for å skape et klikk hendelsen for den knappen
3

Kopier og lim inn følgende kode for å opprette fire nye variabler du vil bruke i programmet : .

Dim firstNum som IntegerDim secondNum som IntegerDim resultat som IntegerDim inputError As Boolean
4

Legg til følgende kode for å sjekke at informasjonen som er angitt i tekstboksen er numerisk og hvis det ikke er tilbake da en feil : en p Hvis ( IsNumeric ( Me.TextBox1.Text ) ) ThenfirstNum = Me.TextBox1.TextElseMessageBox.Show ( "Vennligst skriv inn et tall i boksen 1 " ) inputError = TrueEnd Hvis
5

Kopier og lim inn følgende kode for å sjekke for tidligere feil og fortsette fange nummer angitt i boks nummer to : en p Hvis inputError = False ThenIf ( IsNumeric ( Me.TextBox2.Text ) ) ThensecondNum = Me . TextBox2.TextElseMessageBox.Show ( "Vennligst skriv inn et tall i boksen 2 " ) inputError = TrueEnd IfEnd Hvis
6

Legg til følgende kode for å legge begge tallene og returnere resultatet ved hjelp av en meldingsboks : en p Hvis inputError = False Thenresult = firstNum + secondNumMessageBox.Show ( "The tillegg av disse to tallene er :" & result.ToString ) End If
7

Press "F5 " for å kjøre programmet og skriv inn et tall i hvert av tekstbokser . Klikk " Button1 " for å få resultatet.