作业帮 > 综合 > 作业

用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/22 13:09:19
用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.
Private Sub Form_Click()
Dim 数组, 最大值%, 最小值%, 临时串$, 计数%
临时串 = "1,-5,68,8,-23,0,478,21,5"
数组 = Split(临时串, ",")
最大值 = 数组(LBound(数组))
最小值 = 数组(LBound(数组))
For 计数 = LBound(数组) To UBound(数组)
If 数组(计数) < 最小值 Then 最小值 = 数组(计数)
If 数组(计数) > 最大值 Then 最大值 = 数组(计数)
Next
Print "最大值=" & 最大值, "最小值=" & 最小值
End Su