Преобразование массива через функцию - VB
Формулировка задачи:
Задача подобная той, которую я сюда писал. Ещё раз попрошу помощи
Дан целочисленный массив размера N . Описать функцию, находящую но-мер минимального элемента из данного набора.
Решение задачи: «Преобразование массива через функцию»
textual
Листинг программы
Private Sub Command1_Click()
Dim n%, A() As Integer, st$
n = Val(InputBox("N-?"))
If n > 1 Then
ReDim A(n): st = ""
Randomize
For i = 1 To n
A(i) = Int(Rnd * 10)
st = st & A(i) & " "
Next i
st = st & vbNewLine & "# min " & num(A)
Else
st = "N>1!"
End If
MsgBox st
End Sub
Function num(A() As Integer) As Integer
Dim i%, mm As Integer
mm = A(1): num = 1
For i = 2 To UBound(A)
If mm > A(i) Then mm = A(i): num = i
Next i
End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д