Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Помогите решить через Visual Basic !очень срочно

5-9 класс

Alena20141 14 янв. 2014 г., 21:23:47 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
2003прсмрмримсиамим
14 янв. 2014 г., 21:58:49 (10 лет назад)

Sub bassket()
N = 30
Dim A(30) As Integer
Dim i, x, y As Integer
Dim s As Variant
For i = 1 To N   
    A(i) = Int(40 * Rnd() + 160)   
    Cells(i, 2) = i   
    Cells(i, 3) = A(i)   
   Cells(i, 4) = "Не годен, рост меньше 180 см"    
   If A(i) < 180 Then
   Else       
       Cells(i, 4) = "Баскетболист"       
       s = s + 1     
   End If 
Next i 
Cells(i, 3) = "Всего ="
Cells(i, 4) = s
End Sub

Ответить

Другие вопросы из категории

Помогите, пожалуйста!!!! Паскаль

дано четырехзначное число, заменить нулем максимальную цифру

теплоход рассчитан на 750 пассажиров и 25 членов команды.каждая спасательная шлюпка может вместить 50 человек.каое наименьшее число шлюпок должно быть

на теплоходе,чтобы в случае необходимости в них можно было разместить всех пассажиров и всех членов комнанды? ПОМОГИТЕ ПОЖАЛУЙСТА!! ОЧЕНЬ НУЖНО!!(((

Читайте также

Помогите пожалуйсто решить прошу очень срочно!!!!

1. Чему равны значения переменных r, a, d?
a:=5; b:=20; c:=-7;
d:=2.5;
r := a+(4*b+c)*d;
a:= a+4;
d:=a*7;

2. В пяти тестовых опросах мальчик получил оценки. Составьте программу, которая определит среднее значение оценок, полученных мальчиком в пяти опросах.

3*. Задача. «Покупка в магазине»
Человек делает в магазине покупки. Определите сколько денег у него останется после покупки в магазине перчаток стоимостью А руб., портфеля стоимостью B руб. и галстука стоимостью D руб. Все исходные данные задаются с клавиатуры.

Исходные данные.
a — стоимость перчаток;
b — стоимость портфеля;
d — стоимость галстука;
dengi — количество денег у человека.
Все эти переменные будут вещественного типа.
Результат.
ostatok — количество денег, которое останется у человек (вещественный тип).
Метод решения.
ostatok = dengi – a – b – d
Написать программу, реализующую данную задачу
Помогите пожалуйсто решить очень срочно!!!!!!

ОЧЕНЬ СРОЧНО!!!!!!!

По каналу один за другим идут пароходы "Обь" и "Восток". Навстречу им идут один за другим пароходы "Мир" и "Енисей". Канал такой ширины, что два парохода в нем разойтись не могут. Но с одной стороны канал имеет расширение, в котором может поместиться один пароход. Как можно пароходам разойтись и продолжить свой путь?
Изобразите решение в виде схемы.ЗАРАНЕЕ СПАСИБО!(объясните,кто как может,очень срочно)

Информатика Visual Basic (см.фото)

Нужен код именно для Visual Basic



Вы находитесь на странице вопроса "Помогите решить через Visual Basic !очень срочно", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.