高考问答杭州铭族科技官网:vb 编程题
来源：百度文库 编辑：高考问答 时间：2024/04/28 08:58:09
编一子过程PROCMIN 求一维数组A中的最小值
子过程的形参自己确定 主调程序随机产生十个-30~-400之间得数 调用PROCMIN子过程 显示最小值
子过程的形参自己确定 主调程序随机产生十个-30~-400之间得数 调用PROCMIN子过程 显示最小值
Private Sub Form_click()
'Me.Cls
Randomize
Dim a(10) As Integer, i As Integer
For i = 1 To 10
a(i) = Int((371) * Rnd - 400)
Next i
Call PROCMIN(a)
End Sub
Sub PROCMIN(b() As Integer)
Dim min As Integer
min = b(1)
For i = 2 To 10
If b(i) < min Then
min = b(i)
End If
Next i
Print "min ="; min
End Sub
参考一下吧
下次相信你就会自己编了～
要相信自己呀
Option Base 1
Private Sub Form_Click()
Dim B() As Integer
Dim i As Integer
For i = 1 To 10
Randomize
ReDim Preserve B(i)
B(i) = Int((-30 - (-400) + 1) * Rnd + (-400))
Next i
Call PROCMIN(B)
Print B(UBound(B))
End Sub
Private Sub PROCMIN(a() As Integer)
If UBound(a) > 1 Then
For i = 1 To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
n = a(i)
a(i) = a(j)
a(j) = n
End If
Next j
Next i
End If
End Sub