Работа со строками
Условие задачи Вводится строка, содержащая целые числа, разделенные одним пробелом. Необходимо сформировать одномерный массив из этих чисел и вычислить минимальный по модулю элемент. 1. Проектируем экранную форму Text. Box 1 Label 1 Command. Button 1 List. Box 1
2. Текст программы Основной модуль Sub lab 6() User. Form 1. Show End Sub
Обработка события «Щелчок по кнопке ОК» Private Sub Command. Button 1_Click() Dim s, l As String, i, j, k, n, am As Integer Dim a(10) As Integer s = Text. Box 1. Text : n = Len(s) j = 0: k = 1 For i = 1 To n If Mid(s, i, 1) = " " Then l = Mid(s, k, i - k): j = j + 1: a(j) = CInt(l): k = i + 1 End If Next i l = Mid(s, k, n - k + 1): j = j + 1: a(j) = CInt(l) For i = 1 To j List. Box 1. Add. Item "a(" + CStr(i) + ")=" + CStr(a(i)) Next i
am = 1 For i = 1 To j If Abs(a(i)) < Abs(a(am)) Then am = i End If Next i List. Box 1. Add. Item " " List. Box 1. Add. Item “минимальный по модулю" List. Box 1. Add. Item CStr(a(am)) End Sub
Пример расчета
Встроенные функции для работы со строками Len (s) – количество символов в строке s LTrim(s) – удаление пробелов в начале строки s RTrim(s) – удаление пробелов в конце строки s Trim(s)– удаление пробелов в начале и в конце строки Space(n) – строка из пробелов длиной n UCase(s) – заглавные буквы LCase(s) – строчные буквы Replace(s, s 1, ) - в строке s замена подстроки s 1 на s 2 Left(s, n) – извлечение из строки s слева n символов Right(s, n) - извлечение из строки s справа n символов Mid(s, k, n) - извлечение из строки s с позиции k n символов
Скачать презентацию Работа со строками Условие задачи Вводится строка
Строки.ppt