(弱智问题)我是新手,什么都不懂,以下功能如何实现 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → (弱智问题)我是新手,什么都不懂,以下功能如何实现

标题：(弱智问题)我是新手,什么都不懂,以下功能如何实现

取消只看楼主

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

楼主

问题点数：0 回复次数：2

(弱智问题)我是新手,什么都不懂,以下功能如何实现

先定义个变量为a,a = 取随机数 1-401的随机数,然后取得一个文件中的一串数据,数据的地址在(a-1)*69814+1,取出的长度为69814个字节

这怎么做??

搜索更多相关主题的帖子: 弱智　随机数　变量　

2006-02-09 16:58

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

第 2 楼

得分:0

还有一个问题,定义一个数组变量,然后打开一文本文件,以每个回车作为分割点把文本分割成N份放在那个变量中

这怎么做

[此贴子已经被作者于2006-2-9 17:03:40编辑过]

2006-02-09 16:59

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

第 3 楼

得分:0

以下是引用leon2在2006-2-9 19:57:00的发言：

先定义个变量为a,a = 取随机数 1-401的随机数,然后取得一个文件中的一串数据,数据的地址在(a-1)*69814+1,取出的长度为69814个字节

1.随机数用 Rnd 函数， a = Rnd(Int(401)) * 401，读取文件用 Open 文件名 For Binary As #1，用 Put #1, (a-1)*69814+1, byteBuf 来获取数据。

2. 写入某文件用 Open 文件名 For Output As #1，输出数据用 Write #1, 输出的文本
分隔数组变量用 str = Split(数组，分隔符(换行符是 vbNewLine))

感谢死了,等我赚了钱一定请你!

2006-02-09 21:52

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-44929-1-1.html