09-04-18, 01:30 PM
عليك استخدام الدالة PadRight في توليد الكلمات المطلوبة
الكود التالي سوف يعطيك فكرة لكيفية تنفيذ طلبك
الكود التالي سوف يعطيك فكرة لكيفية تنفيذ طلبك
PHP كود :
Dim str As String = "ABCDEFG"
Dim seperator As Char = " "
Dim result As String = ""
Dim i As Integer = 0
While i < str.Length
Dim nextChar As Integer = AscW(str(i))
nextChar += 1
result += str(i).ToString.PadRight(3, ChrW(nextChar))
result += seperator
i += 1
End While
result = result.TrimEnd(seperator)
Retired

