Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.09.2015 15:07
- Информатика
- remove_red_eye 4963
- thumb_up 40
Ответы и объяснения 2
Randomize
Dim massiv(10) As Integer
Dim stroka As String
For i = 0 To 10
massiv(i) = Rnd * 100 - 50
Next i
For i = 0 To 10
If massiv(i) < 0 Then massiv(i) = 0
stroka = stroka & massiv(i) & vbCrLf
Next i
MsgBox stroka
- 18.09.2015 23:52
- thumb_up 39
Dim Cols As Variant
Dim begin_row As Integer
Dim end_row As Integer
begin_row = 2
end_row = 6
Cols = Array(1, 2, 3, 4, 5)
For Each Col In Cols
If (Cells(begin_row, Col).Value < 0) Then
Cells(end_row, Col).Value = 0
Else
Cells(end_row, Col).Value = Cells(begin_row, Col).Value
End If
Next Col
End Sub
- 19.09.2015 10:11
- thumb_up 14
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.