Помогите создать прогу для одномерного массива в Visual Basic - VB

Формулировка задачи:

Помогите пожалуйста!!!Составьте прогу срочно! Дано число М.Если в массиве x(N) есть хотя бы один элемент,равный М, то найти произведение всех элементов, предшествующих первому такому члену, в противном случае вывести на печать сообщение "Элементов = М, нет".

Решение задачи: «Помогите создать прогу для одномерного массива в Visual Basic»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim x()
nm = 10
n = Val(InputBox("N-?", , 10))
If n > 1 Then
m = Val(InputBox("M-? [ 2 ;" & nm & " ]", , 5))
If m > 2 And m <= nm Then
ReDim x(n): ind = 0: st = ""
Randomize Timer
On Error GoTo err
For i = 1 To n
x(i) = Int(Rnd * nm) + 1
  If x(i) = m Then
  ind = i
  Exit For
  End If
Next i
    If ind > 0 Then
     P = 1
       For i = 1 To ind - 1
          P = P * x(i)
       Next i
         MsgBox "P = " & P
     Else
        MsgBox "Элементов =" & m & " , нет"
     End If
Else
MsgBox "Error M", vbExclamation
Exit Sub
End If
Else
MsgBox "N>1", vbExclamation
End If
Exit Sub
err: MsgBox "переполнение", vbExclamation
End Sub

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

9 голосов , оценка 3.778 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы