|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.05.2012, 12:03 | #1 |
Регистрация: 27.04.2012
Сообщений: 5
|
Посмотрите что не так в программе
Помогите написать программу в VB МS Excel,дано задание:
Заполнить n- строк (n<50) столбца А случайными числами из диапазона [1..100] в порядке их возрастания. Вот я сделала,что знаю,но она не работает,что нужно добавить?? sub pr() Dim a,n,i,s as Integer n=100 for i= 1 to n a=InputBox("Введите не больше 50 чисел") if a>50 then MsgBox ("Нужно указать меньше 50 чисел") s=100 * Rnd() + 1 Next End sub Зараннее спасибо |
27.05.2012, 19:49 | #2 |
Старожил
Регистрация: 31.12.2010
Сообщений: 2,133
|
Код:
Код:
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Последний раз редактировалось Казанский; 27.05.2012 в 19:53. |
28.05.2012, 22:31 | #3 | |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Цитата:
Предлагается ввести не больше 50 чисел... А разрядность чисел? А как их разделять? Пробелами? Запятыми? ... И вообще if a>50 По своему определению InputBox это текстовой формат. Как можно сравнивать текст с числом...
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Что-то не так в программе...не пойму что | Karina_Vamp | Помощь студентам | 5 | 24.12.2010 21:06 |
посмотрите что не так | alex_sande | Microsoft Office Excel | 4 | 17.06.2010 00:32 |
что не так в программе? | Repz1992 | Помощь студентам | 8 | 28.10.2009 19:57 |
посмотрите что не так(((( доходит до 37 строки - функции и все | sunnysunny | Помощь студентам | 15 | 29.05.2009 00:20 |
Посмотрите что не так, я весь мозг сломал... | Devil55 | Помощь студентам | 3 | 18.02.2009 18:31 |