Отправляет 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
21.09.2011
15:30:29
18:30:15
22
23
24
25
26
27
28
29
30
Автор
BiT

Статистика

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

Определить, является ли дробь периодической



Определить, является ли дробь периодической
2011-09-21 13:26 Александр
Определить, является ли дробь периодической Private Function GetPeriod(str As String) As String Dim arr a = Right(str, Len(str) - InStr(Replace(str, ",", "."), ".")) b = a retValue = "" For w = 0 To Len(b) - 1 retValue = Left(b, w) a = Right(a, Len(b) - w) For i = 1 To Len(a) / 2 flag = True [...]

Получить массив и в нем найти числа больше 7
2011-09-21 13:27 Александр
Получить массив и в нем найти числа больше 7 Private Sub Command1_Click() Dim a() As Integer, I As Integer, J As Integer, k As Integer ReDim a(1 To 23, 1 To 43) k = 0 For I = 1 To 23 For J = 1 To 43 If I > J Then a(I, J) = I If I = J Then a(I, J) [...]

Определения принадлежности точек полигону
2011-09-21 13:28 Александр
Определения принадлежности точек полигону Как идея: закрашивать полигон цветом, а потом проверять цвет точки - если равна цвету полигона, то принадлежит, если нет - не принадлежит. Option Explicit Private Type COORD X As Long Y As Long End Type Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal [...]
В избранное