vb 提取两个最小值
发布网友
发布时间：2022-05-27 09:36
共1个回答
热心网友
时间：2023-10-14 18:08
Dim lListCount As Long
Dim i As Long
Dim sStr3 As String
Dim sStr31 As String
Dim iVal3 As Single
Dim iVal31 As Single
Dim iVal4 As Single
Dim iTmp As Single
arrList = Split(Text1.Text, vbCr) '
lListCount = UBound(arrList)
iVal3 = 3.402823E+38
iVal4 = 3.402823E+38
For i = 0 To lListCount - 1
If Len(Trim(arrList(i))) > 0 Then
arrItem = Split(arrList(i), ",")
iTmp = Val(arrItem(2))
If iVal3 > iTmp Then
iVal31 = iVal3
sStr31 = sStr3
iVal3 = iTmp
sStr3 = arrItem(0) & "," & arrItem(1)
End If
iTmp = Val(arrItem(3))
If iVal4 > iTmp Then iVal4 = iTmp
End If
Next
text2.Text = sStr31 & "," & iVal31 & vbCrLf & sStr3 & "," & iVal3 & vbCrLf & iVal4追问如果每行是5个数，要第4行和第5行的最小值，前面三行还是谁最小把谁的保留下来，像上面的那样。谢谢了
追答Dim arrList, arrItem
Dim lListCount As Long
Dim i As Long
Dim sStr3 As String
Dim sStr31 As String
Dim iVal3 As Single
Dim iVal31 As Single
Dim iVal4 As Single
Dim iTmp As Single
arrList = Split(Text1.Text, vbCr) '
lListCount = UBound(arrList)
iVal3 = 3.402823E+38
iVal4 = 3.402823E+38
For i = 0 To lListCount - 1
If Len(Trim(arrList(i))) > 0 Then
arrItem = Split(arrList(i), ",")
iTmp = Val(arrItem(3))
If iVal3 > iTmp Then
iVal31 = iVal3
sStr31 = sStr3
iVal3 = iTmp
sStr3 = arrItem(0) & "," & arrItem(1) & "," & arrItem(2)
End If
iTmp = Val(arrItem(4))
If iVal4 > iTmp Then iVal4 = iTmp
End If
Next
text2.Text = sStr31 & "," & iVal31 & vbCrLf & sStr3 & "," & iVal3 & vbCrLf & iVal4
