VPF::Помогите написать 2 проги на VB - Форум программистов

Code Magister

Дата 13.6.2005, 19:27 (ссылка)

(нет голосов)

Загрузка ...

Magister of Code

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 9.7.2004
Где: Kiev

Репутация: нет
Всего: 1

Помогите с прогами пожалуйста

Задача1:
http://forum.vingrad.ru/index.php?showtopic=55293

Задача2:
http://forum.vingrad.ru/index.php?showtopic=55294

2Moderators: сори, просто оочень надо!

--------------------

Voldemar2004

Дата 14.6.2005, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Цитата(_Slipknot @ 13.6.2005, 19:27)

Помогите с прогами пожалуйста

Так тебе _Slipknot просто 2-ую задачу решить надо?

--------------------

i_i
(';')
(V)

user posted image

Voldemar2004

Дата 14.6.2005, 16:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Для начала так:

Код


Option Explicit
Dim i As Integer, j As Integer

Private Sub Command1_Click()
Dim Matrix(4, 4) As Integer
Dim a As Integer
Dim Max  As Integer
Dim quest As Integer
Dim k As Integer

' вывод основной матрицы
For i = 0 To 4
    For j = 0 To 4
    Randomize
    Matrix(i, j) = Int(Rnd * 10)
    Print "  "; Matrix(i, j);
    Next j
    Print
Next i

Print

Print "Диагональ: "

For i = 0 To 4
    a = Matrix(i, i)
    Print a
Next i

' найдем max
Max = Matrix(4, 4)
For i = 0 To 4
    Do
    If Matrix(i, i) > Max Then Max = Matrix(i, i)
    i = i + 1
    Loop While i < 4
MsgBox ("Max в диагонали = ") & Max

Next i

Print

For i = 0 To 4
a = Matrix(i, i)
    If a = Max Then
    k = i
    End If
    
Next i

Print "Строка, содержащая Max в диагонали:"
    For i = 0 To 4
    Print Matrix(k, i)
    Next i

' какую строку менять:
quest = InputBox("Какую строку переставить? [0-4]: ")
Print "Заданная строка: "
For i = 0 To 4
Print Matrix(quest, i)
Next i

End Sub

--------------------

i_i
(';')
(V)

user posted image

Code Magister

Дата 14.6.2005, 18:29 (ссылка)

(нет голосов)

Загрузка ...

Magister of Code

Профиль
Группа: Участник
Сообщений: 155
Регистрация: 9.7.2004
Где: Kiev

Репутация: нет
Всего: 1

Уже сделал сам, но за решение спасибо.
Кое что подправил в своем, глядя на твое.

--------------------

cardinal

Дата 15.6.2005, 02:33 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Voldemar2004, Randomize в цикле нафиг не нужен...

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

Voldemar2004

Дата 15.6.2005, 11:31 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Цитата(cardinal @ 15.6.2005, 02:33)

Voldemar2004, Randomize в цикле нафиг не нужен...

Че-т не понял, еще раз.

--------------------

i_i
(';')
(V)

user posted image

cardinal

Дата 15.6.2005, 19:49 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Одного раза достаточно.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »