Заменить отрицательные элементы массива удвоенным значением - VB
Формулировка задачи:
Дан массив B(k), k=1;2;3...6.
Заменить отрицательные числа их удвоенным значением.
Заранее спасибо за помощь.
Решение задачи: «Заменить отрицательные элементы массива удвоенным значением»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim B() As Integer, i As Integer, k As Integer
- k = 6: ReDim B(1 To k)
- For i = 1 To k
- B(i) = InputBox("Введите число № " & i, , 3)
- If B(i) < 0 Then B(i) = B(i) * 2
- Print B(i); vbTab;
- Next i
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
