Visual Basic

LebAl · 27.11.2007, 18:54

Любители Visual Basic ! Помогите решить задачу ! Вкратце суть задачи: дается любое число, нужно определить его делители. Например: число 6 и его делители 6,3,2,1. Уменя почти получилось, но чего-то не хватает ! Если не сделаю до пятницы, то учитель вкатит пару. Он сам ничего не может сделать, в только тупит и читает пособие. Кто могёт помогите и выложите решение в txt или ещё как -нить. Заблаговременно thanks

**Niv_03** · 27.11.2007, 19:22

создаешь на форме два текстовых поля с именами text1 и text2 и одну кнопку и пишешь в неё действие

Код:

Text2.Text = ""
For i = Val(Text1.Text) To 1 Step -1
If Val(Text1.Text) Mod i = 0 Then Text2.Text = Text2.Text + Str(i) + vbNewLine
Next i

что не понял спроси, объясню

LebAl · 27.11.2007, 19:57

Ну раз так пошло ... то вот тебе ещё одна задачка : дается любое число, нужно опредилить, является ли оно совершенным. Объясняю: совершенное число - это число, которое равно сумме его делителей не считая делителем само число. Пример: 6=3+2+1. За задачу не брался, потому что не знал как находить делители. Но благодаря твоему решению можно попробовать! Но буду признателен, если её сделает профессионал, т.е. Niv_03 :~)

**BuPTy03** · 27.11.2007, 21:32

создаешь на форме два текстовых поля с именами text1 и text2 и одну кнопку и пишешь в неё действие

Цитата:

Private Sub Command1_Click()
Text2.Text = ""
n = 0
For i = 1 To Val(Text1.Text) - 1
If Val(Text1.Text) Mod i = 0 Then n = n + i
Next i
If n = Text1.Text Then
Text2.Text = "Perfect!

"
Else
Text2.Text = "Inperfect! :("
End If
End Sub

LebAl · 27.11.2007, 21:41

Что такое n - intn или что ?Недогоняю.Объясни

**BuPTy03** · 27.11.2007, 21:44

n - сумма всех делителей

LebAl · 27.11.2007, 21:51

А для n надо процедуру писать , ай не ?

**BuPTy03** · 27.11.2007, 21:55

Тяжёлый случай )

LebAl · 27.11.2007, 22:00

Объяснить же не судьба (

**BuPTy03** · 27.11.2007, 22:03

По-моему, всё просто очевидно.
n суммирует все делители заданного числа и всё.

LebAl · 27.11.2007, 22:08

Ладно, тогда скажи, что мне в Dim писать ?

**BuPTy03** · 27.11.2007, 22:26

Dim i, n as Integer если так хочешь ))

LebAl · 27.11.2007, 22:45

BuPTy03, это именно то, что я хотел услышать! Бaльшое, БАЛЬШОЕ СПАСИБА !!! :~)

**Niv_03** · 28.11.2007, 00:40

Цитата:

Сообщение от BuPTy03

создаешь на форме два текстовых поля с именами text1 и text2 и одну кнопку и пишешь в неё действие

У меня дежавю?))

**BuPTy03** · 28.11.2007, 22:28

Niv_03, мне линь было печатать лишний раз ))
Прости, забыл поставить (с) ))

**Niv_03** · 28.11.2007, 23:39

BuPTy03, ну ладно, так и быть)))

LebAl · 30.11.2007, 22:20

Опять я со своими задачками ... На этот раз так же 2 незатейливые задачки ! 1-я : дается массив (от 1 до ...) цель:построить таблицу(забыл как называется) чтобы в каждой строке и каждом столбце были разные числа. 2-я : дается массив (от 1 до 100).цель:сравнить 2 подряд идущих числа. например:6<31,3>1 и т.д. Ну вот и всё ! Кстати, спасибо за прошлые задачи: учитель поставил мне 5 ! Thank you !!!

**BuPTy03** · 30.11.2007, 22:33

Ты уверен что тебе VB нужен? Задания строить таблицы обычно бывают для QB.
Для второй задачки расписывать подробно не буду (должен же ты всё-таки хоть что-то сам делать?), дам оснувную идею и часть кода:
Массив A(i), следующий элемент сравнивается с предыдущим, результат добавляется в текстбокс и переносится строка.

Код:

For i = 2 To 100
 If A(i) > A(i-1) Then
  Text1.Text = Text1.Text & A(i) & ">" & A(i-1) & vbCrLf
 Elseif A(i) = A(i-1) Then
  Text1.Text = Text1.Text & A(i) & "=" & A(i-1) & vbCrLf
 Else
  Text1.Text = Text1.Text & A(i) & "<" & A(i-1) & vbCrLf
 End If
Next i

LebAl · 30.11.2007, 22:45

Первую задачу тоже надо делать в VB(мы все задачи в нем делаем).Но ... спасибо и за это :~)

