Gianfranco Barbalace 1 año “B”.  Ingresar un número cualquiera e informar si es positivo, negativo o nulo. C C Número = 0 Número Número > 0 Nulo Verdadero.

1 Gianfranco Barbalace 1 año “B” ...

Author: Héctor Poblete Iglesias

0 downloads 0 Views

1 Gianfranco Barbalace 1 año “B”

2  Ingresar un número cualquiera e informar si es positivo, negativo o nulo. C C Número = 0 Número Número > 0 Nulo Verdadero Positivo Negativo C C Verdadero Falso

4 Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a > 0 Then Label3 = ("El número es positivo") End If If a = 0 Then Label3 = ("El número es nulo") End If If a < 0 Then Label3 = ("el numero es negativo") End If End Sub

5  Ingresar 4 número cualesquiera. Informar el total si todos son positivos. Si no, informar "ingrese números positivos solamente". C C A A B B C C D D A>0 B>0 C>0 D>0 A>0 B>0 C>0 D>0 Ingrese un numero positivo solamente A+B+C+D F F

7 Private Sub CommandButton1_Click() Dim a, b, c, d As Integer a = Val(TextBox1) b = Val(TextBox2) c = Val(TextBox3) d = Val(TextBox4) If a > 0 And b > 0 And c > 0 And d > 0 Then Label5 = a + b + c + d Else Label5 = ("ingrese solamente números positivos") End If End Sub

