Заменить отрицательные элементы массива удвоенным значением - 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
Print
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д