育才学习网1.vb语言逆序数的代码三位数
Private Function NiXuShu(ByVal l As String) As Long
Dim i As Integer, j As Integer, c As Long
Dim n() As Integer
ReDim n(Len(l))
For i = 1 To Len(l)
n(i) = Val(Mid(l, i, 1))
For j = 1 To i - 1
If n(i) c = c + 1
End If
Next j
Next i
NiXuShu = c
End Function
这个子函数就是求逆序数的，不止是三位
654123的逆序数是5+4+3+0+0+0=12
望采纳。。。
2.vb语言逆序数的代码三位数
Private Function NiXuShu(ByVal l As String) As Long Dim i As Integer, j As Integer, c As Long Dim n() As Integer ReDim n(Len(l)) For i = 1 To Len(l) n(i) = Val(Mid(l, i, 1)) For j = 1 To i - 1 If n(i) < n(j) Then c = c + 1 End If Next j Next i NiXuShu = c End Function 这个子函数就是求逆序数的，不止是三位 654123的逆序数是5+4+3+0+0+0=12 望采纳。