[宝典]求数组中的最小值的
函数
excel方差函数excelsd函数已知函数 2 f x m x mx m 2 1 4 2拉格朗日函数pdf函数公式下载
过程vb
实验十一
(求数组中的最小值的函数过程): Function min(a() As Integer) Dim i As Integer
min = a(LBound(a))
For i = LBound(a) + 1 To UBound(a)
If min > a(i) Then
min = a(i)
End If
Next i
End Function
Private Sub Command1_Click() Dim b(9) As Integer
Dim i As Integer
For i = 0 To 9
b(i) = Int(Rnd * 101)
Print b(i);
Next i
Print "min(b)="; min(b) End Sub
(求数组中最小值及最小值下标的过程)
Sub minarray(a() As Integer, min As Integer, mini As Integer)
Dim i As Integer
min = a(LBound(a))
For i = LBound(a) + 1 To UBound(a)
If min > a(i) Then
min = a(i)
mini = i
End If
Next i
End Sub
Private Sub Command1_Click() Dim a(9) As Integer, min As Integer, mini As Integer, i As Integer
For i = 0 To 9
a(i) = Int(Rnd * 101)
Print a(i)
Next i
Call minarray(a, min, mini)
Print "min="; min
Print "mini="; mini
End Sub
(利用子过程求素数): Sub prime(n As Integer, flag As Boolean)
flag = True
For i = 2 To Sqr(n)
If n Mod i = 0 Then
flag = False
Exit Sub
End If
Next i
End Sub
Private Sub Command1_Click() Dim n As Integer Dim f As Boolean n = InputBox("please input n") Call prime(n, f)
If f = True Then
Print n; "是素数" Else
Print n; "不是素数" End If
![[宝典]求数组中的最小值的函数过程vb](https://swf.iask.com/34Qso3xILdx.jpg?ssig=Gu%2FoG8N%2FFb&Expires=1721378987&KID=sina,ishare&range=0-161373)
浙公网安备 33021202002483