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

Pitbul

Дата 30.4.2008, 16:36 (ссылка)

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

Загрузка ...

Fruzenshtein

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

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

Добрый день, получил в университете задание написать на VBA прогу с такой формулировкой:

В заданом рядке єлементы, кратные найменшому элементу, заменить факториалами их номеров.

Вот что я написал:

Код


Private Sub CommandButton1_Click()

Dim n
Set a = Selection
n = a.Columns.Count
amin = a(1, 1)
For i = 2 To n Step -1
If amin > a(1, i) Then
amin = a(1, i)
End If
Next i

If amin = 0 Then
MsgBox "Деление на НОЛЬ!"
End If

For i = 1 To n
If a(1, i) Mod amin = 0 Then
t = 1
For j = 1 To i
t = t * j
Next j
a(1, i) = t
End If
Next i

End Sub

Просьба, если кто может введите корективы и выложите их сюда=) огромное спасибо smile

Это сообщение отредактировал(а) Akina - 30.4.2008, 17:32

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

### JAVA ###### programming ###

Akina

Дата 30.4.2008, 17:35 (ссылка)

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

Загрузка ...

Советчик

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

Репутация: 17
Всего: 454

1) Не определены некоторые переменные.
2) Нет контроля типов.
3) Нет обработки ошибок.
4) Для вычисления факториала разумнее написАть отдельную функцию.
А в остальном в общем все нормально.

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Akina

Дата 30.4.2008, 17:36 (ссылка)

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

Загрузка ...

Советчик

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

Репутация: 17
Всего: 454

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

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

Pitbul

Дата 1.5.2008, 19:22 (ссылка)

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

Загрузка ...

Fruzenshtein

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

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

Akina

Ссори что не туда написал, но просто первый раз на Вашем форуме.

А по сути скрипта так и не понял в чем проблема, переменные вроде нам говорили что в VBA можно и не обьявлять, а так отдельные функции не обьясняли как делать, проверку над ошибками пытался выполнить в этом блоке:

If amin = 0 Then
MsgBox "Деление на НОЛЬ!"
End If

Но теперь если выделять пустоую зону на листе ЭКСЕЛЯ то тоже будет выбивать это СООБЩЕНИЕ, а препод говорит что так не должно быть. Вобщем до ума не могу ее довести, вот и прошу помощи=/

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

### JAVA ###### programming ###

Pitbul

Дата 2.5.2008, 08:56 (ссылка)

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

Загрузка ...

Fruzenshtein

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

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

Ну посоветуйте же пожалуйста какую часть програмного кода на что заменить? smile

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

### JAVA ###### programming ###

kapbepucm

Дата 3.5.2008, 09:12 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 6
Всего: 12

Код

Private Sub CommandButton1_Click()
  Dim I As Long
  Dim SelectionMinElement As Long
  Dim t As Long
  If Selection.Rows.Count <> 1 Then
    MsgBox "Нужен 1 ряд элементов!", vbCritical
    Exit Sub
  End If
  If Selection.Columns.Count = 1 Then
    MsgBox "Может выделите больше элементов, чем 1?", vbCritical
    Exit Sub
  End If
  For I = 1 To Selection.Columns.Count
    If Selection(1, I) = "" Then
      MsgBox "Найден пустой элемент!", vbCritical
      Exit Sub
    End If
  Next I
  On Error GoTo ErrorLabel
    SelectionMinElement = Selection(1, 1)
    For I = 1 To Selection.Columns.Count
      If SelectionMinElement > CLng(Selection(1, I)) Then SelectionMinElement = CLng(Selection(1, I))
    Next I
  On Error GoTo 0
  If SelectionMinElement = 0 Then
    MsgBox "Минимальный элемент=0", vbCritical, "Деление на 0"
    Exit Sub
  End If
  t = 1
  For I = 1 To Selection.Columns.Count
    t = t * I
    If (SelectionMinElement <> Selection(1, I)) And ((Selection(1, I) Mod SelectionMinElement) = 0) Then
      Selection(1, I) = t
    End If
  Next I
ExitLabel:
Exit Sub
ErrorLabel:
  If Err.Number = 13 Then
    MsgBox "Нужны только цифры!", vbCritical
    Resume ExitLabel
  End If
End Sub

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

(С) kapbepucm

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