Составить программу - Помощь студентам

Arsen05 · 14.04.2011, 06:44

кто знает напишите.....
Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

Sparkman · 14.04.2011, 07:00

Код:

Sub Кнопка1_Щелчок()
    Dim a, b As Integer
    a = 4
    b = 5
    If Sqr(a) < Sqr(b) Then b = b * 5
    MsgBox b
End Sub

Arsen05 · 14.04.2011, 07:04

саул большое

14.04.2011, 06:44	#1
Arsen05 Регистрация: 04.02.2011 Сообщений: 5	Составить программу кто знает напишите..... Даны два числа. Если квадратный корень из второго числа меньше первого числа, то увеличить второе число в пять раз.

14.04.2011, 07:00	#2
Sparkman 220400 Форумчанин Регистрация: 21.05.2010 Сообщений: 726	Код: `Sub Кнопка1_Щелчок() Dim a, b As Integer a = 4 b = 5 If Sqr(a) < Sqr(b) Then b = b * 5 MsgBox b End Sub` Cерьёзной помощи не ждите - помогаю в перерывах на "перекур". Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель.

14.04.2011, 07:04	#3
Arsen05 Регистрация: 04.02.2011 Сообщений: 5	саул большое