题目内容（请给出正确答案）

[主观题]

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

中各元素的最小值。请填空。

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 i

Text1=Min

End Sub

查看答案

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“下列程序的功能是：用Array函数建立一个含有8个元素的数组…”相关的问题

第1题

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

中各元素的最小值。请填空。

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

End Sub

点击查看答案

第2题

设有程序： Option Base 1 Private Sub Command1_Click（) Dim arr1,Max as Integer arr1＝Array（12

设有程序：

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个元素的数组，然后查找并输出该数组中元素的最大值。请填空。

点击查看答案

第3题

设有如下程序： OptionBase1PrivateSubCommand1_Click（） Dimarr1 DimMinAsInteger,iAsInt

设有如下程序：

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______

Print "最小值是："; Min

End Sub

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

点击查看答案

第4题

设有以下程序： Option Base 1 Private Sub Command1_Click（) Dim arr1 ,Max as Integer art1 =

设有以下程序：

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个元素的数组，然后查找并输出该数组中元素的最大值。

点击查看答案

第5题

下面程序的功能是：用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

点击查看答案

第6题

设有如下程序：Option Base 1Private Sub Commandl Click（)Dim arrlDim Min As Integer，i As Inte

设有如下程序：

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【】

Print"最小值是:";Min

End Sub

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

点击查看答案

第7题

设有如下程序 Option Base 1 Private Sub Command1_Click（) Dim arrl Dim Min As Integer，i As I

设有如下程序

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个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

点击查看答案

第8题

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

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

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

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

试题程序：

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

点击查看答案

第9题

（14）下列程序的功能是：找出给定的12个数中最大的一个数，然后输出这个数以及它在原来12个数中的位

置。请填空。 Option Base1 Private Sub Form_Click() Dim x x=Array(57,-9,17,42,-31,46,11,8,6,-4,3,90) Max=1 For k=2 To 10 Step 1 If x(k)＞x(Max)Then End If Next k y=_______ Print Max,y End Sub

点击查看答案

第10题

下列程序的功能是将数组的最大元素与第一个元素交换，最小元素与最后一个元素交换。阅读程序，在【__________】出填写合适的表达式（用英文符号，如非必要，标识符间不留空格）。 void max_min（int array[],int N) //N表示数组的元素个数 { int *max,*min,k,l; int *p,*arr_end; /***********SPACE***********/ arr_end=【_________】; max=min=array; for（p=array+1;p＜arr_end;p++) { if（*p＞*max) max=p; else if（*p＜*min) min=p; } k=*max; l=*min; *max=*array; *min=*（array+N-1); *array=k; *（array+N-1)=l; }

点击查看答案