Question

vb编程:找出一维数组中负数的最大值和正数的最小值

写出代码，急求！！谢谢啦！

Answer 1

1、遍历数组进行比较查找即可。
2、vb6示例代码：
Option Explicit

Private Sub Command1_Click()
Randomize Timer

Dim a(9) As Integer, i As Integer
Dim x, Fp As Integer, Zp As Integer

For i = 0 To 9 '模拟生成一个随机数组
a(i) = 50 - Rnd * 100
Debug.Print a(i); " ";
Next
Debug.Print
Fp = -32768: Zp = 32767
For Each x In a '遍历数组进行比较
If x > 0 Then
If Zp > x Then Zp = x
Else
If Fp < x Then Fp = x
End If
Next
Debug.Print "负数中的最大数是:"; Fp; " 正数中的最小数是:"; Zp

End Sub

Answer 2

设已有一维数组a[1]~a[n]
max=-999999
min=999999
for i=1 to n
if a[i]<0 And a[i]>max Then Max = a[i]
if a[i]>0 And a[i]<min Then Min = a[i]
Next i
Print Max
Print Min