Question

用VB编写一个程序在一堆数中找出前10000个数中最小的奇数

数据在文件中，不知道数据个数，但数据肯定大于10000个。

Answer 1

首先把数据读到数组中，比如a（）
然后设一个变量i，值是比数组里所有数都要大的数就可以了。
之后开始循环，比如for j=1 to 10000
循环里首先判断数组里对应的数是不是奇数，
是的话再判断a（j）-i 是不是小于0
是的话 i=a（j）
这样FOR循环结束后，
i 就是里面最小的奇数。

Answer 2

open "c:\data.txt" for input as #1
dim i as integer
dim a as long
dim t as long

t=214000000

for i=1 to 10000
input #1,a
if a mod 2<>0 then
if t>a then t=a
endif
next
close #1
msgbox t

追问

前提是不知道里面的数最大的是多少 最小的是多少 还有不知道里面有多少个数

追答

但数据肯定大于10000个，这是你题里说的。