VBÁù¸öÊýÈ¡×î´óÖµºÍ×îСÊý

mxl=1                          && ×î´óµÄÎı¾¿ò±àºÅ
mnl=1                          && ×îСµÄÎı¾¿ò±àºÅ
mxn=val(thisform.text1.value)  && ×î´óµÄÊý
mnn=val(thisform.text1.value)  && ×îСµÄÊý
for i=2 to 6
    txi =('thisform.text'+allt(str(i  ))+'.value')
    txi=val(&txi)
    if mxn<txi
       mxl=i
       mxn=txi
    endif
    if mnn>txi
       mnl=i
       mnn=txi
    endif
endfor
thisform.label1.caption=str(mxl)
thisform.label2.caption=str(mxn)
thisform.label3.caption=str(mnl)
thisform.label4.caption=str(mnn)