现代无损检测的定义是：在不破坏试件的前提下，以物理或化学方法为手段，借助现代的技术和设备器材，对试件内部及表面的结构、性质、状态进行检查和测试的方法。

下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1() Dim Min As Integer,i As Integer arr1＝Array(12,435,76,-24,78,54,866,43) Min＝______ For i＝2 To 8 If arr l(i)＜Min Then______ Next i Text1＝Min End Sub