Option Explicit

Private Sub Command1_Click()

Dim a, b, c As Integer
Dim i As Integer

a = 0
b = 1

Print b

For i = 2 To 20
    c = a + b
    Print c
    a = b
    b = c
    
Next

End Sub

Private Sub Command2_Click()

On Error GoTo virhe

Dim luku, summa As Integer

Do

    luku = InputBox("Anna jokin luku", "kysely")
    If luku >= 0 Then
        summa = luku + summa
    Else
        MsgBox "vain positiivisia lukuja, kiitos", _
        vbCritical, "HUOMIO!"
    End If
        
Loop Until luku = 0

MsgBox "Syöttämiesi lukujen summa on: " & _
summa, vbInformation, "Vastaus"

Exit Sub
virhe:
MsgBox "nyt mentiin metsään, koitas uudestaan" _
, vbCritical, "VIRHE!"
 

End Sub

Private Sub Command3_Click()

Dim kerrottava, kertoja As Integer

Text1.Text = ""

For kerrottava = 1 To 9
    
    For kertoja = 1 To 10
    
        Text1.Text = Text1.Text & _
        kertoja * kerrottava & " "
    Next
    Text1.Text = Text1.Text & vbCrLf
   
 
    
Next

End Sub