Ejercicios de programación .net (nivel inicial)

Recommendations

Info

Public Class Form1 Private Sub Button1_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cuanto, par, impar, num, mayor, mayors, d As Integer cuanto = Len(TextBox1.Text) TextBox2.Text = cuanto For i = 1 To cuanto Step 1 num = Mid(Val(TextBox1.Text), i, 1) If num Mod (2) = 0 Then par = num + par Else impar = num + impar End If Next TextBox3.Text = par TextBox4.Text = impar TextBox5.Text = par + impar 'mayor For i = 1 To cuanto mayor = Mid(TextBox1.Text, i, 1) If mayor > mayors Then mayors = Mid(TextBox1.Text, i, 1) mayors = mayor End If Next TextBox6.Text = mayors 'menor For i = 1 To cuanto mayor = Mid(TextBox1.Text, i, 1) If mayor < mayors Then mayors = Mid(TextBox1.Text, i, 1) mayors = mayor End If Next TextBox7.Text = mayors 'divisores For i = 1 To Val(TextBox1.Text) Step 1 d = Val(TextBox1.Text) Mod i If d = 0 Then ListBox1.Items.Add(i) End If Next End Sub Leonel Navarrete
Private Sub Button2_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim cuanto, par, impar, num, whi1, mayor, mayors, mayorss, d, d1 As Integer cuanto = Len(TextBox1.Text) TextBox2.Text = cuanto While whi1 < cuanto whi1 += 1 num = Mid(Val(TextBox1.Text), whi1, 1) If num Mod (2) = 0 Then par = num + par Else impar = num + impar End If End While TextBox3.Text = par TextBox4.Text = impar TextBox5.Text = par + impar 'mayor End Sub While mayor < cuanto mayor += 1 mayors = Mid(TextBox1.Text, mayor, 1) If mayors > mayorss Then mayorss = Mid(TextBox1.Text, mayor, 1) mayorss = mayors End If End While TextBox6.Text = mayorss 'menor mayor = 0 While mayor < cuanto mayor += 1 mayors = Mid(TextBox1.Text, mayor, 1) If mayors < mayorss Then mayorss = Mid(TextBox1.Text, mayor, 1) mayorss = mayors End If End While TextBox7.Text = mayorss 'divisores While d1
Page 1 and 2:
NAVARRETE MONTENEGRO ERIK LEONEL Le
Page 3 and 4:
Manipular caracteres con MID Diseñ
Page 5 and 6:
Manipular caracteres con LEFT Dise
Page 7 and 8:
Manipular caracteres con SPACE Dise
Page 9 and 10:
Enlazar Formularios Programación F
Page 11 and 12:
Convertir Caracteres Programación
Page 13 and 14:
EDADES Leonel Navarrete
Page 15 and 16:
Select Case Con LABEL Leonel Navarr
Page 17 and 18:
Usuario y Contraseña Leonel Navarr
Page 19 and 20:
Juego de Cartas Leonel Navarrete
Page 21 and 22:
Funciones Y Procedimientos Leonel N
Page 23 and 24: Funciones Y Procedimientos Leonel N
Page 25 and 26: Propiedades de los objetos Public C
Page 35 and 36: Utilizando un Módulo Public Class
Page 41 and 42: Public Class Form1 Private Sub Butt
Page 43 and 44: Public Class Form2 Private Sub sala
Page 45 and 46: MouseMove Public Class Form4 Privat
Page 47 and 48: Tiempo del día Public Class Form1
Page 49 and 50: Bucle For Public Class Form1 Privat
Page 57 and 58: Public Class Form7 Dim mensual As D
Page 59 and 60: Serie Fibonacci Public Class Form1
Page 63 and 64: Número Primo Public Class Form1 Pr
Page 65 and 66: Public Class Form1 Private Sub Chec
Page 67 and 68: For each Public Class Form1 Private
Page 69 and 70: Vectores sumar pares - impares Publ
Page 71 and 72: Matrices Public Class Form1 Private
Page 73: Aplicación Leonel Navarrete
Page 77 and 78: Private Sub Button4_Click(ByVal sen
Page 81 and 82: While - Do - Do While Public Class
Page 83: Private Sub Button2_Click(ByVal sen
show all

Ejercicios de programación .net (nivel inicial)

Create successful ePaper yourself

Delete template?

Save as template?