举个例子：比较a,b,c,d四个数字的大小，取Xmin=最小的数字。例如：1，2，3，4，则Xmin=1；如果1，2，0，3，则Xmin=1，全为0时，Xmin=0 新建一个工程 上面建成一个text1再复制三个，生成了个控件数据 再搞一按钮，复制下面的代码就可以了，测试没有问题， Dim a(4) ‘定义数组 Private Sub Command1_Click() For j = 1 To 4 a(j) = Text1(j - 1).Text ’
这里为了简单我就用数组控件了 Min = a(1) flag = 1 For i = 2 To 4 a(i) = Text1(i - 1).Text If Min > a(i) Then If Min = 0 Then Min = a(i) End If If a(i) = 0 Then Min = Min End If Min = a(i) flag = i End If Next i Next j MsgBox Min End Sub 测试没有问题哦…… 如果不想用控件数组的请，建四个文本框，写上a(1) = Text1.Text a(2)=text2.text…………
