01 | Attribute VB_Name = "mod1Oefeningen" |
02 |
03 | Sub Oefening1() |
04 |
05 | Dim Getal1 |
06 | Dim Getal2 |
07 | Dim Gemiddelde |
08 | |
09 | Getal1 = InputBox("Geef het 1e getal op") |
10 | Getal2 = InputBox("Geef het 2e getal op") |
11 |
12 | Gemiddelde = (Getal1 + Getal2) / 2 |
13 |
14 | MsgBox Gemiddelde |
15 |
16 | End Sub |
17 |
18 | Sub Oefening2() |
19 |
20 | Dim Getal1 As Double |
21 | Dim Getal2 As Double |
22 | Dim Gemiddelde As Double |
23 | |
24 | Getal1 = InputBox("Geef het 1e getal op") |
25 | Getal2 = InputBox("Geef het 2e getal op") |
26 |
27 | Gemiddelde = (Getal1 + Getal2) / 2 |
28 |
29 | MsgBox Gemiddelde |
30 |
31 | End Sub |
32 |
33 | Sub Oefening3() |
34 |
35 | Dim Getal1 As Double |
36 | Dim Getal2 As Double |
37 | Dim Gemiddelde As Double |
38 | |
39 | Getal1 = InputBox("Geef het 1e getal op") |
40 | Getal2 = InputBox("Geef het 2e getal op") |
41 |
42 | Gemiddelde = (Getall + Getal2) / 2 |
43 |
44 | MsgBox Gemiddelde |
45 | |
46 | End Sub |
Download hier het bestand.