求助一道ACCESS窗体设计题的代码

Question

求最小值的那个按钮代码怎么写啊？

Answer 1

dim Min_Data as interger
dim i as interger
min_data=a(1)

for i=2 to 10
if min_data>a(i) then min_data=a(i)
next
label1.capation=min_data