下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组

End Sub

设有程序：

Option Base 1

Private Sub Command1_Click()

Dim arr1,Max as Integer

arr1＝Array(12,435,76,24,78,54,866,43)

【 】＝arr1(1)

For i＝1 To 8

If arr1(i)＞Max Then【 】

Next i

Print"最大值是:";Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

设有如下程序：

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 arr1（i） ＜ Min Then______

Next

Print "最小值是："; Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

设有以下程序：

Option Base 1

Private Sub Command1_Click()

Dim arr1 ,Max as Integer

art1 = Array(12,435,76,24,78,54,866,43)

【 】= arr1(1)

For i = 1 To 8

If arrl(i)＞Max Then【 】

Next i

Print "最大值："； Max

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。

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

设有如下程序：

Option Base 1

Private Sub Commandl Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12,435,76,-24,78,54,866,43)

Min=【 】

For i=2 To 8

If arrl(i)＜Min Then【 】

Next

Print"最小值是:";Min

End Sub

以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

设有如下程序

Option Base 1

Private Sub Command1_Click()

Dim arrl

Dim Min As Integer，i As Integer

arrl=Array(12，435，76，-24，78，54， 866， 43)

Min=____

For i=2 To 8

If arrl(i)＜Min Then

Next i

Print “最小值是：”；Min

End Sub

以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

下列给定程序中，函数fIm和funx的功能是：用二分法求方程的一个根，并要求绝对误差不超过0．001。 ．

例如，若给m输入一100，n输入90，则函数求得的二个根为2．000。

请改正程序中的错误，使它能得出正确的结果。

注意：不要改动main函数，不得增行或删行，也不得更改程序的结构!

试题程序：