[решено] Обработка массивов [Версия для КПК]

Показать полную графическую версию : [решено] Обработка массивов

Матвик

20-02-2011, 13:38

Можно ли создать в 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

Матвик, теоретически то конечно можно. Вот только условия задачи не ясны. Попробуй их (условия) пересказать еще раз, как говорится "для бестолковых".
print y:
не спасет?
Поинтересоваться здесь (http://msdn.microsoft.com/ru-ru/library/3cf7t4xt.aspx) и здесь (http://msdn.microsoft.com/ru-ru/library/y4wf33f0.aspx) (Раздел справочник)

Матвик

20-02-2011, 14:57

ну вообщем мне найти значение переменной Y после выполнения программы
далее идет типа такой текст который я написал, мне надо найти Y и вот я хочу сделать прогу которая выдаст значения Y

KnRSU

21-02-2011, 08:57

Case 1, 3, 4 »
а второй элемент массива вообще никогда не применяется с какой либо операцией к результату?

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

Матвик

21-02-2011, 17:32

а куда мне выводить результат и весь текст программы.Если можешь помоги пожалуйста!

lxa85

21-02-2011, 18:07

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

Матвик

21-02-2011, 18:30

ну у меня есть часть кода так

[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

вопрос от lxa85 поддерживаю
выводила результат »
куда выводила?

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

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

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

Матвик

22-02-2011, 17:45

в виде диалогового окна или в виде специфического окна

lxa85

22-02-2011, 20:54

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

Матвик

22-02-2011, 21:18

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

KnRSU

24-02-2011, 15:19

в чем собственно проблема
добавьте в конце этого
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

и будет то что Вам уже не раз указывали
MsgBox y, vbOKOnly, "Результат вычисления значения Y" »
MsgBox("Hello, World!") ' Display message on computer screen. »

Матвик

24-02-2011, 16:25

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