Nico

part1

Public Class Form1 
Private Sub TextBox2_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox2.TextChanged 
End Sub 

' Asta este o metoda / subrutina (subroutine) care este executata cand apesi pe butonul 1
' din cauza ca specifici "Handles Button1.Click"
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
	Dim number1 As Integer 
	Dim number2 As Integer 
	Dim number5 As Integer 
	Dim number6 As Integer 
	Dim answer As Integer 

	number1 = TextBox1.Text 
	number2 = TextBox2.Text 
	number5 = TextBox5.Text 
	number6 = TextBox6.Text 

    	' aici calculezi suma
	answer = number1 + number2 + number5 + number6 
	' aici scrii suma in textbox
	TextBox3.Text = answer 

    	' aici calcumezi media
	answer = (number1 + number2 + number5 + number6) / 4 
	' aici scrii media in textbox
	TextBox8.Text = answer 

    	' aici calculezi maximul
	answer = Math.Max(Math.Max(number1, number2), Math.max(number5, number6))
	' aici scrii maximul in textbox
	TextBox9.Text = answer
End Sub 

part2

' Asta este o metoda / subrutina (subroutine) care este executata cand apesi pe butonul 2
' din cauza ca specifici "Handles Button2.Click"
' Cand apesi pe butonul 2 se scrie DOAR media in textbox-ul 8
' vezi ca lipsesc calculele care scriu in celelalte textbox-uri
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click 
	Dim number1 As Integer 
	Dim number2 As Integer 
	Dim number5 As Integer 
	Dim number6 As Integer 
	Dim answer As Integer 

	number1 = TextBox1.Text 
	number2 = TextBox2.Text 
	number5 = TextBox5.Text 
	number6 = TextBox6.Text 

    	' aici calcumezi media
	answer = (number1 + number2 + number5 + number6) / 4 
	' aici scrii media in textbox
	TextBox8.Text = answer 
End Sub