VPF::[VBA] матрица, поиск по цифре - Форум программистов

Guest

Дата 28.11.2005, 18:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

точнее не так!
мне сказали, что я могу вот это оставить:

Код


Option Explicit

Private Sub CommandButton1_Click()
Dim row As Integer
row = 3 'Kol-vo strok
Dim col As Integer
col = 3 'Kol-vo stolbov
Dim number As String
Dim x, y As Integer


For x = 1 To col
    For y = 1 To row
        If (Cells(y, x) = 0) Then
            number = number & x & " "
            Exit For
        End If
    Next y
Next x
MsgBox (number)

End Sub

Но к этому надо еще приделать автозаполнение...

cardinal

Дата 28.11.2005, 18:43 (ссылка)

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

Загрузка ...

Инженер

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

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

Цитата(Guest @ 28.11.2005, 15:52)

может есть какая-нибудь общая схема записи размерности матрици, не знаете?

То есть чтобы ты мог по ходу программы указать определенный размер или как?

Ну так вот тебе автозаполнение smile

Код


Option Explicit

Private Sub CommandButton1_Click()
Dim row As Integer
row = 3 'Kol-vo strok
Dim col As Integer
col = 3 'Kol-vo stolbov
Dim number As String
Dim x, y As Integer


For x = 1 To col
    For y = 1 To row
        Cells(y, x) = Fix(100 * Rnd()) ' автозаполнение
        If (Cells(y, x) = 0) Then
            number = number & x & " "
            Exit For
        End If
    Next y
Next x
MsgBox (number)

End Sub

Ставь в след. раз правильные теги (code = vb)!

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

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

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

Guest

Дата 28.11.2005, 19:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

[/quote]То есть чтобы ты мог по ходу программы указать определенный размер или как?

Цитата

Да, да, да, именно это я и мел ввиду. =))))) можно так сделать(теоретически)?

Ну так вот тебе автозаполнение[quote]

О да, кажется, это то, что нужно! Завтра информатика в инсте... буду попробовать еще раз сдать...=))))

Guest

