VB 6

[uradik2]

Дана последовательность из М чисел. Сколько из этих чисел больше 7, но меньше 20. Найти произведение таких чисел.
вот код

Code
Private Sub Command1_Click ()
N = Val (N.Text)
K = Val (K.Text)
Print "Числа от"; N,"до"; K
s = 1
For i = N To K
Print i;
s = s * i
Next i
Print
Print "Произведение="; s
End Sub

у меня не получается посчитать количество чисел больше 7 и меньше 20 если не трудно выложите в правильном виде, заранее благодарен

[RUSt88]

нужен цикл по всему массиву, сравниваешь элемент массива по условию - если больше 7, но меньше 20, тогда элемент массива умножить на произведение этих элементов
напр так

s = 1
k = 0
for i = 1 to M
   if a(i) >= 7 and a(i) <= 20 then
      s = s * a(j)
      k = k + 1
   end if
Next i

в переменной s и будет содержаться произведение элементов, к-рые больше 7 и меньше 20, в переменной k будет содержаться кол-во таких элементов

[uradik2]

я тебя не понял, если не трудно напиши мой прораммный код в исправленном виде

[RUSt88]

Private Sub Command1_Click ()
N = Val (N.Text)
K = Val (K.Text)
M = Val(Textbox1.Text) 'размерность массива
Dim a(1 to M) 'массив
for i = 1 to M
    a(i) = 9 * RND; ' заполнение массива случайными числами от 0 до 9
Next i
Print "Числа от"; N,"до"; K
s = 1
h = 0
for i = 1 to M
   if a(i) >= 7 and a(i) <= 20 then
      s = s * a(j)
      h = h + 1
   end if
Next i

Print
Print "Количество чисел="; h
Print "Произведение="; s
End Sub

[uradik2]

братишка, че то не получается запустить программу, он ошибки выдает,
сможешь выложить ссылку на программу в готовом виде ))))

[RUSt88]

ну е мае!
у тя какая программа должна быть - консолька или с графич интерфейсом?

Dim a(1 to M)
испрвь на это Dim a(M)
for i = 1 to M
иправь на это for i = 0 to M - 1

Print "Числа от"; N,"до"; K

это же по моему консольные команды

Private Sub Command1_Click ()

а это уже графич оболочка

[uradik2]

сейчас попробую

выдает ошибку, требуется постоянное выражение

[RUSt88]

ну ясен пень будет ругаться

у мя нет басика 6, ничем не помогу больше, сам головой подумай, уже все сделано

[RUSt88]

ну ясен пень будет ругаться

у мя нет басика 6, ничем не помогу больше, сам головой подумай, уже все сделано

[uradik2]

от души))))