КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Данные строкового типа
End Sub End Function End Sub 'Функция вычисления суммы n элементов массива m. 'Формальные параметры: n – количество элементов массива,m - массив Private Function Sum(n As Integer, m) As Integer Dim i As Integer Sum = 0 For i = 0 To n - 1 Sum = Sum + m(i) Next i
Private Sub Command1_Click() Dim i As Integer n = Val(Text1.Text) 'Количество элементов массивов ReDim a(n) 'Задание количества элементов массива a ReDim b(n) ' Задание количества элементов массива b 'Обращение к процедуре. Фактические параметры: промежуток [-10,10], n – количество 'элементов массива, x - массив Vd -10, 10, n, x Vd -5, 5, n, y 'Вычисление значения результата. Sum(n, a) – обращение к функции. Фактические 'параметры: n – количество 'элементов массива, a - массив Text3.Text = Str(Sum(n, x)* Sum(n, y) / (Sum(n, x)+ Sum(n, y))) Здесь дважды вызывается процедура Vd(a As Integer,b As Integer,n As Integer, x) заполнения массива случайными числами. Первый раз в нее передаются фактические значения для формальных параметров a, b и n соответственно равные –10, 10, n, при этом результат сохраняется как значение переменной массива x. Во второй раз передаются значения параметров –5, 5, n, а результат сохраняется как значение переменной массива y. Функция Sum(n As Integer, x) As Integer вызывается в операторе присваивания при вычислении искомого значения S. В реальных задачах часто встречаются объекты символьного типа – строки. Строка трактуется как последовательность символов. В состав строки могут входить буквы латинского алфавита, кириллица, цифры, всевозможные знаки, скобки, пробел и др. Каждый символ строки занимает 1 байт памяти (десятичный код от 0 до 255, зафиксированный в кодовой таблице ASCII). Фрагмент таблицы символьной кодировки ASCII Количество символов в строке называется ее длиной. Пустая строка имеет нулевую длину. Строковая константа – последовательность символов, заключенных в двойные кавычки. Например: ”Это строковая константа”, ”123”. Таким образом, при использовании в выражениях строка обязательно заключается в кавычки. Два следующих друг за другом апострофа (””), обозначают пустую строку, т.е. строку с нулевой длиной. Различают строки переменной и фиксированной длины. Строки переменной длины могут иметь длину до 2 Гбайт. Когда такой переменной присваивается значение, то размер переменной изменяется так, чтобы он соответствовал длине присвоенного строкового значения. Строка фиксированной длины – это строка постоянного размера, указанного при объявлении переменной. Если такой строке присваивается более длинное значение, то лишние символы отбрасываются, а если более короткое значение, то оставшееся справа место заполняется пробелами. Строковые переменные фиксированной длины должны объявляться явно. Формат описания строковой переменой переменной длины:
Формат описания строковой переменой фиксированной длины:
Например: Dim St As string
Дата добавления: 2014-11-16; Просмотров: 419; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |