Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)
-   -   [решено] Обработка массивов (http://forum.oszone.net/showthread.php?t=200007)

Матвик 20-02-2011 13:38 1617580
Обработка массивов
 
Можно ли создать в Visual Basic программу чтоб она находила значение переменной Y после выполнения программы и выдавала ответ
например такое,надо найти Y

A(1) = 5
A(2) = 2
A(3) = -2
A(4) = 1
y = 0
For i=1 to 4
Select case i
Case 1, 3, 4
y = y + A(i)
End select
Next i

lxa85 20-02-2011 14:40 1617615
Матвик, теоретически то конечно можно. Вот только условия задачи не ясны. Попробуй их (условия) пересказать еще раз, как говорится "для бестолковых".
Код:
print y:
не спасет?
Поинтересоваться здесь и здесь (Раздел справочник)

Матвик 20-02-2011 14:57 1617625
ну вообщем мне найти значение переменной Y после выполнения программы
далее идет типа такой текст который я написал, мне надо найти Y и вот я хочу сделать прогу которая выдаст значения Y

KnRSU 21-02-2011 08:57 1618119
Цитата:
Цитата Матвик
Case 1, 3, 4 »
а второй элемент массива вообще никогда не применяется с какой либо операцией к результату?

в конце добавьте хотябы
Код:
MsgBox y, vbOKOnly, "Результат вычисления значения Y"
ну или
Код:
Debug.Print "Результат вычисления значения Y = " & y
на крайний случай

Матвик 21-02-2011 17:32 1618485
а куда мне выводить результат и весь текст программы.Если можешь помоги пожалуйста!

lxa85 21-02-2011 18:07 1618523
Матвик, прости, но так как ты по предложенным ссылкам не ходишь, придется ткнуть тебя носом.
Код:
MsgBox("Hello, World!") ' Display message on computer screen.
Код из первой предложенной мною ссылки.
Это как один из вариантов. Хочешь иного - правильней описывай задачу.

Матвик 21-02-2011 18:30 1618542
ну у меня есть часть кода так

[code][/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 iCODE]

у я хочу чтоб процедура подсчитала Y и выводила результат

KnRSU 22-02-2011 09:25 1618907
вопрос от lxa85 поддерживаю
Цитата:
Цитата Матвик
выводила результат »
куда выводила?

упростим,
!!! варианты:

1. в виде диалогового окна
2. в виде специфического окна
3. в окно Immediate (вызывается по Crtl+G)
4. в файл (указанного типа или просто текстовый)
5. на принтер
6. в ячейку (в случае MS Excel)
7. в текущую позицию курсора (в случае MS Word)
8. в заранее заданную закладку (в случае MS Word)

указав выбранный Вами вариант вывода, Вы облегчите понимание нам и сократите время ожидания себе

Матвик 22-02-2011 17:45 1619324
в виде диалогового окна или в виде специфического окна

lxa85 22-02-2011 20:54 1619453
Матвик, ты ответы читаешь? Ты предложенные варианты пробуешь? Ну так, просто ради интереса? Вообще имеет смысл тебе подсказывать, или ты отвечаешь ровно на последний вопрос и ровно кроме него ничего не читаешь? 3тий раз - уже не смешно.
Цитата:
Цитата lxa85
Код:
MsgBox("Hello, World!") 'Выводит сообщение с текстом Hello World на экран.
»

Матвик 22-02-2011 21:18 1619485
мне дана задача(моя тема) и мне нужно посчитать Y и я хочу создать программу чтоб и считала Y и выводила мне ответ

KnRSU 24-02-2011 15:19 1620762
в чем собственно проблема
добавьте в конце этого
Цитата:
Цитата Матвик
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. »

Матвик 24-02-2011 16:25 1620826
всем большое спасибо!!!все получилось)


Время: 09:09.

Время: 09:09.
© OSzone.net 2001-