vb通用过程简介
Private Sub Ave(Arry() As Integer,ByVal N As Integer,Average As Integer) Private Sub Max(Arry() As Integer,M As Integer) Private Sub Command1_Click() Dim Arra(10) As Integer,I As Integer,Average As Integer,Maxm As Integer For I = 0 To 9 Arra(I) = Rnd * 100 Print Arra(I); " "; Next I Print Call Sort(Arra,10) For I = 0 To 9 Print Arra(I); " "; Next I Print Call Max(Arra,10,Maxm) Call Ave(Arra,Average) Print "Max="; Maxm,"Ave="; Average Print End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |