Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
2 / 2 / 0
Регистрация: 18.10.2016
Сообщений: 15
1

Где ошибка?

01.11.2016, 20:36. Просмотров 412. Ответов 3
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub SUM()
Dim c, i, n
Dim k As Integer
Dim a(6) As Double
n = 6
Cells(1, 1).Value = "Введите шестизначное число"
c = Cells(1, 2)
For i = n To 1
k = c Mod 10
If k Mod 2 = 0 Then
k = k + 3
Else
k = k * 2
End If
a(i) = k
c = c \ 10
Next
For i = 1 To n
Cells(2, i).Value = a(i)
Next
End Sub
У меня в итоге выводятся все 0 вместо цифр. Не могу понять, где ошибка
Где ошибка?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.11.2016, 20:36
Ответы с готовыми решениями:

Где ошибка?
Вот задание: 1. Mult передается массив и количество элементов, для которых нужно найти...

Где ошибка в циклах?
Всем привет! Есть такой код: Sub Dim k For k = 3 To 5 Dim e For e = 7 To 9

Где ошибка в коде?
Почему, когда генератор случайных чисел заполняет таблицу, получается так, что строки между собой...

Где ошибка в макросе?
Macros: Sub ExcelReport() Dim ExcelSheet As Object Set ExcelSheet =...

3
2 / 2 / 0
Регистрация: 18.10.2016
Сообщений: 15
01.11.2016, 20:40  [ТС] 2
Само задание: Дано 6-ти значное число. Каждую нечетную цифру умножить на 2, а к каждой четной прибавить 3. Вывести все полученные числа
0
Заблокирован
01.11.2016, 20:48 3
Visual Basic
1
8:  For i = n To 1 STEP -1
0
2 / 2 / 0
Регистрация: 18.10.2016
Сообщений: 15
01.11.2016, 20:55  [ТС] 4
Спасибо большое. Помогло)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2016, 20:55

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Где может быть ошибка?
Уважаемые форумчане, столкнулся со следующей проблемой... Написал макрос, в котором в столбце AK...

Сравнение массивов - где ошибка
Есть два списка. Они должны быть одинаковые. В первом может не хватать записей. Нужно их найти во...

Где ошибка , циклы с условием
Задание Сумма Sub lab14() Dim a1 As Single, s As Single, k As Integer Const x = 0.2 Const...

Подскажите, в где у меня ошибка. VBA
Есть код: Dim temparray As Range Set temparray =Range("a1").CurrentRegion Range(Cells(1, 1),...

Подскажите пожалуйста где может быть ошибка
Здравствуйте. В VBA я только 7 день, потому сам не могу разобраться( Все вы знаете про врачебный...

Забить данные в массив по условию - где ошибка?
Есть столбик с датами, которые могут повторяться. Он отсортирован по убыванию. Нужно создать список...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.