Option ExplicitPublic Type MyStru
rRnd As Currency
sName As StringEnd TypePrivate mCount() As MyStru'由于MyStru是自定义类型;所以无法在函数中作变量传递,只能通过模块变量数组传递到排序过程中Sub Sort()
Dim ArrBuf() As MyStru
Dim dMax As MyStru
Dim dMin As MyStru
Dim dBuf As MyStru
Dim i%, j%, k%, p%
...
Dim a(1 To 100) As Long, m(10) As Long, i As Long, j As Long, k As Long, L(10) As Long, n As Long''假如a中已经输入了100个数, 从a(1)到aa(100), 或者用下面循环随机产生'For i = 1 To 100: k = Int(Rnd * ...
Private Sub Command1_Click()Dim IntCs(10) As Integer, IntSx(10) As IntegerDim I As Integer, j As IntegerFor I = 1 To 10: IntSx(I) = I: Next IFor I = 1 To 100'IntCs(0) =...