← Апрель 2024 | ||||||
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
|
29
|
30
|
Рассылка посвящена программированию на Visual Basic, постоянно обновляемые статьи, примеры, и многое другое поможет вам постигнуть язык Visual Basic! Будет интересен как новичкам, так и гуру. Для новичков будут уроки и книги легкие в понимании.
Статистика
0 за неделю
Задача о Мише и Маше
Задача о Мише и Маше 2009-12-14 07:00 Александр Задача о Мише и Маше У Миши не хватало на покупку букваря 6 копеек, а у Маши одной копейки. Они сложились, но всё равно не смогли купить букварь. Сколько стоил букварь и сколько денег было у Миши и у Маши? Dim X, Z, Y, W As Byte Sub Command1_Click) X = InputBox"Введите количество денег у Пети, "Ввод денег) Z = X + ] ...
Программирование на 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-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-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-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 ] ...
Программирование на 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 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...
Программирование на 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 делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Программирование на 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 делает анонс свежих тем. Если у Вас есть вопросы - задавате их на нашем форуме. Не умеете решать задачи? Нужно решить курсовую? З...
Вычислить сумму элементов матрицы В(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 "Сумма элементов матрицы, стоящих над главной диагональю ] ...