سؤال: تميز الأحرف بغض النظر عن حجم الحرف

لا يوجد حل

بعد وضع اداة تكست بوكس لكتابة الجملة ضع اداة ليست بوكس وزر لعمل تحليل الاحرف

	Private Sub Button1_Click(..) Handles Button1.Click
		Dim index, lN, tn As Integer
		Dim s, L As String
		Dim cha(26) As Integer
		s = (Me.TextBox1.Text).ToUpper
		For lN = 1 To s.Length
			L = s.Substring(lN - 1, 1)
			If (L >= "A") And (L <= "Z") Then
				index = Asc(L) - 64
				cha(index) += 1
			End If
		Next
		Me.ListBox1.Items.Clear()
		For index = 1 To 26
			L = Chr(index + 64)
			If cha(index) > 0 Then
				Me.ListBox1.Items.Add(L & "   " & cha(index))
			End If
		Next
		For lN = 1 To s.Length
			L = s.Substring(lN - 1, 1)
			If L = " " Then
				tn += 1
			End If
		Next
		Me.ListBox1.Items.Add("Space" & "  " & tn)
	End Sub
End Class

مثال في المرفقات

____________.zip