Open je rekenmachine Visual Basic -project . Het project moet deCommandButton besturingselementen bevatten voor cijfers " 0 " tot en met " 9 ", een knop voor het teken van het nummer , een decimaal knop , een duidelijke knop , een gelijk -knop en knoppen om de gespecificeerde wiskundige bewerking uit te voeren . Kopen van 2

Declareer een variabele type " Double" te houden de eerste ingevoerde waarde en het tweede ingevoerde waarde , indien nog niet verklaard . Maak de variabele "prive " naar het formulier . Ook zeker er boolean variabelen verklaard om te weten wat voor soort operatie wordt uitgevoerd . Een boolean waarde is waar of onwaar .

Dim Prive DFirst
als Double

Dim Prive dSecond
als Double

Dim badd
als Boolean Dim

bSubtract
als boolean

Store 3 de cijfers aangeklikt in de " DFirst " variabele in de gebeurtenis click van de wiskundige operator . Ook vastleggen welke bewerking knop is geselecteerd en stel de boolean waarde . Bijvoorbeeld , als de " toevoeging "-knop is geklikt , ingesteld badd op "true ". Als de bedieningstoetsen werden gedefinieerd in een array , zou de code er zo uitzien :

Select case index

Case 0

bDivision
= True

Case
1

bMultiply = True

Case 2

bSubtract = True

Case
3

badd
= True

End
Selecteer

Store 4 de tweede waarde aangegaan " bSecond " en schrijf dan een " Als Verklaring " om de operatie op de twee cijfers uit te voeren en het resultaat weer in het " gelijk " knop click event code . De " Als Statement" wordt geschreven als " Als badd Dan txtResult.text = DFirst + dSecond

End
Als " waar " txtResult " is deTextBoxbesturingselement aan de bovenkant van het formulier .
< br >