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

Question

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

---

Answer 1

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

---

Скачать вложение Excel (XLS)

Comments

а можно без cells

---

cells(i,3) это вывод в информации в i-ю строку 3 столбец. Все это для красоты.

---

Можно просто вывести S. все cells убрать S количество годных по росту

---

я просто ноль в этом так что я вообще не поняла

---

Рекомендую включить Excel. У Вас есть Word и Office? Нажмите кнопку и посмотрите как работают макросы. Увидеть программу можно нажав одновременно две клавиши Alt+F11

---

я не могу это сделать так как сижу с телефона

---

Если у Вас Nokia 520 или любая с Windows 8, то там есть Office 365 позволяющий открыть эти фацлы.

---

у меня нету