Отправляет 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 за неделю
←   Все выпуски   →

Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3



Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3
2011-09-21 15:53 Александр
Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел If num(i) > 0 And num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And num(i) / 3 = Int(num(i) / [...]

Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3
2011-09-21 15:54 Александр
Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For i = 0 To x ' x - кол-во чисел всего, а num(i) = масив ваших чисел If num(i) > 20 And num(i) < 100 And num(i) = Int(num(i)) And (num(i) Mod 3) = 0 Then ' проверка [...]

Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3
2011-09-21 15:55 Александр
Найти сумму целых положительных чисел больших 20, меньших 100 и кратных 3 For x = 21 to x = 99 step 3 itog = itog + x Next x

Указать сколько раз встречается буквенное сочетание
2011-09-21 15:56 Александр
Указать сколько раз встречается буквенное сочетание Private Sub Command1_Click() Dim i As Long, j As Long Dim StText As String, StrTemp As String StText = Text1.Text StrTemp = Text2.Text For i = 1 To Len(StText) [...]

Сформировать вектор содержащий диагональные элементы матрицы
2011-09-21 15:58 Александр
Сформировать вектор содержащий диагональные элементы матрицы Dim i As Integer, j As Integer, m As Integer, z As Integer, Max As Integer Dim A(6, 6) As Integer, B(6) As Integer Private Sub Command1_Click() ' построение матрицы For i = 0 To 5 For j = 0 To 5 A(i, j) = Int(8 * Rnd + 1) Picture1.Print A(i, j); Next j Picture1.Print Next i Call diagonal [...]

Кривая Коха – как правильно построить рекурсию
2011-09-21 15:59 Александр
Кривая Коха – как правильно построить рекурсию Private Sub Command1_Click() Cls Kohh Text1.Text, 0, Me.ScaleHeight - 10 * Screen.TwipsPerPixelY, _ Me.ScaleWidth, Me.ScaleHeight - 10 * Screen.TwipsPerPixelY End Sub Private Sub Kohh(NumIt As Integer, x1&, y1&, x2&, y2&) [...]

Кривая Коха – как правильно построить рекурсию
2011-09-21 15:59 Александр
Кривая Коха – как правильно построить рекурсию Option Explicit Dim L, h, xstart, ystart, xend, yend As Double Dim level As Integer Private Sub scaling(xstart, ystart, xend, yend) Picture1.Scale (-xstart, xstart)-(xstart, -xstart) Picture1.DrawWidth = 2 End Sub Private Sub Command1_Click() xstart = -10: ystart = 0: xend = 10: yend = 0: level = Val(Text1.Text) If level < = 0 Or level > 10 Then [...]

Четные числа увеличить в 2 раза, а нечетные – уменьшить на min элемент
2011-09-21 16:01 Александр
Четные числа увеличить в 2 раза, а нечетные – уменьшить на min элемент Дан одномерный массив A(7). Получить массив B(7) такой, у которого Ai=Bi, четные числа и 0 увеличить в 2 раза, а нечетные – уменьшить на min элемент Private Sub Form_Load() Dim i As Integer, a(7) As Integer, b As Integer, min As Integer, min1 As Integer For [...]
В избранное