Помогите создать прогу для одномерного массива в 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д