设有如下程序段,其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容,将程序补充完整。
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(1)
For i=2 To 8
If arr1(i)<Min Then
Next i
Print "最小值是:"; Min
End Sub
题库:计算机等级考试
类型:填空题
时间:2017-07-03 15:44:53
免费下载:《填空》Word试卷
设有如下程序段,其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容,将程序补充完整。
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(1)
For i=2 To 8
If arr1(i)<Min Then
Next i
Print "最小值是:"; Min
End Sub
本题关键词:当场处罚程序,建设程序,设计变更申请程序,施工组织设计审查程序,程序,处方销毁程序,应急处置程序,价值工程工作程序,程序性审查,水利工程建设程序;