Найти сумму элементов с k1-го по k2-ой, где k1 и k2 вводятся с клавиатуры. Сделайте проверку корректности их ввода. - VB
Формулировка задачи:
Найти сумму элементов с k1-го по k2-ой, где k1 и k2 вводятся с клавиатуры. Сделайте проверку корректности их ввод.
Срочно народ надо! плз выручайте..... Решение задачи: «Найти сумму элементов с k1-го по k2-ой, где k1 и k2 вводятся с клавиатуры. Сделайте проверку корректности их ввода.»
textual
Листинг программы
Private SUB Command1_Click() DIM i AS INTEGER, N AS INTEGER DIM a(), S, k1 AS INTEGER, k2 AS INTEGER N = VAL(InputBox(" вводим размерность массива N", , 10)) IF N < 2 THEN MsgBox "N должно быть больше 1" EXIT SUB END IF 1 k1 = VAL(InputBox(" вводим размерность массива k1", , 1)) IF k1 < 1 OR k1 >= N THEN MsgBox "k1 должно быть больше 0 и меньше " & N & vbCrLf & "повторите ввод k1" GOTO 1 END IF 2 k2 = VAL(InputBox(" вводим размерность массива k2", , 2)) IF k2 < k1 OR k2 > N THEN MsgBox "k2 должно быть больше k1 и не больше " & N & vbCrLf & "повторите ввод k2" GOTO 2 END IF [COLOR="Lime"]List1.CLEAR: Label1 = ""[/COLOR] ВОТ ТУТ ОН ГОВОРИТ НЕ СООТВЕТСТВИЕ ДАНЫХ REDIM a(N) RANDOMIZE S = 0 FOR i = 1 TO N a(i) = INT(RND * 70) List1.AddItem a(i) IF i >= k1 AND i <= k2 THEN S = S + a(i) END IF NEXT i Label1.Caption = S END SUB
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д