1 TRABAJO PRACTICO Nº2 Nombre: Ignacio D. Roca

2 Ejercicio Nº 1 TP 2 C numero numero= 0 Numero> 0 negativo f nulo verdadero positivo falso

3 Ejercicio nº1 pantalla

4 Private Sub CommandButton1_Click() Dim número1 As Integer número1 = Val(TextBox1) If número1 = 0 Then Label2 = ("El número es nulo") Else If número1 > 0 Then Label2 = ("El número es Positivo") Else Label2 = ("El número es Negativo") End If

5 Ejercicio nº2 TP 2 C A>0 AND B>0 AND C>0 AND D>0 D f No todos son `positivos A+B+C+D C B A

6 PANTALLA

7 Ejercicio nº3 TP 2 c A B 0

8 PANTALLA

9

10 Ejercicio nº4 TP 2

11 PANTALLA