Skrive en standard kalkulator program i Visual Basic er en god øvelse for nybegynnere Visual Basic programmerere . En enkel kalkulator inneholder siffer " 0 " til "9 ", et tegn knapp, en desimal knapp , en klar knapp , en lik knapp og knapper for å utføre addisjon, subtraksjon , multiplikasjon og divisjon . CommandButton kontrollene er plassert på et skjema og minimal koden er skrevet for hver knapp klikkhendelsen for programmet. Resultatene vises i en tekstboks kontroll på toppen av skjemaet. Instruksjoner
en

Åpne din kalkulator Visual Basic-prosjekt . Prosjektet skal inneholde CommandButton kontroller for siffer " 0 " til "9 ", en knapp for antall tegn er et desimaltall knapp , en klar knapp , en lik knapp og knapper for å utføre den angitte matematisk operasjon .
2

Erklærer en variabel type " Double" for å holde den første angis verdien, og den andre verdien inn, hvis det ikke allerede erklært . Gjør variabelen " privat" til skjemaet . Også være sikker på at det er boolske variabler deklarert å vite hvilken type operasjon som blir utført. En boolsk verdi er enten sant eller usant .

Dim Private dFirst som Double

Dim Private dSecond som Double

Dim Badd som Boolean

Dim bSubtract som boolean
3

Oppbevar sifret klikket på i " dFirst " variable i klikkhendelsen av matematisk operator . Også fange opp hvilken operasjon knappen ble valgt og satt den boolsk verdi tilsvarende. For eksempel , hvis " tillegg "-knappen ble klikket , satt Badd til "true ". Hvis betjeningsknappene ble definert i en matrise, vil koden se slik ut : en

Select tilfelle indeksen

Sak 0

bDivision = sant

Tilfelle 1

bMultiply = sant

sak 2

bSubtract = sant

sak 3

Badd = sant

End Velg
4

Oppbevar den andre verdien inngått " bSecond " og deretter skrive en " Hvis Statement" til å utføre operasjonen på de to sifrene og vise resultatet i " lik "-knappen klikkhendelsen kode . Den " Hvis Statement" er skrevet som " Hvis Badd Da txtResult.text = dFirst + dSecond

End If " hvor " txtResult " er TextBox kontroll på toppen av skjemaet.