Рассылка закрыта
При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.
Вы можете найти рассылки сходной тематики в Каталоге рассылок.
Рассылка посвящена программированию на Visual Basic, постоянно обновляемые статьи, примеры, и многое другое поможет вам постигнуть язык Visual Basic! Будет интересен как новичкам, так и гуру. Для новичков будут уроки и книги легкие в понимании.
Статистика
0 за неделю
Выполнить табулирование функции f(x) на интервале [a, b] с шагом H для m точек
Выполнить табулирование функции f(x) на интервале [a, b] с шагом H для m точек 2009-12-02 07:07 Александр Выполнить табулирование функции f(x) на интервале [a, b] с шагом H для m точек Private Sub Command1_Click) Dim t, A, B, i, H, m, y As Long t = Val(Text1.Text) A = Val(Text2.Text) H = Val(Text3.Text) m = Val(Text4.Text) B = A + (m - 1) * H For i = A To B Step H If i = -t Then y = i ] ...
Программирование на Visual Basic, VB .NET и VBA
Разделы форума: Visual Basic 6.0 Microsoft VB.Net Visual Basic for Applications (VBA) Visual Basic FAQ Другие рассылки, подпишись: Анекдот на каждый день | Видео юмор - смешное бесплатное онлайн видео | Фото Тюмени - фотографии города Тюмень Скачать: Visual Basic , ActiveX , MSDN , видео уроки , утилиты , модули , книги по программированию Форум: Программирование на Visual Basic делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Выполнить сортировку чисел в массиве по возрастанию
Выполнить сортировку чисел в массиве по возрастанию 2009-12-01 07:06 Александр Выполнить сортировку чисел в массиве по возрастанию. Option Explicit Dim vArray, vMid As Long, vBuf As Long 'для QuickSort массив и две переменные следует объявить в General/Declarations Dim cnt_Compares As Long, cnt_Moves As Long Sub Inc(L As Long, Optional D As Long = 1) L = L + D End Sub Sub sort_Пузырьки(vArray) Dim I As Long, J As Long, D ] ...
Программирование на Visual Basic, VB .NET и VBA
Разделы форума: Visual Basic 6.0 Microsoft VB.Net Visual Basic for Applications (VBA) Visual Basic FAQ Другие рассылки, подпишись: Анекдот на каждый день | Видео юмор - смешное бесплатное онлайн видео | Фото Тюмени - фотографии города Тюмень Скачать: Visual Basic , ActiveX , MSDN , видео уроки , утилиты , модули , книги по программированию Форум: Программирование на Visual Basic делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Выделить имя последней папки из полного пути
Выделить имя последней папки из полного пути 2009-11-30 07:09 Александр Выделить имя последней папки из полного пути Dim Names1 'массив имен обрабатываемых папок ВВОД ИСХОДНЫХ ДАННЫХ Names1 = Array "D\Test"C\Test2) 'перечислить имена архивируемых папок Dim Names2(40) 'массив на 40 позиций хранящий имена конечных папок получателя архивных данных Arhiv1"D\Arh" ' -указать место расположение архивов. Наличие и отсутствие слешей в \Arhiv1\ и \Names1 необходимо соблюсти в соответствии с образцом! Dim WSHshell ] ...
Программирование на Visual Basic, VB .NET и VBA
Разделы форума: Visual Basic 6.0 Microsoft VB.Net Visual Basic for Applications (VBA) Visual Basic FAQ Другие рассылки, подпишись: Анекдот на каждый день | Видео юмор - смешное бесплатное онлайн видео | Фото Тюмени - фотографии города Тюмень Скачать: Visual Basic , ActiveX , MSDN , видео уроки , утилиты , модули , книги по программированию Форум: Программирование на Visual Basic делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Вывод по очереди месяцев
Вывод по очереди месяцев 2009-11-29 07:03 Александр Вывод по очереди месяцев Private Sub Command1_Click) Static i& i& = i& + 1 If i& = 13 Then i& = 1 Text1.Text = MonthName(i&) End Sub ...
Вывод по очереди месяцев
Вывод по очереди месяцев 2009-11-28 07:00 Александр Вывод по очереди месяцев Option Explicit 'переменные должны объявляться явно Option Base 1 'массивы начинаются с 1 Dim mesyac) As String 'массив, содерж. месяцы Dim a As Integer 'счетчик Private Sub Command1_Click) a = a + 1 'при каждом нажатии а увел. на единицу If a ...
Вывести числа кратные 3 по убыванию с указанием порядковых номеров
Вывести числа кратные 3 по убыванию с указанием порядковых номеров 2009-11-27 07:00 Александр Вывести числа кратные 3 по убыванию с указанием порядковых номеров Option Explicit `Полное задание: `Ввести массив из N натуральных чисел. Из них вывести только числа кратные 3. _ Вывод чисел должен быть по убыванию их значений с указанием порядковых номеров при вводе. `Пример. `Исходный массив: 6 8 3 5 9 18 4 `Полученный массив: 18(6) 9(5) 6(1) 3(3) Private Sub Command1_Click) Dim i As ] ...
Вывести на экран все четные элементы и определить количество нечетных элементов
Вывести на экран все четные элементы и определить количество нечетных элементов 2009-11-26 07:00 Александр Вывести на экран все четные элементы и определить количество нечетных элементов. 'тоже самое, что уже было предложено - только с вводом количества элементов в InputBox. Результат выводится в окне OUTPUT Sub Main) Dim intMyArray) As Integer Dim intNumItmArray As Integer Dim intResult As Integer = 1 Dim intCnt As Integer Dim sglTmp As Single Dim strResult As String = " Do While strResult = ] ...
