Разработать программу, которая вводит слово с клавиатуры - VB

Узнай цену своей работы

Формулировка задачи:

Разработать программу, которая вводит слово с клавиатуры и переставляет первые три и последние три буквы,сохранив при этом порядок их следования. Реализовать с помощью ОПЕРАТОРА ЦИКЛА. пример: ввод слова корреляция, вывод - циярелякор

Решение задачи: «Разработать программу, которая вводит слово с клавиатуры»

textual
Листинг программы
Option Explicit
    Dim A() As Integer
Sub Swap(A As Integer, b As Integer)
    Dim Temp As Integer
    Temp = A: A = b: b = Temp
End Sub
Sub PushBack(Arr() As Integer, b As Integer)
    On Error Resume Next
    If (Not Arr) = -1 Then ReDim Arr(0) Else ReDim Preserve Arr(UBound(Arr) + 1)
    Arr(UBound(Arr)) = b
End Sub
Function TransformS(Arr() As Integer, Optional ByVal b As Byte = 1) As String
    Dim i As Byte, j As Byte
 
    If (Not Arr) = -1 Then Exit Function Else j = UBound(Arr) - (b - 1)
    If b * 2 < UBound(Arr) Then TransformS = "Короткое слово!": Erase Arr(): Exit Function
 
    For i = LBound(Arr) To UBound(Arr)
        If i < b Then Swap Arr(i), Arr(i + j)
    TransformS = TransformS & Chr(Arr(i))
    Next
End Function
Private Sub Form_Click()
    Cls
    If Text1 = "" Then Erase A()
    Print TransformS(A(), 3)
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    PushBack A(), KeyAscii
End Sub

Оцени полезность:

7   голосов , оценка 4.143 из 5
Похожие ответы