Question

VB比较TEXT数值

VB中，有text1到text11十一个TEXT窗口（内容为1-3位数字），我想把TEXT窗口中最小值、次小值和最大值、次大值找出来，赋予a，b，c，d请提供代码，谢谢

Answer 1

Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim i As Integer, k As Integer
For i = 1 To 11
   k = Val(Controls("Text" & i).Text)
   If i = 1 Then
      a = k : b = k : c = k : d = k
   ElseIf a > k Then
      b = a : a = k
   ElseIf c < k Then
      d = c : c = k
   End If
Next
Print "最小值是："; a
Print "次小值是："; b
Print "最大值是："; c
Print "次大值是："; d

 建议你把那11个文本框做成控件数组（比如Text1(0)、Text1(1)……Text1(10)），这样才符合标准，而且可以提高运行效率。如果是控件数组，那么上述代码的3、4、5行修改为：

For i = 0 To 10
   k = Val(Text1(i).Text)
   If i = 0 Then

Answer 2

先设最大值a,次大值b，最小值c，次小值b
从text1起，先赋予a，b，c，d
a=text1
b=text1
...
再比较text2，如果比a大，则：
if text2>a then 'a等于text2，否则b=text2
a=text2
c=text1
else
b=text2
d=text1
end if
再比较text3：
'比最大
if a>text3 then
if b<text3 then b=text3
else
b=a
a=text3
end if
'比较最小
if c>text3 then
d=c
c=text3
else
if d>text3 then d=text3
end if
接着同上比较text4...一直下去就OK了。

Answer 3

挨个比较