Keskustelu: Koodit: QB: Keskiarvon laskija

*** Aloitus

'  määritykset
DIM Luku1 AS SINGLE  ' Lisää tarvittaessa useampia.
DIM Luku2 AS SINGLE
DIM Summa AS SINGLE
' Toiminta
    INPUT "Syötä luvut:", Luku1, Luku2  ' Lukee luvut
    Summa = Luku1 + Luku2   'Laskee summan
    PRINT "Lukujesi keskiarvo on"; Summa / 2
END

Private Sub Form_Load()
'  määritykset
Dim Luku1 As Single  ' Lisää tarvittaessa useampia.
Dim Luku2 As Single
Dim Summa As Single
' Toiminta
    Luku1 = InputBox("Syötä luku 1:")
    Luku2 = InputBox("Syötä luku 2:") ' Lukee luvut
    Summa = Luku1 + Luku2   'Laskee summan
    MsgBox "Lukujesi keskiarvo on " & Summa / 2
End
End Sub