Ejercicios de programación .net (nivel inicial)
Se muestra el funcionamiento de los conceptos básicos para programar en .net
Se muestra el funcionamiento de los conceptos básicos para programar en .net
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Private Sub Button2_Click(ByVal sen<strong>de</strong>r As System.Object, ByVal e As System.EventArgs)<br />
Handles Button2.Click<br />
Dim cuanto, par, impar, num, whi1, mayor, mayors, mayorss, d, d1 As Integer<br />
cuanto = Len(TextBox1.Text)<br />
TextBox2.Text = cuanto<br />
While whi1 < cuanto<br />
whi1 += 1<br />
num = Mid(Val(TextBox1.Text), whi1, 1)<br />
If num Mod (2) = 0 Then<br />
par = num + par<br />
Else<br />
impar = num + impar<br />
End If<br />
End While<br />
TextBox3.Text = par<br />
TextBox4.Text = impar<br />
TextBox5.Text = par + impar<br />
'mayor<br />
End Sub<br />
While mayor < cuanto<br />
mayor += 1<br />
mayors = Mid(TextBox1.Text, mayor, 1)<br />
If mayors > mayorss Then<br />
mayorss = Mid(TextBox1.Text, mayor, 1)<br />
mayorss = mayors<br />
End If<br />
End While<br />
TextBox6.Text = mayorss<br />
'menor<br />
mayor = 0<br />
While mayor < cuanto<br />
mayor += 1<br />
mayors = Mid(TextBox1.Text, mayor, 1)<br />
If mayors < mayorss Then<br />
mayorss = Mid(TextBox1.Text, mayor, 1)<br />
mayorss = mayors<br />
End If<br />
End While<br />
TextBox7.Text = mayorss<br />
'divisores<br />
While d1