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

Задача о Мише и Маше

Задача о Мише и Маше 2009-12-14 07:00 Александр Задача о Мише и Маше У Миши не хватало на покупку букваря 6 копеек, а у Маши одной копейки. Они сложились, но всё равно не смогли купить букварь. Сколько стоил букварь и сколько денег было у Миши и у Маши? Dim X, Z, Y, W As Byte Sub Command1_Click) X = InputBox"Введите количество денег у Пети, "Ввод денег) Z = X + ] ...

2009-12-14 09:31:03 + Комментировать

Программирование на 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-14 06:39:46 + Комментировать

Задача о восьми ферзях

Задача о восьми ферзях 2009-12-13 07:39 Александр Задача о восьми ферзях Private field(7, 7) As Integer Private Function UnderAtack(ByVal x As Integer, ByVal y As Integer) As Boolean For i = 0 To 7 ' горизонталь и вертикаль If field(x, i) = 1 Or field(i, y) = 1 Then UnderAtack = True ] ...

2009-12-13 08:30:43 + Комментировать

Задача - попасть конем в данную клетку

Задача - попасть конем в данную клетку 2009-12-12 07:00 Александр Задача - попасть конем в данную клетку Option Explicit Public Type Point X As Long Y As Long End Type Public Jamps(7) As Point Public TryPnts(64) As Point Public ResPnts(64) As Point Public UbResult As Long Public Target As Point ' Любопытства ради, будем считать общее число вызовов Public NumCall ] ...

2009-12-12 09:31:53 + Комментировать

Если рядом равные элементы, то вставить между ними ноль

Если рядом равные элементы, то вставить между ними ноль 2009-12-11 07:00 Александр Если рядом равные элементы, то вставить между ними ноль Public Sub Label1_Click) Form1.Cls Dim n As Byte n = Combo1.Text ReDim a(1 To n) As Integer Print "array A(n" For i = 1 To n a(i) = Rnd * 10 - 5 Form1.Print "a"; i; "; a(i) Next i Dim b) As Integer s = 0 For i = 1 To n-1 s=s+1 ] ...

2009-12-11 09:32:39 + Комментировать

Программирование на 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-11 08:32:49 + Комментировать

Дана таблица среднесуточных температур за февраль

Дана таблица среднесуточных температур за февраль 2009-12-10 07:00 Александр Дана таблица среднесуточных температур за февраль Дана таблица среднесуточных температур за февраль (28 дней. Холодной считается неделя, в которой большинство составляют дни с отрицательной температурой. Месяц считается холодным, если большинство недель были холодными. Определить, каким был февраль. Option Explicit Dim i As Integer Dim q As Integer Dim w As Integer Dim t As Integer Dim iWeekPriority As Integer Dim iTemperatura(1 T...

2009-12-10 08:30:24 + Комментировать

Программирование на 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-10 05:19:28 + Комментировать

Программирование на 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-09 12:53:35 + Комментировать

Вычислить сумму элементов матрицы В(20,20)

Вычислить сумму элементов матрицы В(20,20) 2009-12-09 07:00 Александр Вычислить сумму элементов матрицы В(20,20) Private Sub Command1_Click) Dim B(1 To 20, 1 To 20) As Integer m = o For i = 1 To 20 For j = 1 To 20 B(i, j) = Rnd * 20 + 1 If j > i Then m = m + B(i, j) Print B(i, j); Next j Print Next i Print "Сумма элементов матрицы, стоящих над главной диагональю ] ...

2009-12-09 08:36:08 + Комментировать

Рекомендуем подписаться: