ReSQL.ru
     
powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста тупому студенту гуманитарию с информатикой.
12 сообщений из 12, страница 1 из 1
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39562029
oreshek41
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
oreshek41
Гость
сформировать на рабочем листе массив целых чисел в диапазоне от 1 до 30 .Найти сумму элементов кратных трём и больших заданного числа C (в visual basic)
...
Рейтинг: 0 / 0
30.11.2017, 15:51
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39562038
982183
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
982183
Участник
Ну что, снова сеанс телепатии.
сформировать на рабочем листе массив целых чисел в диапазоне от 1 до 30
Сформировать массив горизонтально, вертикально, по диагонали, напечатать, просто в памяти ?
Что такое "рабочий лист"?

авторНайти сумму элементов кратных трём и больших заданного числа C
элементов ЧЕГО?
...
Рейтинг: 0 / 0
30.11.2017, 16:07
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39562052
982183
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
982183
Участник
О торможу!
Worksheet
...
Рейтинг: 0 / 0
30.11.2017, 16:24
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39562100
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Пособие для студентов и школьников

oreshek41тупому студентуСамоуничижение не будет являться достаточным основанием для того, чтобы делать домашние задания за вас.
...
Рейтинг: 0 / 0
30.11.2017, 17:17
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39562135
наутилус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
наутилус
Участник
oreshek41,

в экселе макрос отрабатывает. а дальше задавайте вопросы
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Dim y
Dim summa

Dim startInt
Dim endInt
Dim c
    
    startInt = 1
    endInt = 30
    c = 7
    
    y = 1
    summa = 0
    For i = startInt To endInt
        'просто выводим число в ячейку
        Range("A" + CStr(y)).Select
        ActiveCell.FormulaR1C1 = CStr(i)
        
        If (i > c) Then 'если число больше заданного
            If (i Mod 3 = 0) Then 'и делится на 3 без остатка
            summa = summa + i 'суммируем
            End If
        End If
        
        y = y + 1
    Next
    Range("A" + CStr(y + 2)).Select
    ActiveCell.FormulaR1C1 = "Сумма " + CStr(summa)
End Sub
...
Рейтинг: 0 / 0
30.11.2017, 17:59
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573654
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub SelectedSumm()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = 1
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(30, 1)), Type:=xlFillSeries
c = InputBox("Ââåäèòå ÷èñëî C")
Select Case c
Case Is <= 3: Cells(32, 1).Value = 165
Case Is >= 30: Cells(32, 1).Value = 0
Case Else
Cells(32, 1).Value = 0.5 * ((CInt(c / 3) + 1) * 3 + 30) * ((30 - (CInt(c / 3) + 1) * 3) / 3 + 1)
MsgBox ("&#194;&#251;&#247;&#232;&#241;&#235;&#229;&#237;&#232;&#255; &#238;&#234;&#238;&#237;&#247;&#229;&#237;&#251;. &#208;&#229;&#231;&#243;&#235;&#252;&#242;&#224;&#242; &#231;&#224;&#239;&#232;&#241;&#224;&#237; &#226; &#255;&#247;&#229;&#233;&#234;&#243; A32")
End Select
End Sub
...
Рейтинг: 0 / 0
21.12.2017, 14:51
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573663
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
Извините, с русской кодировкой - беда(

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub SelectedSumm()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = 1
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(30, 1)), Type:=xlFillSeries
c = InputBox("Input Number C")
Select Case c
Case Is <= 3: Cells(32, 1).Value = 165
Case Is >= 30: Cells(32, 1).Value = 0
Case Else
Cells(32, 1).Value = 0.5 * ((CInt(c / 3) + 1) * 3 + 30) * ((30 - (CInt(c / 3) + 1) * 3) / 3 + 1)
MsgBox ("Calculation complete. Summ written to cell A32")
End Select
End Sub
...
Рейтинг: 0 / 0
21.12.2017, 14:56
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573709
наутилус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
наутилус
Участник
Aster32,

в чем вопрос?
код вообще непонятный.
...
Рейтинг: 0 / 0
21.12.2017, 15:32
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573770
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
Это не вопрос. Это рабочий код, решающий задачу, поставленную автором топика.
...
Рейтинг: 0 / 0
21.12.2017, 16:06
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573805
наутилус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
наутилус
Участник
Aster32,

особенно умиляют константы
Код: vbnet
1.
2.
Case Is <= 3: Cells(32, 1).Value = 165
Case Is >= 30: Cells(32, 1).Value = 0



и формула суммы. один вопрос препода - и студент едет в армию )))
...
Рейтинг: 0 / 0
21.12.2017, 16:23
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573886
Aster32
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Aster32
Гость
Вы правы.

Правильно так (не меньше или равно 3, а меньше 3):

...
Код: vbnet
1.
Case Is < 3: Cells(32, 1).Value = 165


...

Если в качестве числа C задано ровно 3, сумма будет равна 162, а не 165.

А что формула? Обычная сумма арифметической прогрессии.
...
Рейтинг: 0 / 0
21.12.2017, 17:18
| Ответить | Цитировать | Написать  
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
    #39573937
наутилус
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
наутилус
Участник
Aster32,

да это уже флуд... но по ситуации - преподаватель говорит а посчитай-ка мне, юный друг, диапазон чисел от 7 до 65.

и ваш код переделать будет непросто )
...
Рейтинг: 0 / 0
21.12.2017, 18:04
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=12&tid=2155144]:
 0ms
get settings:
 12ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 283ms
total:  415ms
созд. / загр.: 415ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]