Question

求助！vb.net数组问题

使用inputbox函数输入10个数，并存放在一个一维数组中，查找第一个大于20的数，第一个小于0的数，显示查找结果和它们的下标，比如
12 5 34 66 34 -5 77 -6 7 89
第一个大于20的数十34，下标为2
第一个小于0的数十-5，下标为5

求高手指教啊！

Answer 1

Sub Main()
Dim a(9) As Integer, e, f As Integer
e = -1
f = -1
For i = 0 To 9
a(i) = Val(InputBox("请输入第" & i + 1 & "个数"))
Console.Write(a(i) & " ")
If a(i) > 20 And e < 0 Then
e = i
End If
If a(i) < 0 And f < 0 Then
f = i
End If
Next
Console.WriteLine()
Console.WriteLine("第一个大于20的数是{0}，下标为{1}", a(e), e)
Console.WriteLine("第一个小于0的数是{0}，下标为{1}", a(f), f)
Console.ReadLine()
End Sub

Answer 2

dim a(0 to 9) as long
dim n as long ,m as long
n=-1
m=-1
for i = 0 to 9
a(i)=val(inputbox("输入"))
next
for i = 0 to 9
if a(i)>20 and m=-1 then m=i
if a(i)<0 and n=-1 then n=i
next
msgbox “第一个大于20的数是” & a(m) & " 下标：" & m & vbcrlf & “第一个小于0的数是” & a(n) & " 下标：" & n