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
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Private Sub CheckBox4_CheckedChanged(ByVal sen<strong>de</strong>r As<br />
System.Object, ByVal e As System.EventArgs) Handles<br />
CheckBox4.CheckedChanged<br />
Dim t As String<br />
Dim cont As Integer<br />
t = TextBox1.Text<br />
cont = 0<br />
For i = 1 To Len(t) Step 1<br />
If Mid(TextBox1.Text, i, 1) = "o" Or<br />
Mid(TextBox1.Text, i, 1) = "O" Then<br />
cont = cont + 1<br />
End If<br />
Next<br />
TextBox2.Text = cont<br />
End Sub<br />
Private Sub CheckBox5_CheckedChanged(ByVal sen<strong>de</strong>r As<br />
System.Object, ByVal e As System.EventArgs) Handles<br />
CheckBox5.CheckedChanged<br />
Dim t As String<br />
Dim cont As Integer<br />
t = TextBox1.Text<br />
cont = 0<br />
For i = 1 To Len(t) Step 1<br />
If Mid(TextBox1.Text, i, 1) = "u" Or<br />
Mid(TextBox1.Text, i, 1) = "U" Then<br />
cont = cont + 1<br />
End If<br />
Next<br />
TextBox2.Text = cont<br />
End Sub<br />
End Class<br />
Leonel Navarrete