27.11.2007, 18:54	#1
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Visual Basic Любители Visual Basic ! Помогите решить задачу ! Вкратце суть задачи: дается любое число, нужно определить его делители. Например: число 6 и его делители 6,3,2,1. Уменя почти получилось, но чего-то не хватает ! Если не сделаю до пятницы, то учитель вкатит пару. Он сам ничего не может сделать, в только тупит и читает пособие. Кто могёт помогите и выложите решение в txt или ещё как -нить. Заблаговременно thanks

27.11.2007, 19:22	#2
Niv_03 Отошёл... Адрес: Prūsa, Twānksta/Kunnegsgarbs Телефон: Nokia 6681 Сообщений: 35 Уровень респекта: 126	создаешь на форме два текстовых поля с именами text1 и text2 и одну кнопку и пишешь в неё действие Код: Text2.Text = "" For i = Val(Text1.Text) To 1 Step -1 If Val(Text1.Text) Mod i = 0 Then Text2.Text = Text2.Text + Str(i) + vbNewLine Next i что не понял спроси, объясню

30.11.2007, 22:33	#18
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,201 Уровень респекта: 2,810	Ты уверен что тебе VB нужен? Задания строить таблицы обычно бывают для QB. Для второй задачки расписывать подробно не буду (должен же ты всё-таки хоть что-то сам делать?), дам оснувную идею и часть кода: Массив A(i), следующий элемент сравнивается с предыдущим, результат добавляется в текстбокс и переносится строка. Код: For i = 2 To 100 If A(i) > A(i-1) Then Text1.Text = Text1.Text & A(i) & ">" & A(i-1) & vbCrLf Elseif A(i) = A(i-1) Then Text1.Text = Text1.Text & A(i) & "=" & A(i-1) & vbCrLf Else Text1.Text = Text1.Text & A(i) & "<" & A(i-1) & vbCrLf End If Next i


Следующие 2 пользователя(ей) выразили Респект Niv_03:	LebAl, Nehrom

27.11.2007, 19:57	#3
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Ну раз так пошло ... то вот тебе ещё одна задачка : дается любое число, нужно опредилить, является ли оно совершенным. Объясняю: совершенное число - это число, которое равно сумме его делителей не считая делителем само число. Пример: 6=3+2+1. За задачу не брался, потому что не знал как находить делители. Но благодаря твоему решению можно попробовать! Но буду признателен, если её сделает профессионал, т.е. Niv_03 :~)

27.11.2007, 21:41	#5
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Что такое n - intn или что ?Недогоняю.Объясни

27.11.2007, 21:44	#6
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,201 Уровень респекта: 2,810	n - сумма всех делителей

27.11.2007, 21:51	#7
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	А для n надо процедуру писать , ай не ?

27.11.2007, 21:55	#8
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,201 Уровень респекта: 2,810	Тяжёлый случай )

27.11.2007, 22:00	#9
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Объяснить же не судьба (

27.11.2007, 22:03	#10
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,201 Уровень респекта: 2,810	По-моему, всё просто очевидно. n суммирует все делители заданного числа и всё.


Этот пользователь выразил Респект BuPTy03	LebAl

27.11.2007, 22:08	#11
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Ладно, тогда скажи, что мне в Dim писать ?

27.11.2007, 22:26	#12
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,201 Уровень респекта: 2,810	Dim i, n as Integer если так хочешь ))

27.11.2007, 22:45	#13
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	BuPTy03, это именно то, что я хотел услышать! Бaльшое, БАЛЬШОЕ СПАСИБА !!! :~)

28.11.2007, 22:28	#15
BuPTy03 Координатор Неадекватный Адрес: Москва Телефон: SLVR L7, RAZR2 V8 Прошивка: Дефолтовая ) Сообщений: 1,201 Уровень респекта: 2,810	Niv_03, мне линь было печатать лишний раз )) Прости, забыл поставить (с) ))


Этот пользователь выразил Респект BuPTy03	Niv_03

28.11.2007, 23:39	#16
Niv_03 Отошёл... Адрес: Prūsa, Twānksta/Kunnegsgarbs Телефон: Nokia 6681 Сообщений: 35 Уровень респекта: 126	BuPTy03, ну ладно, так и быть)))

30.11.2007, 22:20	#17
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Опять я со своими задачками ... На этот раз так же 2 незатейливые задачки ! 1-я : дается массив (от 1 до ...) цель:построить таблицу(забыл как называется) чтобы в каждой строке и каждом столбце были разные числа. 2-я : дается массив (от 1 до 100).цель:сравнить 2 подряд идущих числа. например:6<31,3>1 и т.д. Ну вот и всё ! Кстати, спасибо за прошлые задачи: учитель поставил мне 5 ! Thank you !!!

30.11.2007, 22:45	#19
LebAl Младший моторист Адрес: Великий и Могучий г.Почеп Телефон: Motorola E398i Прошивка: Mpx398 DeLux Сообщений: 59 Уровень респекта: 49	Первую задачу тоже надо делать в VB(мы все задачи в нем делаем).Но ... спасибо и за это :~)