Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: HELP!! Добавлено: 16.05.08 18:12  

Автор вопроса:  Нюся | ICQ: 350039706 
я не огу сделать массив в Access методом пузырька, я его не поняла, помогите пож-та!!!
задача такая:переставить элементы массива Z, состоящего из N элементов, таким образом , чтобы в начале оказались положительныеЭ, а в конце отрицательные числа.Результат вывести в файл.
ПОМОГИТЕ, люди добрые...........

Ответить

  Ответы Всего ответов: 7  

Номер ответа: 1
Автор ответа:
 Нюся



ICQ: 350039706 

Вопросов: 2
Ответов: 3
 Профиль | | #1 Добавлено: 16.05.08 19:36
Public Sub d()
Dim Z(25) As Single
Dim n%, ostan%
n = InputBox("Ââåäèòå êîë-âî ýëåìåíòîâ â ìàññèâå";)
fn = FreeFile: Open ";D:\1.txt" For Output As fn
For i = 1 To n
Z(i) = Int(Rnd * 20 - 10)
Next i
For i = 1 To n
Print #fn, Z(i);
Next i
For x = 1 To n - 1
For y = x + 1 To n

это начало, условие не знаю как=(((

Ответить

Номер ответа: 2
Автор ответа:
 J. Smith



ICQ: ненавижу 

Вопросов: 40
Ответов: 477
 Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
 Профиль | | #2
Добавлено: 16.05.08 20:00
Я тоже не могу :) Не проще это сделать в Экзеле? По моему там и вывести в таблицу удобно.

Ответить

Номер ответа: 3
Автор ответа:
 Нюся



ICQ: 350039706 

Вопросов: 2
Ответов: 3
 Профиль | | #3 Добавлено: 16.05.08 20:04
мне надо и там и там=((

Ответить

Номер ответа: 4
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #4 Добавлено: 16.05.08 23:41
А в блокноте не надо? :D

Ответить

Номер ответа: 5
Автор ответа:
 Нюся



ICQ: 350039706 

Вопросов: 2
Ответов: 3
 Профиль | | #5 Добавлено: 16.05.08 23:44
мне помогите тока в аксесе дописать, дальше сама...плизззззз

Ответить

Номер ответа: 6
Автор ответа:
 J. Smith



ICQ: ненавижу 

Вопросов: 40
Ответов: 477
 Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой.
 Профиль | | #6
Добавлено: 16.05.08 23:44
Agent что с сайтом?

"Срок действия демо версии завершен"

Ответить

Номер ответа: 7
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
 Профиль | | #7 Добавлено: 17.05.08 10:52
ну как что.. поставил движок, а он сцуко, обиделся что я им так и не занялся и выдал такую хрень :) Придеццо вообщем либо бесплатный искать либо с кряками)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам