设有如下程序 查找并输出该数组中的最小值 请在空白处填上合适的代码 将程序补充完整。 Option

大学专科 已帮助: 时间:2023-07-22 11:37:27

设有如下程序,查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。 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 = arr1(l) For i=2 To 8 If arr1(i) < Min Then Next i Print "最小值是:"; Min End Sub
请帮忙给出正确答案和分析,谢谢!

难度:⭐⭐⭐

题库:大学专科,电子信息,计算机类

标签:请在,最小值,程序

参考解答

用户头像

4jj***264

2023-07-22 11:37:27

正确答案:Min=arr1(i)
题目要求输出数组中的最小值,分析程序可知,本程序求数组最小值的算法是:假设最小的值是第一个数组元素,并把它存在Min变量中,然后从数组的第二个元素开始逐个与Min变量对比,如果有比Mim更小的数,则赋值给Min,这样对比到数组最后一个元素时,就能找到最小的元素,且它存储在Min变量中,因此最后只要输出Min变量值即可。

上一篇 列表框的List属性返回______。请帮忙给出正确答案和分析 谢谢!

下一篇 Text文本框接受的最长字符数由文本框的______属性确定。请帮忙给出正确答案和分析 谢谢!

相似问题