我遇到难题了，VB高手呢？

Question

本帖最后由 sihonglaoren 于 2011-05-27 00:12:04 编辑

Answer 1

你说的是排序，网上有很多算法。你Gooooogle一下。

Answer 2

本帖最后由 bcrun 于 2011-05-27 08:51:04 编辑

  

Answer 3

private sub Answer()
dim aName as PersonName
dim aTip as string
if aName="西西" then aTip="去你妹的吧,这么简单都不会,坑爹呢!"
if aName="clear_zero" or aName="莫依" then aTip="拿我俩当西西的替补是不!你妹!"
return aTip
end sub

Answer 4

确实很难啊,因为VB只提供了两个数字比较大小的操作呢,就是>和<, 同求高手解答.

Answer 5

我研究了下，感觉很繁琐啊，求高手继续
On Error Resume Next
Dim max, m, min As Integer
Dim i  As Integer
max = T(0).Text
If max - T(1).Text < 0 Then
    max = T(1).Text
       If max - T(2).Text < 0 Then
          max = T(2).Text
       End If
Else
        If max - T(2).Text < 0 Then
          max = T(2).Text
        End If
End If
min = T(0).Text
If min - T(1).Text > 0 Then
    min = T(1).Text
       If min - T(2).Text > 0 Then
         min = T(2).Text
        End If
Else
         If min - T(2).Text > 0 Then
         min = T(2).Text
         End If
End If
MsgBox "最大数是:" & max & "最小数是:" & min
For i = 0 To 2
   If max <> T(i).Text And min <> T(i).Text Then
   m = T(i).Text
   Exit For
   End If
Next
MsgBox "3个数大小顺序为:" & max & "    " & m & "   " & min
For i = 0 To 2
T(i) = ""
Next