Найти сумму элементов с 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.75 из 5
Похожие ответы