填空题

设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。
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

【参考答案】

Min=arr1(i)

<上一题目录下一题>

热门试题

填空题

下列事件过程的功能是：建立一个名为Data1的随机文件，存放角度值及这些角度的正弦函数值和余弦函数值，角度为1，2，3，…，90。请在空白处填上合适的代码，将程序补充完整。 Private Type Ang K As Integer Sinx As Single Cosx As Single End Type ______’定义Ang类型的变量KscPrivate Sub Form_Click()Dim Y As Single Open C: Data1.txt For Random As #1 Len=10 Put #l, 1, Ksc Y=3.14159 180 For i=1 To 90 Ksc.K = i _______ = Sin(i * Y)’给变量Ksc的正弦函数值赋值 Ksc. Cosx=Cos(i * Y) Next i Close #1End Sub

填空题

下列这个Sub过程的功能是：统计字符串中“a”的个数，请在空白处填上合适的代码，将程序补充完整。 Private Sub numCount() Dim num As Integer s$= software And hardware num=Len(s$) For i=1 To hum b$=______ If b$ = a Then x=x + 1 Next i Print x= ; x End Sub

相关试题