كيفية بعثرة أحرف جملة ما ...

السلام عليكم

إليك ذلك...

 Private Sub btnRandomize_Click(ByVal sender As System.Object, _
	ByVal e As System.EventArgs) Handles btnRandomize.Click

		With txtValueToRandom

			' If textbox is empty then exit.
			If .Text = String.Empty Then Return

			' Clear result label.
			lblResult.Text = String.Empty

			' Initialize string var to hold text value.
			Dim strHold As String = .Text

			' Declare random object.
			Dim rnd As New Random

			' Declare rndnum as number.
			Dim rndNum As Integer = 0

			' Make all letter as lower case.
			.Text = .Text.ToLower()

			' Loop until length of text object.
			For i As Integer = 0 To .Text.Length - 1

				' Get rundom number from 0 to text length.
				rndNum = rnd.Next(0, .Text.Length - 1)

				' If the letter is not space letter then add it.
				If Not .Text.Chars(rndNum) = Microsoft.VisualBasic.ChrW(32) Then

					' Assign that letter to result label.
					lblResult.Text &= .Text.Chars(rndNum)

				End If

				' Remove that letter from text object.
				.Text = .Text.Remove(rndNum, 1)

			Next

			' assign the value back to text object.
			.Text = strHold

			' Destroy objects.
			strHold = Nothing
			rnd = Nothing

		End With


	End Sub

الشرح : لكل نص برمجي تم التعليق عليه والغرض منه. بالتوفيق إن شاء الله.

RandomizeWord.rar

جزاك الله خيرا أخي شهاب ...