Сумма положительных элементов - VB
Формулировка задачи:
Здравствуйте) Помогите, пожалуйста, переделать код на Visual Basic..не знаком с этим языком..так бы хоть разобрался. А задание следующее: найти сумму положительных элементов, расп-ых впереди первого отриц-ого элемента
Решение задачи: «Сумма положительных элементов»
textual
Листинг программы
Option Explicit Option Base 1 'Установка нижнего индекса для всех модульных массивов =1 Dim n&, i& Dim massiv() As Integer 'massiv: array of integer; Private Sub Command1_Click() Command2.Enabled = False On Error Resume Next 'Пропуск остановки во время ошибки Do: Err.Clear n = -1: n = InputBox("Введите размер массива", , 1) If n > 10 Then If MsgBox("Вы уверенны что будете заполнять " & n & " элементов массива ?", 68) = vbNo Then _ Exit Sub ' Выход если не уверен End If ReDim Preserve massiv(n) '//установка размера массива If Err = 0 Then Exit Do 'Если размер установлен правильно выход из этого цикла Loop List1.Clear For i = 1 To n Do: Err.Clear massiv(i) = InputBox("Введите " & i & "-й элемент", , 0) If Err = 0 Then Exit Do 'Выход если всё правильно Loop List1.AddItem massiv(i) ' а заодно заполняем список Next Command2.Enabled = True End Sub Private Sub Command2_Click() n = 0 For i = 1 To UBound(massiv) If massiv(i) < 0 Then Exit For '//Если число отрицательное выход из цикла пересчёта Else n = n + massiv(i) End If Next MsgBox " Сумма = " & n, vbInformation End '//Победа ! выход из программы End Sub Private Sub Form_Load() Command2.Enabled = False End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д