8  Ingresar dos números cualesquiera. Informar "ambos positivos", "ambos negativos", "primero positivo y segundo no" o "segundo positivo y primero no" C C A A B B ambos positivos A0 B>0 A>0 B0 B0 B0 B 9 { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_9.jpg", "name": "", "description": "", "width": "800" } 10 Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > 0 And b > 0 Then Label1 = ("ambos positivos") End If If a > 0 And b < 0 Then Label1 = ("primero positivo y segundo ") End If If a 0 Then Label1 = ("segundo positivo y primero no") End If If a < 0 And b < 0 Then Label1 = ("ambos negativos") End If End Sub { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_10.jpg", "name": "Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > 0 And b > 0 Then Label1 = ( ambos positivos ) End If If a > 0 And b < 0 Then Label1 = ( primero positivo y segundo ) End If If a 0 Then Label1 = ( segundo positivo y primero no ) End If If a < 0 And b < 0 Then Label1 = ( ambos negativos ) End If End Sub", "description": "Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > 0 And b > 0 Then Label1 = ( ambos positivos ) End If If a > 0 And b < 0 Then Label1 = ( primero positivo y segundo ) End If If a 0 Then Label1 = ( segundo positivo y primero no ) End If If a < 0 And b < 0 Then Label1 = ( ambos negativos ) End If End Sub", "width": "800" } 11  Ingresar dos números enteros cualesquiera. Informar "el primero es mayor que el segundo", "el segundo es mayor que el primero" o "son iguales" según corresponda. C C A A B B A>B A=B F F el primero es mayor que el segundo Son Iguales { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_11.jpg", "name": " Ingresar dos números enteros cualesquiera.", "description": "Informar el primero es mayor que el segundo , el segundo es mayor que el primero o son iguales según corresponda. C C A A B B A>B A=B F F el primero es mayor que el segundo Son Iguales.", "width": "800" } 12 { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_12.jpg", "name": "", "description": "", "width": "800" } 13 Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > b Then Label3 = ("el primero es mayor que el segundo") End If If a < b Then Label3 = ("el segundo es mayor que el primero") End If If a = b Then Label3 = ("son iguales") End If End Sub { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_13.jpg", "name": "Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > b Then Label3 = ( el primero es mayor que el segundo ) End If If a < b Then Label3 = ( el segundo es mayor que el primero ) End If If a = b Then Label3 = ( son iguales ) End If End Sub", "description": "Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > b Then Label3 = ( el primero es mayor que el segundo ) End If If a < b Then Label3 = ( el segundo es mayor que el primero ) End If If a = b Then Label3 = ( son iguales ) End If End Sub", "width": "800" } 14  Ingresar cuatro números cualesquiera, si su suma es mayor a 15 elevarlo al cuadrado, si no, elevarlo al cubo. C C D D C C B B A A A+B+C+ D = R R >15 R*R R < 15 R*R*R F F { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_14.jpg", "name": " Ingresar cuatro números cualesquiera, si su suma es mayor a 15 elevarlo al cuadrado, si no, elevarlo al cubo.", "description": "C C D D C C B B A A A+B+C+ D = R R >15 R*R R < 15 R*R*R F F.", "width": "800" } 15 { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_15.jpg", "name": "", "description": "", "width": "800" } 16 Private Sub CommandButton1_Click() Dim a, b, c, d As Integer a = Val(TextBox1) b = Val(TextBox2) c = Val(TextBox3) d = Val(TextBox4) Label1 = a + b + c + d If (a + b + c + d) > 15 Then Label2 = Label1 * Label1 End If If (a + b + c + d) < 15 Then Label2 = Label1 * Label1 * Label1 End If End Sub { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_16.jpg", "name": "Private Sub CommandButton1_Click() Dim a, b, c, d As Integer a = Val(TextBox1) b = Val(TextBox2) c = Val(TextBox3) d = Val(TextBox4) Label1 = a + b + c + d If (a + b + c + d) > 15 Then Label2 = Label1 * Label1 End If If (a + b + c + d) < 15 Then Label2 = Label1 * Label1 * Label1 End If End Sub", "description": "Private Sub CommandButton1_Click() Dim a, b, c, d As Integer a = Val(TextBox1) b = Val(TextBox2) c = Val(TextBox3) d = Val(TextBox4) Label1 = a + b + c + d If (a + b + c + d) > 15 Then Label2 = Label1 * Label1 End If If (a + b + c + d) < 15 Then Label2 = Label1 * Label1 * Label1 End If End Sub", "width": "800" } 17  Ingresar un número cualquiera e informar si es par o impar C C A = número Si A termina en : 2,4,6,8,0 Si A termina en : 1,3,5,7,9 PAR IMPAR C C { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_17.jpg", "name": " Ingresar un número cualquiera e informar si es par o impar C C A = número Si A termina en : 2,4,6,8,0 Si A termina en : 1,3,5,7,9 PAR IMPAR C C", "description": " Ingresar un número cualquiera e informar si es par o impar C C A = número Si A termina en : 2,4,6,8,0 Si A termina en : 1,3,5,7,9 PAR IMPAR C C", "width": "800" } 18 { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_18.jpg", "name": "", "description": "", "width": "800" } 19 Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a Mod 2 = 0 Then Label1 = ("es par") Else Label1 = ("es impar") End If End Sub { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_19.jpg", "name": "Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a Mod 2 = 0 Then Label1 = ( es par ) Else Label1 = ( es impar ) End If End Sub", "description": "Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a Mod 2 = 0 Then Label1 = ( es par ) Else Label1 = ( es impar ) End If End Sub", "width": "800" } 20  Ingresar dos números, sumarlos e informar si la suma da por resultado un número par o impar. C C A = Número 1 B = Número 2 A + B Resultado termina en 2,4,6,8,0 Resultado termina en 1,3,5,7,9 PAR IMPAR C C { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_20.jpg", "name": " Ingresar dos números, sumarlos e informar si la suma da por resultado un número par o impar.", "description": "C C A = Número 1 B = Número 2 A + B Resultado termina en 2,4,6,8,0 Resultado termina en 1,3,5,7,9 PAR IMPAR C C.", "width": "800" } 21 { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_21.jpg", "name": "", "description": "", "width": "800" } 22 Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) Label5 = a + b If Label5 Mod 2 = o Then Label3 = ("par") Else Label3 = ("inpar") End If End Sub { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_22.jpg", "name": "Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) Label5 = a + b If Label5 Mod 2 = o Then Label3 = ( par ) Else Label3 = ( inpar ) End If End Sub", "description": "Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) Label5 = a + b If Label5 Mod 2 = o Then Label3 = ( par ) Else Label3 = ( inpar ) End If End Sub", "width": "800" } 23  Ingresar un número cualquiera e informar si es positivo y par, positivo impar, negativo par o negativo impar. C C A = Número 1 A >0 A termina en 0,2,4,6,8 Positivo Par Positivo Par SI Positivo Impar Positivo Impar NO A termina en 0,2,4,6,8 NO Negativo Par Negativo Par SI Negativo Impar Negativo Impar NO F F A = 0 Nulo { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_23.jpg", "name": " Ingresar un número cualquiera e informar si es positivo y par, positivo impar, negativo par o negativo impar.", "description": "C C A = Número 1 A >0 A termina en 0,2,4,6,8 Positivo Par Positivo Par SI Positivo Impar Positivo Impar NO A termina en 0,2,4,6,8 NO Negativo Par Negativo Par SI Negativo Impar Negativo Impar NO F F A = 0 Nulo.", "width": "800" } 24 { "@context": "http://schema.org", "@type": "ImageObject", "contentUrl": "http://images.slideplayer.es/29/9505083/slides/slide_24.jpg", "name": "", "description": "", "width": "800" } 25 Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a > 0 And a Mod 2 = 0 Then Label1 = ("es positivo y par") Else Label1 = ("es negativo y impar") End If If a < 0 And a Mod 2 = 0 Then Label1 = ("es negativo y par") End If If a > 0 And a Mod 2 = 1 Then Label1 = ("es positivo impar") End If If a = 0 Then Label1 = ("es nulo") End If End Sub

10 Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > 0 And b > 0 Then Label1 = ("ambos positivos") End If If a > 0 And b < 0 Then Label1 = ("primero positivo y segundo ") End If If a 0 Then Label1 = ("segundo positivo y primero no") End If If a < 0 And b < 0 Then Label1 = ("ambos negativos") End If End Sub

11  Ingresar dos números enteros cualesquiera. Informar "el primero es mayor que el segundo", "el segundo es mayor que el primero" o "son iguales" según corresponda. C C A A B B A>B A=B F F el primero es mayor que el segundo Son Iguales

13 Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) If a > b Then Label3 = ("el primero es mayor que el segundo") End If If a < b Then Label3 = ("el segundo es mayor que el primero") End If If a = b Then Label3 = ("son iguales") End If End Sub

