IMAG0070

BggraHH ■pierw^SbT^ignl B

▼    / Click

□ Public Class Forml

0

Private Suto Buttonl_Click(ByVal sender Dim k, p, w As Double k = CDtal(TextBoxl.Text) p = CDfol(TextBox2.Text) * 0.01 w = CDbl (TextBox3.Text)

Dim raz erg, wartość As Double Dim lata As Integer

System.Object, ByVal e As System.EventArgs) Hand

Forml

fioo

lata ~ 0 Do Uhile k < w

k = k + k * p lata = lata + 1

Loop

w

[l20

c

Labę12.Text = k.ToString £

" £ lata.ToString

121 2

B utton

End Sub