Visual Basic _ Aplicatia 7

Aplicatia 7
Sa se construiasca o aplicatie VB.NET tip windows pentru calculul valorii si a valorii totale.
Date cunoscute: cantitate, pret. Se va calcula: valoarea. Nr Crt va fi incrementat automat.
Formule de calcul: Valoare = cantitate * pret
Cerinte: - datele se introduc in casete de dialog (folosind functia InputBox);
- rezultatele se afiseaza in casete de text.

Dim nc As Integer
Dim tval As Double

Private Sub Button1_Click() Handles Button1.Click
Dim cant As Integer
Dim pret As Integer
Dim valoare As Double
Dim r As String = "da"
While UCase(r) = "DA"
nc += 1
cant = InputBox("precizati cantitatea")
pret = InputBox("precizati pretul")
valoare = cant * pret
TextBox1.Text = TextBox1.Text + CStr(nc) + Chr(13) + Chr(10)
TextBox2.Text = TextBox2.Text + CStr(cant) + Chr(13) + Chr(10)
TextBox3.Text = TextBox3.Text + CStr(pret) + Chr(13) + Chr(10)
TextBox4.Text = TextBox4.Text + CStr(valoare) + Chr(13) + Chr(10)
tval += valoare
r = InputBox("Continuati?")
End While
End Sub

Private Sub Button2_Click() Handles Button2.Click
TextBox5.Text = CStr(tval)
End Sub

Private Sub Button3_Click() Handles Button3.Click
End
End Sub