查人人中国名人网鼻屎是怎么形成的图片:vb 关于数组
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/07 06:57:45
怎样把一组无规律数据快速导入数组。
对不起，不是随机数。是我现在手上有一大堆无规律的数据，我想把它导到数组里去。
对不起，不是随机数。是我现在手上有一大堆无规律的数据，我想把它导到数组里去。
不知你手上这批数据是以什么文件格式存储的，如果是文本文件，你可以用读取文件语句完成。
首先，把这些文件以下列格式存储（当然也可以是其它格式，不过读取语句可能要修改），文件名假设为temp.txt。
25
1253
111
...
其次，用下列语句完成读取：
dim a ,s(),i
open "temp.txt" for input as #1
do while not eof(1)
input #1,a
i=i+1
s(i)=val(a)
loop
close #1
这样，你的数据就在数组s() 中了。
如果你的数据是存储在数据库文件中，则要用数据库语句完成。请你参见VB对数据库的处理内容完成。
for i=n to x
c(i)=int(y*rnd+z)
next i
产生Y to Z之间的X－n个随机数
存入到C（i）中。