ГДЕ ОШИБКА????Sub qwer()Dim a(1 To 10), b(1 To 10) As Integern
ГДЕ ОШИБКА????
Sub qwer()
Dim a(1 To 10), b(1 To 10) As Integer
n = 10
For i = 1 To n
a(i) = Worksheets("1").Cells(1, i + 1).Value
b(i) = Worksheets("1").Cells(2, i + 1).Value
Next i
s = 0: Min = a(1)
For i = 1 To n
s = s + b(i)
If a(i) lt;= Min Then Min = a(i)
Next i
R = Min / s
MsgBox "s=" amp; s
MsgBox "min=" amp; Min
MsgBox "R=" amp; R
End Sub
2 ответа
Надя
1. Программа работает. Если она что-то "не так" выдает, необходимо привести текст известья и место ошибки.
2. Так как я написал тестовый пример и он прошел, программа трудоспособна. Она трудоспособна ограниченно, если у Вас появляется ошибка в её работе.
3. Если у Вас появляется ошибка, а у меня нет, виноваты данные, которые программка обрабатывает. Почему необходимо привести Ваши конкретные 2х10 строк данных, чтоб можно было сделать какой-то анализ.
4. Во избежание заморочек с типами рекомендую добавить строчку описания Dim s As Integer, min As Integer, R As Double
Это приведет к типизации переменных и дозволит лучше локализовать ошибку.
2. Так как я написал тестовый пример и он прошел, программа трудоспособна. Она трудоспособна ограниченно, если у Вас появляется ошибка в её работе.
3. Если у Вас появляется ошибка, а у меня нет, виноваты данные, которые программка обрабатывает. Почему необходимо привести Ваши конкретные 2х10 строк данных, чтоб можно было сделать какой-то анализ.
4. Во избежание заморочек с типами рекомендую добавить строчку описания Dim s As Integer, min As Integer, R As Double
Это приведет к типизации переменных и дозволит лучше локализовать ошибку.
Мирослава Алявдина
через excel делал выдает ошибку :overflow
Slava Gricjak
в строке R=S/min
Леня Польямов
так там Min / s или S / min ?
Igor Romanjugin
R=S/min
Lilija Rumanchik
Возможно, ошибка из-за дробления: итог выходит вещественный (всегда), а не целый, и VBS может не принимать сходственное деяние в случае огромных чисел.
Софья Цнаймер
и что делать?:D
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Облако тегов