用VB 找出(1,-5,68,8,-23,0,478,21,5)中的最大值和最小值,不能使用min()t max()之类的函数.
人气:239 ℃ 时间:2020-04-19 09:55:00
解答
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 Sub
推荐
- 在VB中寻找一个数组的最大值或最小值,可否用Max或Min函数?
- C++中的min和max函数的问题.
- matlab中输入20个数,求最大值和最小值,用循环语句和调用MAX函数和MIN函数来实现
- VB中max=min=a(0)是什么意思?
- y=a-bcosx的最大值是3/2,最小值是-1/2,求函数y=-4asin3bx的max,min,T,f和A
- slow和slowly的比较级各是什么,为什么要这样变?
- 3X的a+1次方乘y的b+2次方与2/5x的2次方是同类项,求2a的2次方乘b+3a的2次方乘b减1/2a的2次方乘b的值
- 在VSEPR理论中,作为配位原子时,计算中心原子的价层电子时为什么不考虑氧原子提供
猜你喜欢