UC知道编程2222
来源：百度知道 编辑：UC知道 时间：2024/09/28 00:23:34
5.找出数组中最小数（必须掌握）
Private Sub Form_click()
Dim_____ As Integer
For i = 1 To 10
a(i) = InputBox("")
Print a(i);
Next i
Print
m = a(1)
For i = 1 To 10
If a(i)<m Then
_____
End If
Next i
Print m
End Sub
Private Sub Form_click()
Dim_____ As Integer
For i = 1 To 10
a(i) = InputBox("")
Print a(i);
Next i
m = a(1)
For i = 1 To 10
If a(i)<m Then
_____
End If
Next i
Print m
End Sub
a(10)
m=a(i)
Private Sub Form_click()
Dim [a(10)] As Integer //这里需要定义一个10个元素的数组
For i = 1 To 10 //自己输入10个数到数组
a(i) = InputBox("")
Print a(i);
Next i
Print
m = a(1) //给m赋初值
For i = 1 To 10 //找出比m的值小的循环
If a(i)<m Then
[m=a(i)] //找到了比m小的值 将其值付费m
End If
Next i
Print m
End Sub
Dim a(10) As Integer，m AS Integer
'这里需要定义
m=65535
For i = 1 To 10
a(i) = InputBox("")
Print a(i);
IF m<A(I) THEN
M=A(i)
ENDIF
Next i
Print
Print "min=" ,m