Простые программы на VB - помогите

[Danya aka Spiridon]

Очень давно не писал на VB (6.0)... а в понедельник сдавать экзамен... вот есть задания практические... Очень прошу помочь:

1. Математическая программа просит ввести 2 целых числа. Когда вы их вводите, программа находит их частное и выводит на экран.

2. Программа просит ввести 2 целых числа (например 0 или 1) и печатает результат применения к ним логических операций.

3. Дано натуральное число N. Программа определяет и выводит на экран все простые числа, не превосходящие N, кроме 1.

4. Мат. программа - написать функцию, которая находит гипотенузу по двум катетам.

5. Программа выводит на экран целое число в диапозоне от 0 до 15, преобразует его к шестнадцатиричной системе счисления и выводит на экран полученный результат.

7. Программа просит ввести три целых числа. Когда вы их вводите, программа находит самое большое и самое маленькое и выводит на экран.

8. Программа вводит целое положительное число N и подсчитывает сумму всех целых чисел от 1 до N.

* формулировки заданий Pascal'евские

[GSerg]

Нет, я, конечно, должен дать ссылку на http://bbs.vbstreets.ru/viewtopic.php?t=25635 ...

Но хочу сказать, после прочтения заданий, что это полный отпад... и что человеку, не способному решить эти задания, надо ставить неуд. немедленно. Иное было бы преступлением против человечества и здравого смысла...

[Dangerous]

Во дела! Я то думал что я....! Эх нет! Я способен всево лишь решить только несколько заданий!!!

[Lumen]

Надо бы модераторам переместить тему в раздел "Работа"

[RayShade]

*как то непроизвольно дернулся левый глаз*

[IIIypuk]

*как то непроизвольно дернулся левый глаз*

*...и потянулась рука за дубиной...*

Уважаемый автор! Даже если Вы 10-лет не писали бы на VB, Вы бы все равно смогли решить эти задания. Так что тут два варианта: лень или элементарное незнание языка вообще.

[BV]

А почему тема не закрыта?

[GSerg]

Закрыть?

[IIIypuk]

Единственное, над что Вы с чистой совестью могли спросить в этом разделе - пункт 3. Хотя он уже рассматривался, наверное, на ВАААЩЕ ЛЮБОМ форуме по программирыванию.

У меня возникла в мыслях еще одна причина - полное незнание математики и отсутствие логики. Ивините, если что, но это мое субъективное мнение.

[Oxygen]

Я медленно сползаю под стол. И что здесь сложного????

[Danya aka Spiridon]

сорри, я у меня просто 13 билетов по 4 вопроса... много теории которой я не знаю... я над ней и тружусь, поэтому и попросил помочь... написать калькулятор я смогу

P.S. С математикой как с таковой у меня на самом деле большие проблемы!

[Konst_One]

может это задачи на олимпиаде по информатике в первом классе
а автор уже с пеленок забыл бейсик, а логические операции еще не проходили в школе

зато уже умеет работать на компьютере и писать в наш форум

[GluKoBuG]

Удалить это сообщение, плиз. Форум сглючил.

[Danya aka Spiridon]

Мда. Вы такие веселые. Я просто попросил о помощи. Обсирать себя я вроде не просил.

[Danya aka Spiridon]

Ладно, извиняюсь... Напишу сам всё.

[Oxygen]

Это тяжелейший случай. Возможно, после падения с 10 этажа.... Головой вниз.

Ну зачем же так жестоко? Оскорблять людей таким образом НЕ НУЖНО! Человек попросил помочь, ладно, поругать его за незнание математики, ещё можно, но оскорблять не надо. Ну, вот, человек обиделся.....

[GSerg]

GluKoBuG
http://bbs.vbstreets.ru/viewtopic.php?p=6611657#6611657
Это ведь ты писал, правда? А ведь это гораздо более высокий этаж.

[RayShade]

Не факт, коллега, не факт.

Возможно, просто дом стоял на холме.....

[Danya aka Spiridon]

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

Простейший калькулятор я могу написать:

Код: Выделить всё

Private Sub Command1_Click()
Label1 = Val(Text1) + Val(Text2)
End Sub

Private Sub Command2_Click()
Label1 = Val(Text1) - Val(Text2)
End Sub

Private Sub Command3_Click()
Label1 = Val(Text1) * Val(Text2)
End Sub

Private Sub Command4_Click()
Label1 = Val(Text1) \ Val(Text2)
End Sub

Private Sub Command5_Click()
Label1 = Val(Text1) / Val(Text2)
End Sub

Private Sub Command6_Click()
Label1 = Val(Text1) ^ Val(Text2)
End Sub

Private Sub Command7_Click()
Label1 = Val(Text1) Mod Val(Text2)
End Sub

Да и программы посложнее писал. Просто на самом деле мало времени... А материала много... Всякие теории графов, алгоритмизация и пр. И я решил попросить помочь, так сказать "строчками кода".

[Конь]

Danya aka Spiridon
Слушай, как можно не знать ТАКОГО?
Я, ни у кого не спрашивая помощи, сделал бы это полгода года назад, а начал я разбираться в VB год назад сам, один на один с программой и помощью по ней!

[Конь]

Danya aka Spiridon
Это калькулятор?
Не верю.
В калькуляторе нет TextBox, тем более двух.

...мало времени...

Чтож, понимаю. Но это можно сделать за 5 минут.

[RayShade]

Внимание вопрос! А сколько текстбоксов нужно чтобы построить калькулятор?

[Danya aka Spiridon]

Конь
ты о чем? вот скомпилировал, смотри: http://spiridon.net.ru/temp/calc.zip

p.s. меня это займет больше чем 5 минут...

[Oxygen]

Внимание вопрос! А сколько текстбоксов нужно чтобы построить калькулятор?

В принципе, для простейшего не одного. А так, я обходилась одним.

[RayShade]

*у меня опять непроизвольно дернулся левый глаз*

[Oxygen]

*у меня опять непроизвольно дернулся левый глаз*

Смотря, что понимать под словом ПОСТРОИТЬ. Можно построить программную модель калькулятора. Я это имела ввиду.

[BV]

Один флуд... Ну двиньте тему в Трёп, что-ли?

[GluKoBuG]

Админы, пришейте ошибку природы

[GluKoBuG]

Конь
ты о чем? вот скомпилировал, смотри: http://spiridon.net.ru/temp/calc.zip

p.s. меня это займет больше чем 5 минут...

Как бы не было это смешно, но здесь типичная ошибка новичка: используем Integer вместо Long. Ввёдём 1 000 000 000 и наблюдаем за ошибкой... А так весьма граммотно, дебаг есть.

[RayShade]

GluKoBuG

Ты наверное, удивишься, но у объектов есть проперти по умолчанию, так вот тут как раз такой случай и есть.