Fájl létrehozása
Új project létrehozásához válasszuk a File menü New parancsát. A megjelenő New project párbeszédpanelen válasszuk a Standard EXE elemet.
A forrásprogram begépeléséhez válasszuk a View menü Code parancsát. A megjelenő project Object listájából válasszuk a Form elemet, és gépeljük be a forráskódot.
Példaprogram forráskódja
Private Sub Form_Load()
'Változók deklarálása
Dim a As Double, k As Double, t As Double, m As Double
'A háromszög oldalának beolvasása
a = Val(InputBox("Adja meg az egyenlőszárú háromszög oldalát!", )"Háromszög")
'A háromszög kerületének kiszámítása
k = 3 * a
'A háromszög magasságának kiszámítása
m = Sqr(a ^ 2 - (a / 2) ^ 2)
'A háromszög területének kiszámítása
t = a * m / 2
' Eredmények kiíratása az űrlap szövegdobozaiba
Text1 = k
Text2 = t
Text3 = m
End Sub
21. századi közoktatás - fejlesztés, koordináció (TÁMOP-3.1.1-08/1-2008-0002)
