VBA

Матвик · Отправлено: **21:18, 22-02-2011** | #11

мне дана задача(моя тема) и мне нужно посчитать Y и я хочу создать программу чтоб и считала Y и выводила мне ответ

KnRSU · Конфигурация компьютера

в чем собственно проблема
добавьте в конце этого

Цитата Матвик:

A(1) = -36
A(2) = 7
A(3) = 5
A(4) = 4
For i = 1 To 4
If i = 1 Then
If A(i) > 0 Then
y = Sqr(A(i))
Else
y = 0
End If
End If
Next i »

вот это (последней строкой)

Код:

MsgBox "Значение Y = " & y

и будет то что Вам уже не раз указывали

Цитата KnRSU:

MsgBox y, vbOKOnly, "Результат вычисления значения Y" »

Цитата lxa85:

MsgBox("Hello, World!") ' Display message on computer screen. »

Матвик · Отправлено: **16:25, 24-02-2011** | #13

всем большое спасибо!!!все получилось)