|
|
| Другие темы раздела | |
|
VB Перетаскивание объекта по форме и "прилипание" его к другому объекту
https://www.cyberforum.ru/ visual-basic/ thread723105.html вот если взять такой код Private Sub Image3_DragDrop(Source As Control, x As Single, y As Single) 'приклейка Image3.Picture = Source.Picture End Sub Private Sub Image4_MouseDown(button As Integer, shift As Integer, x As Single, y As Single) 'перетаскивание If button = 1 Then Call Image4.Drag(vbBeginDrag) End Sub то он хорошо, приклеивается , но по форме очень не красиво перетаскивается... |
VB При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными При вводе К чисел найдите среднее арифметическое тех из них, которые являются нечетными. BASIC + блок схема Помогите |
| VB Как сохранить изображение, нарисованное в графическом редакторе Пожалуйста помогите! Создаю графический редактор. Я не могу сделать кнопку сохранить,она никак не хочет работать!:( Private Type POINTAPI X As Integer Y As Integer End Type Private Poly() As POINTAPI Dim DblClick https://www.cyberforum.ru/ visual-basic/ thread722978.html |
VB Открыть одну форму, при этом закрыв другую
https://www.cyberforum.ru/ visual-basic/ thread722971.html Здравствуйте! Как создать кнопку, при нажатии на которую окно переключаетса на другое? |
|
VB Создание блок схемы по коду Собственно имеется код: Sub Ket() Dim a () n=Cells (4,2).Vallue Redim a(n) For i=1 To n a(i)=Cells (i+6,1).Vallue Next i k=0 For i=1 To n |
VB Создание кода по блок схеме
https://www.cyberforum.ru/ visual-basic/ thread722813.html Прощу помощи в создании кода VB по данной ниже блок схеме. Код чем проще тем лучше, если можно с комментариями. Заранее благодарю. От меня спасибо + хорошая карма:D |
| VB Сколько раз входят два слова в текст и сколько раз они входят непосредственно друг за другом Дан текст на русском языке и некоторые два слова. Определить, сколько раз они входят в текст и сколько раз они входят непосредственно друг за другом. (Рационально) Добавлено через 27 секунд На вижуал бэйсеке https://www.cyberforum.ru/ visual-basic/ thread722296.html |
Проверить, пересекаются ли треугольники VB На плоскости заданы два треугольника декартовыми координатами своих вершин. Проверьте пересекаются ли эти треугольники. Координаты вершин треугольников обозначаються : x1,y1; x2,y2; x3,y3; x4,y4; x5,y5; x6,y6. |
|
VB Для каждого из чисел проверьте, можно ли его представить в виде суммы степеней двойки
https://www.cyberforum.ru/ visual-basic/ thread722163.html Заданы натуральные числа A, B и C. Для каждого из чисел проверьте, можно ли его представить в виде суммы степеней двойки с показателями степени больше либо равными K. Пожалуйста напишите простеньким кодом. Срочно нужна программа! |
VB Перевести массу из одной единицы измерения в другую
https://www.cyberforum.ru/ visual-basic/ thread722161.html Единицы массы пронумерованы следующим образом: 1 – килограмм, 2 – миллиграмм, 3 – грамм, 4 – тонна, 5 – центнер. Дан номер единицы массы N (целое число в диапазоне 1–5) и масса тела в этих единицах M. Найдите массу тела в единицах массы с номером K. Напишите пожалуйста простенькую программу без функций. |
|
VB Программа тестирования: не работает счетчик правильных ответов Private Sub NextQ_Click() If otv1.Caption = Label3.Caption Or otv2.Caption = Label3.Caption Or otv3.Caption = Label3.Caption Or otv4.Caption = Label3.Caption Then d = d + 1 Else d = d + 0 End If Label1.Caption = d End Sub должно если правильный ответ(тоесть если значения соответствуют) прибавлять +1 к значению, если нет то +0, прибавляет в любом случае +1 в чём ошибка? |
VB Даны две переменные, если значения равны, то присвоить каждому значению ноль Задача следующая. Даны две переменные, если значения равын, то присвоить каждому значению ноль, а если не равны, то сложить их и присвоить. Private Sub CommandButton1_Click() Dim x As Integer Dim z As Integer If x <> z Then F = x + z TextBox1.Text = F TextBox2.Text = F https://www.cyberforum.ru/ visual-basic/ thread721958.html |
|
15141 / 6414 / 1731
Регистрация: 24.09.2011
Сообщений: 9,999
|
|
| 07.12.2012, 22:32 | 0 |
Заполнить порядковыми номерами квадратную матрицу змейкой по диагонали - VB - Ответ 382033607.12.2012, 22:32. Показов 1123. Ответов 1
Метки (Все метки)
Ответ
Пользуйтесь поиском!
Сформировать матрицу особым образом И далее по ссылкам. Вернуться к обсуждению: Заполнить порядковыми номерами квадратную матрицу змейкой по диагонали VB
0
|
|
|
|
| 07.12.2012, 22:32 | |
|
Готовые ответы и решения:
1
Нужно заполнить порядковыми номерами квадратную матрицу NxN по спирали по часовой стрелке Заполнить квадратную матрицу змейкой по диагонали, начиная с элемента matrix[size-1][size-1]
|
| 07.12.2012, 22:32 | |
| 07.12.2012, 22:32 | |
|
Помогаю со студенческими работами здесь
0
Заполнить квадратную матрицу змейкой
Заполнить квадратную матрицу змейкой Заполнить квадратную матрицу змейкой |