Помогите решить через Visual Basic !очень срочно
5-9 класс
|
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
Другие вопросы из категории
дано четырехзначное число, заменить нулем максимальную цифру
на теплоходе,чтобы в случае необходимости в них можно было разместить всех пассажиров и всех членов комнанды? ПОМОГИТЕ ПОЖАЛУЙСТА!! ОЧЕНЬ НУЖНО!!(((
Читайте также
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