Private Sub Form_Load()
Dim p(1 To 62) As Single, s(1 To 62) As Integer, r(1 To 62) As Single, x(1 To 62) As Integer
Dim UF(1 To 62) As Single, E(1 To 62) As Single, Var(1 To 62) As Single
Dim pp(1 To 62) As Single, ss(1 To 62) As Integer, rr(1 To 62) As Single
Dim UFF(1 To 62) As Single, EE(1 To 62) As Single, Varr(1 To 62) As Single
Dim UB(1 To 62) As Single
h = InputBox("起始序数")
g = InputBox("结束序数")
n = g - h + 1
Open "C:\Users\liufang\Desktop\数据.txt" For Input As #1
For i = 1 To n
Input #1, x(i), p(i)
Next i
Close #1
For k = 2 To n
s(k) = 0
z = 0
For j = 1 To k
If p(k) > p(j) Then
z = z + 1
Else
z = z + 0
End If
Next j
r(k) = z
Next k
For k = 2 To n
For l = 1 To k
s(k) = s(k) + r(l)
Next l
本内容试读结束,登录后可阅读更多
下载后可阅读完整内容,剩余2页未读,立即下载