14  Ingresar cuatro números cualesquiera, si su suma es mayor a 15 elevarlo al cuadrado, si no, elevarlo al cubo. C C D D C C B B A A A+B+C+ D = R R >15 R*R R < 15 R*R*R F F

16 Private Sub CommandButton1_Click() Dim a, b, c, d As Integer a = Val(TextBox1) b = Val(TextBox2) c = Val(TextBox3) d = Val(TextBox4) Label1 = a + b + c + d If (a + b + c + d) > 15 Then Label2 = Label1 * Label1 End If If (a + b + c + d) < 15 Then Label2 = Label1 * Label1 * Label1 End If End Sub

17  Ingresar un número cualquiera e informar si es par o impar C C A = número Si A termina en : 2,4,6,8,0 Si A termina en : 1,3,5,7,9 PAR IMPAR C C

19 Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a Mod 2 = 0 Then Label1 = ("es par") Else Label1 = ("es impar") End If End Sub

20  Ingresar dos números, sumarlos e informar si la suma da por resultado un número par o impar. C C A = Número 1 B = Número 2 A + B Resultado termina en 2,4,6,8,0 Resultado termina en 1,3,5,7,9 PAR IMPAR C C

22 Private Sub CommandButton1_Click() Dim a, b As Integer a = Val(TextBox1) b = Val(TextBox2) Label5 = a + b If Label5 Mod 2 = o Then Label3 = ("par") Else Label3 = ("inpar") End If End Sub

23  Ingresar un número cualquiera e informar si es positivo y par, positivo impar, negativo par o negativo impar. C C A = Número 1 A >0 A termina en 0,2,4,6,8 Positivo Par Positivo Par SI Positivo Impar Positivo Impar NO A termina en 0,2,4,6,8 NO Negativo Par Negativo Par SI Negativo Impar Negativo Impar NO F F A = 0 Nulo

25 Private Sub CommandButton1_Click() Dim a As Integer a = Val(TextBox1) If a > 0 And a Mod 2 = 0 Then Label1 = ("es positivo y par") Else Label1 = ("es negativo y impar") End If If a < 0 And a Mod 2 = 0 Then Label1 = ("es negativo y par") End If If a > 0 And a Mod 2 = 1 Then Label1 = ("es positivo impar") End If If a = 0 Then Label1 = ("es nulo") End If End Sub

Gianfranco Barbalace 1 año “B”.  Ingresar un número cualquiera e informar si es positivo, negativo o nulo. C C Número = 0 Número Número > 0 Nulo Verdadero.

Recommend Documents