powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Люди, помогите, кто может, плиз)
7 сообщений из 7, страница 1 из 1
Люди, помогите, кто может, плиз)
    #34836750
Юлианна
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Задание по VBA в Exel надо сделать, мож кто знает как такую прогу написать -

Ввести целое число по запросу или случайным образом.
1)Значением этого числа заполнить N строк и M столбцов рабочего листа;
2)Найти сумму цифр этого числа;
3)Разложить число на простые множители и вывести их в ячейки таблицы.

вот моя ася, если что - 214272657
...
Рейтинг: 0 / 0
Люди, помогите, кто может, плиз)
    #34836809
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Skype есть
...
Рейтинг: 0 / 0
Люди, помогите, кто может, плиз)
    #34836811
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ЮлианнаЗадание по VBA в Exel надо сделать, мож кто знает как такую прогу написать -

Ввести целое число по запросу или случайным образом.
1)Значением этого числа заполнить N строк и M столбцов рабочего листа;
2)Найти сумму цифр этого числа;
3)Разложить число на простые множители и вывести их в ячейки таблицы.

вот моя ася, если что - 214272657

Ну по первым двум пунктам всё просто
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub sss()
Dim chislo As Long ' допущение, что цисло будет целым
Dim n As Long, m As Long
Dim sumCifr As Long

' Запрос числа
 chislo = InputBox("Введите число")

' Заполнение диапазона на листе1
 n =  10 
 m =  5 
 Worksheets("Лист1").Range("A1").Resize(n, m).Value = chislo
 
' Сумма цифр
 For i =  1  To Len(chislo)
  sumCifr = sumCifr + Mid(chislo, i,  1 )
 Next
 
 MsgBox "Сумма цифр цисла " & chislo & Chr( 10 ) & _
        "составляет - " & sumCifr

End Sub

А вот по третьему:
- что значит простые множители?
- если я правильно понял, что нужно найти цисла от 1 до 9 перемножив, которые можно получить число, то это можно сделать через поиск решения
...
Рейтинг: 0 / 0
Люди, помогите, кто может, плиз)
    #34836815
Фотография michael R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
простые множетели это числа на которые исходное делится без остатка
и которые сами могут делится на 1 или на само себя без остатка
это цикл в цикле (второй цикл взять до SQRT(число)+1)
...
Рейтинг: 0 / 0
Люди, помогите, кто может, плиз)
    #34836837
Юлианна
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
michael RSkype есть
неа, я даж не знаю что это, если честно)
...
Рейтинг: 0 / 0
Люди, помогите, кто может, плиз)
    #34836839
Юлианна
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad , пасиб огромное)))) пока не вбивала, но думаю все получится, еще раз спасибки)))
...
Рейтинг: 0 / 0
Люди, помогите, кто может, плиз)
    #34836851
Юлианна
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Deggasad
А вот по третьему:
- что значит простые множители?
- если я правильно понял, что нужно найти цисла от 1 до 9 перемножив, которые можно получить число, то это можно сделать через поиск решения

А третье задание я их разложила,там оказывается имелось в виду примерно так раскладывать 60=2*2*3*5, все работает, но вот как теперь их в ячейки таблицы выложить ваще не знаю, вот что у мня получилось :

Sub Main()
Dim a As Integer, n As Integer, i As Integer, S As String
n = InputBox("Введите число ")
i = 2
a = n
While n > 1
While n Mod i = 0
S = S & i & "*"
n = n / i
Wend
i = i + 1
Wend
MsgBox (a & "= " & S)
End Sub
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Люди, помогите, кто может, плиз)
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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