Дата 29.11.2005, 15:07 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Эх, опять не прокатила прога! =(
В этот раз сказали, что еще меню нужно сделать.
Меня должно быть таким:
нажимаешь единицу - а там должно быть два подменю: предлагается ввсети матрицу вручную или автозаполнение.
нажимаешь двойку - выводится результат, то есть номера столбцов, в которых есть хотя бы один ноль.
любая другая кнопка - выход.
И опять дал что-то типа шаблона, сказал, что надо по образу и подобию cделать...

Код


Sub main()
Dim n as integer, m as integer
while 1
resp=inputbox("1- ... , 2-..... , 3-..... , other - Quit")
Select case resp
n=inputbox("N=")
m=inputbox("M=")
Case 2 
resp=inputbox("1-случайно, 2-самим")
Select case resp
case 1
call entrand(n,m)
case 2
call entself(n,m)
end select
case 3
call diag(n,m)
case else
range(cells(1,1), cells(n,m)).clear
msgbox("Game Is Over")
Exit sub

cardinal

Дата 29.11.2005, 15:22 (ссылка)

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

Загрузка ...

Инженер

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

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

Ну так в чем проблема? Садись, разбирайся, задавай конкретные вопросы или опять все влом? smile

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

Guest

Дата 29.11.2005, 23:33 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Ну не совсем то, чтобы в лом, просто это не для моих мозгов. smile

cardinal, вот вы как вообще считаете, это сложное задание мне дали? По мне, так очень сложное! Мне говорили, что такие задания дают тем, кто учится на програмистов. А я учусь на гуманитарном факультете! smile

И нам дают то же самое, жуть! Хотя когда я поступал, нам говорили, что вся наша информатика будет заключаться в работе с "майкрософт ворд"... Во как нас жестоко обманули! smile

Ну да ладно. Я, кстате, уже один семестр продержался и только благодаря этому форому и добрым его пользователям! smile

Мы тогда помнится C++ проходили... это было не легко, но общими усилиями... smile

Так вот, переходя к программе smile

Я ее кстате немного подкоректировал(это все, что я сам смог сделать) smile

Я убрад Exit For, а то она каждый раз как встретит ноль заканчивает писать цифры после него в данном столбце и еще добавил очищение range(cells(1,1), cells(row,col)).clear
Вот, а сделать меню я сам не смогу. Меня терзают смутные сомнения, что если меню будет предлагать помимо автозаполнения заполнить вручную, то это будет надо менять что-то в главной проге, что-то переделывать, описывать...хотя, может я и ошибаюсь. Вывод такой: нужна помощь! smile

cardinal

Дата 30.11.2005, 02:55 (ссылка)

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

Загрузка ...

Инженер

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

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

Цитата(Guest @ 29.11.2005, 21:33)

Мне говорили, что такие задания дают тем, кто учится на програмистов.

Хм... хм... ну дают. После первой лекции. smile

А потом начинаются разные ужастики smile

, которые с этим всем не сравнить!

Цитата(Guest @ 29.11.2005, 21:33)

вот вы

Можно на "ты". Мы тут все свои. smile

Ладно, держи...

Код


Dim Cells() As Integer

Sub Main()
On Error GoTo x
Dim n As Integer
Dim m As Integer
Dim resp As Integer
While 1
    resp = InputBox("1-размеры, 2-заполнение , 3-диагноз , other - Quit")
    Select Case resp
    Case 1
        n = InputBox("N=")
        m = InputBox("M=")
        ReDim Cells(n, m)
    Case 2
        resp = InputBox("1-случайно, 2-самим, other - случайно")
        Select Case resp
        Case 1
            Call entrand(n, m)
        Case 2
            Call entself(n, m)
        Case Else
            Call entrand(n, m)
        End Select
    Case 3
        Call diag(n, m)
    Case Else
        Call clear(n, m)
        MsgBox ("Game Is Over")
        Exit Sub
    End Select
Wend
x:
Exit Sub
End Sub

Sub clear(n As Integer, m As Integer)
Dim x, y As Integer

For x = 1 To n
    For y = 1 To m
        Cells(x, y) = 0 ' обнуляешь
    Next y
Next x
End Sub

Sub entself(n As Integer, m As Integer)
Dim x, y As Integer

For x = 1 To n
    For y = 1 To m
        Cells(x, y) = InputBox("(" & CStr(x) & " " & CStr(y) & ") = ") ' заполняешь сам
    Next y
Next x
End Sub

Sub entrand(n As Integer, m As Integer)
Dim x, y As Integer
For x = 1 To n
    For y = 1 To m
        Cells(x, y) = Fix(100 * Rnd()) ' автозаполнение
    Next y
Next x
End Sub

Sub diag(n As Integer, m As Integer)
Dim x, y As Integer
Dim number As String
For x = 1 To n
    For y = 1 To m
        If (Cells(x, y) = 0) Then
            number = number & x & " "
            Exit For
        End If
    Next y
Next x
MsgBox (number)
End Sub

Не забудь, что все это в модуль надо засунуть.

Успехов!

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

Guest

Дата 30.11.2005, 08:43 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

ой, а она теперь ищет не столбцы с нулями, а строки... что-то наверно перепуталось...

cardinal

Дата 30.11.2005, 17:18 (ссылка)

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

Загрузка ...

Инженер

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

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

Наверно... smile

Лень проверять было... Сегодня вечером посмотрю.

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

Guest

Дата 30.11.2005, 19:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

оки

cardinal

Дата 1.12.2005, 03:38 (ссылка)

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

Загрузка ...

Инженер

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

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

Вот попробуй:

Код


Dim Cells() As Integer

Sub Main()
On Error GoTo x
Dim n As Integer
Dim m As Integer
Dim resp As Integer
While 1
    resp = InputBox("1-размеры, 2-заполнение , 3-диагноз , other - Quit")
    Select Case resp
    Case 1
        n = InputBox("N=")
        m = InputBox("M=")
        ReDim Cells(n, m)
    Case 2
        resp = InputBox("1-случайно, 2-самим, other - случайно")
        Select Case resp
        Case 1
            Call entrand(n, m)
        Case 2
            Call entself(n, m)
        Case Else
            Call entrand(n, m)
        End Select
    Case 3
        Call diag(n, m)
    Case Else
        Call clear(n, m)
        MsgBox ("Game Is Over")
        Exit Sub
    End Select
Wend
x:
Exit Sub
End Sub

Sub clear(n As Integer, m As Integer)
Dim x, y As Integer

For x = 1 To n
    For y = 1 To m
        Cells(x, y) = 0 ' обнуляешь
    Next y
Next x
End Sub

Sub entself(n As Integer, m As Integer)
Dim x, y As Integer

For x = 1 To n
    For y = 1 To m
        Cells(x, y) = InputBox("(" & CStr(x) & " " & CStr(y) & ") = ") ' заполняешь сам
    Next y
Next x
End Sub

Sub entrand(n As Integer, m As Integer)
Dim x, y As Integer
For x = 1 To n
    For y = 1 To m
        Cells(x, y) = Fix(100 * Rnd()) ' автозаполнение
    Next y
Next x
End Sub
Sub diag(n As Integer, m As Integer)
Dim x, y As Integer
Dim number As String
For x = 1 To n ' строки
    For y = 1 To m ' столбцы
        If (Cells(x, y) = 0) And InStr(number, y) = 0 Then
            number = number & y & " "
            Exit For
        End If
    Next y
Next x
MsgBox (number)
End Sub

Делал на скорую руку, так что улучшай если надо сам… Проверял пару раз. smile

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

Guest

Дата 4.12.2005, 17:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Круто, работает! =) Спасибо большое! А можно еще вопросик?
А как сделать визуальную форму, реализующую эту программу(программа выводит все столбцы матрицы, в которых есть хотя бы один ноль), а так же сохранение и загрузку исходной матрицы и модифицированной?

cardinal

Дата 4.12.2005, 21:36 (ссылка)

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

Загрузка ...

Инженер

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

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

Ну как, как. Взять у кого-нибудь книгу (если покупать нет смысла), прочитать страниц двадцать-тридцать и все сделать.

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

Guest

Дата 5.12.2005, 15:06 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

никто не дает книгу! говорят самим надо...=)))))))
Ну а это вообще очень сложно?

cardinal

Дата 5.12.2005, 18:06 (ссылка)

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

Загрузка ...

Инженер

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

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

Посмотри тут
http://forum.vingrad.ru/index.php?showtopic=52693
и тут
http://firststeps.ru/vb/vb1.html

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

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