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

10.04.2019 Views

Contador de Vocales Leonel Navarrete

Public Class Form1 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged Dim t As String Dim cont As Integer t = TextBox1.Text cont = 0 For i = 1 To Len(t) Step 1 If Mid(TextBox1.Text, i, 1) = "a" Or Mid(TextBox1.Text, i, 1) = "A" Then cont = cont + 1 End If Next TextBox2.Text = cont End Sub Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged Dim t As String Dim cont As Integer t = TextBox1.Text cont = 0 For i = 1 To Len(t) Step 1 If Mid(TextBox1.Text, i, 1) = "e" Or Mid(TextBox1.Text, i, 1) = "E" Then cont = cont + 1 End If Next TextBox2.Text = cont End Sub Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged Dim t As String Dim cont As Integer t = TextBox1.Text cont = 0 For i = 1 To Len(t) Step 1 If Mid(TextBox1.Text, i, 1) = "i" Or Mid(TextBox1.Text, i, 1) = "I" Then cont = cont + 1 End If Next TextBox2.Text = cont End Sub Leonel Navarrete

Contador <strong>de</strong> Vocales<br />

Leonel Navarrete

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!