如何判别大小

Question

dim i as integer
 i=a
dim temp as integer  '定义缓冲区if temp<b then
 temp=i
 i=b
 b=temp

Answer 1

1 把这几个数字放到数组里
2 设置一个变量i，将这个变量初始化 i=0
3 用循环逐一将数组元素与变量i进行比较，如果该数组元素值大于i,那么i=该数组元素值,循环结束后i中应该保存的是最大的值。
自己试试吧！！！！！！

Answer 2

数据id如果放在表table中
Dim rs As New Recordset
    rs.Open "select max(convert(int,id)) from Table"

Answer 3

大学上C/Basic/ASM/Fortran/pas之类的时候 会介绍几种排序算法

Answer 4

Sub Sort(Arr() As Integer, Length As Integer)
Dim i, j, intTmp As Integer
For i = 1 To Length
   For j = 1 To Length
   If Arr(i) > Arr(j) Then
      intTmp = Arr(i)
      Arr(i) = Arr(j)
      Arr(j) = intTmp
    End If
 Next
 Next
End SubPrivate Sub Command1_Click()
Dim NewArr(1 To 10) As Integer, i As Long
For i = 1 To 10
    NewArr(i) = Int(Rnd() * 25 + 1)
Next
For i = 1 To 10
Debug.Print NewArr(i)
Next
Sort NewArr, 10
Debug.Print "_---------------------------------------------"
For i = 1 To 10
    Debug.Print NewArr(i)
Next
End Sub