Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic, VB .NET и VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Февраль 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Автор
BiT

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

Как реализовать перебор всех возможных комбинаций лотереи



Как реализовать перебор всех возможных комбинаций лотереи
2011-02-25 07:25 Александр
Как реализовать перебор всех возможных комбинаций лотереи Option Explicit Dim a() As String, m As Integer Sub Loto(ByVal i As Integer, ByVal n As Integer) For i = i + 1 To m - n + 1 a(n) = i If n > 1 Then Loto i, n - 1 Else [...]

Кривая Коха – как правильно построить рекурсию
2011-02-25 07:26 Александр
Кривая Коха – как правильно построить рекурсию 'Стандартный модуль Option Explicit Public Const He1 As Double = 0.288675134594813 ' 1/(2*корень(3)) Public Type DblPOINT X As Double Y As Double End Type Public Function CrvKoch(begP As DblPOINT, _ [...]

Найти максимальное число среди отрицательных (из 10 чисел)
2011-02-25 07:27 Александр
Найти максимальное число среди отрицательных (из 10 чисел) Option Explicit Private Sub Command1_Click() Dim arr As Variant Dim i As Integer Dim maxOtr As Double arr = Array(25, -8, -12, -3, 26, -52, 100, -115, 9, -2) maxOtr = -1 For i = 0 To UBound(arr) If Sgn(arr(i)) = -1 Then If arr(i) < [...]

Как правильно построить Ковер Серпинского
2011-02-25 07:29 Александр
Как правильно построить Ковер Серпинского Option Explicit Dim xA, yA, xB, yB, xC, yC As Double Dim level As Integer Dim yT As Double Private Sub Command1_Click() Picture1.Cls 'Picture1.Scale (-10, 10)-(10, -10) Picture1.DrawWidth = 2 'xA = -8: yA = -8: xC = 8: yC = -8 xA = 300: yA = Picture1.Height - 300: xC = Picture1.Width - 300: yC = Picture1.Height - 300 level [...]

Создать вектор, содержащий суммы элементов строк массива
2011-02-25 07:31 Александр
Создать вектор, содержащий суммы элементов строк массива Дана матрица A(2,2). Получить из нее вектор, содержащий суммы элементов строк. Отсортировать его в порядке убывания элементов. Создать подпрограмму для вычисления суммы элементов строк. Option Explicit Private Sub Form_Load() Dim i%, j%, m%, z%, Max% Dim A(5, 5) As Integer, B(5) As Integer, S1 As Integer, S2 As [...]

Напечатать в алфавитном порядке все звонкие согласные буквы
2011-02-25 07:33 Александр
Напечатать в алфавитном порядке все звонкие согласные буквы Dim SLOV$() ' массив слов. без размера, размер определяется в программе Dim SOGL$(22) 'массив согласных букв Dim GL$(20) 'массив гласных букв Dim K_S(22) As Integer 'массив встретившихся согласных букв (кол-во букв) Dim K_GL(20) As Integer 'массив встретившихся гласных букв (кол-во букв) Dim N, NSL, NS, NG Dim TXT$ 'весь текст Dim KSL As [...]

Расстояние между двумя городами
2011-02-25 07:35 Александр
Расстояние между двумя городами На форме – кнопка. Подключаемые компоненты – DAO 3.6 Нужна База данных Access в той же папке, что и программа. «Координаты.mdb» с таблицей Координаты: Город Долгота_Градусов Долгота_Минут Долгота_Секунд Широта_Градусов Широта_Минут Широта_Секунд Киев 30 30 0 50 27 0 Йокогама 139 38 0 35 26 0 Москва 37 37 0 55 45 0 Города должны находиться в одном четвертьшарии (например, [...]

Найти минимальное число из квадратов данной последовательности
2011-02-25 07:36 Александр
Найти минимальное число из квадратов данной последовательности Dim arrC(10) 'Объявляем массив Dim Min 'переменная для минимального значения Randomize 'Заполняем массив случайными числами, перебирая в цикле все его элементы For i = LBound(arrC) To UBound(arrC) Step 1 arrC(i) = Int(Rnd * 100) Next i 'Снова перебираем массив (кроме первого элемента, его квадрат первоначально считаем минимальным) и ищем минимальный квадрат Min = arrC(LBound(arrC)) ^ 2 For [...]

Определить день недели
2011-02-25 07:37 Александр
Определить день недели Private Sub Command1_Click() Dim b As Integer Dim otvet As String b = Text1.Text Select Case Combo1.ListIndex Case 0 b = (b - 1) Mod 7 otvet = Combo1.List(b) MsgBox otvet Case 1 b = (b - 0) Mod 7 otvet = Combo1.List(b) [...]

Построения таблицы значений X и Y
2011-02-25 07:38 Александр
Построения таблицы значений X и Y Составить программу для построения таблицы значений X и Y для функции Y=X^3-e^(2*X-1) при изменении X в диапазоне от -5 до 5 с шагом 0.31 В колонках должны быть n, x, y>0, y<0 где n – номер по порядку. Private Sub Command1_Click() Dim x0 As Double [...]
В избранное