vb小白求解释一段代码 各位高人求指教!!!!

2024-11-25 06:07:53
推荐回答(2个)
回答1:

1首先 介绍一下FindMin 函数 参数是一个整形数组

Start = LBound 表示数组的下界
Finish = UBound 表示数组的上界
这两个主要是做循环用
Min = a 是初始化Min变量为数组第一个元素

  For i = Start To Finish
     'If a(i) < Min Then Min = a(i)
   Next i
这个代表遍历数组a 每一次循环 都会用当前最小数(也就是Min的值) 与数组a当前下标的元素比较 如果发现数组中的值小于 MIn就 把数组的值赋给MIn 这样每一轮结束 Min都是当前最小的
(就是一个从前往后依次比较的过程 )
都遍历完后Min的值就是数组中最小的 把它作为返回值返回
FindMin = Min

2 介绍按钮函数
arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
'就是将四个文本框的依次值 存入 数组arr1 中 注意文本框的值是字符串类型的 Val转完后是 double类型

For i = 1 To 4
    arr2(i) = CInt(arr1(i))
Next i
是将arr1中的值(double类型)强制转换为int 后存入arr2中 arr2 中的是int类型

M = FindMin(arr2)
将数组传给FindMin函数 找出最小值 赋值给M

回答2:

只是一个寻找最小数的程序:
1和2处分别是获取数组a()的下界和上界,便于后面的调用!!
3处的a(start)是指数组中的第一个元素!
4和5处分别是比较a(start)和min的大小,将最小的数值保存在min中!
6处的是填入实参,以便调用函数!!