Fucoes publicas
1113 palavras
5 páginas
Public Class Form1 Dim espaços As IntegerPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim nomes As String 'tirar espaços
nomes = TextBox1.Text TextBox2.Text = TextBox1.Text.Trim
Label6.Text = Len(TextBox1.Text)
'contar espaços espaços = 0
For i = 0 To Len(TextBox1.Text) - 1 If TextBox1.Text(i) = " " Then espaços += 1
End If
Next Label7.Text = espaços
'contar maisculas e minusculas Dim mais, min As Integer mais = 0 min = 0
For i = 0 To nomes.Length - 1
If Asc(TextBox1.Text(i)) >= 97 And Asc(TextBox1.Text(i)) = 65 And Asc(TextBox1.Text(i)
Public Class Form1 Dim espaços As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim nomes As String 'tirar espaços
nomes = TextBox1.Text TextBox2.Text = TextBox1.Text.Trim
Label6.Text = Len(TextBox1.Text)
'contar espaços espaços = 0
For i = 0 To Len(TextBox1.Text) - 1 If TextBox1.Text(i) = " " Then espaços += 1
End If
Next Label7.Text = espaços
'contar maisculas e