有个vb的问题

你没有定义数据类型，只有定义为数字类型的才能做出正确的比较。
加入这个定义语句即可:dim a(10) as long
如下程序所示：
Option Explicit
dim a(10) as long
a(1)=31
a(2)=5
if a(1)>a(2) then
print a(1)&">"&a(2)
else
print a(1)&"<"&a(2)
end if

没发现你所说 的 问题
试运行这个 看看
Private Sub Command1_Click()
Dim a(10)
a(1) = 518
a(2) = 76
Print a(1) < a(2)
End Sub

Private Sub Command2_Click()
Dim a(10)
a(1) = 1
a(2) = 56
a(3) = 4

Print a(1) < a(3) And a(3) < a(2)

End Sub
或者 把你的代码发出来 让我们帮你解决一下

你有没有定义这个数组的类型？按照你给出的这个结果这个数组应该是字符串型的.如果要想比较数值的话，你应该声明数组为数值型的数组。