求教，怎样批量给字符串数组赋值？

主题：求教，怎样批量给字符串数组赋值？

riantboy [专家分：0] 发布于 2007-05-29 21:43:00

比如有一个数组a$(8)，想通过一个语句来把这8个值都输入进去，有没有类似a$(8)=["sdfa","fasda","Afdas","Adsfa","werwe","werwr"]这样的写法？

本帖地址： http://bbs.pfan.cn/post/235195.html

回复列表（共9个回复）

沙发

moz [专家分：37620] 发布于 2007-05-29 22:11:00

在QB里没有,
在VB里有=array(,,,)
不过你可以分成8行输入,
做人不要偷懒.

板凳

riantboy [专家分：0] 发布于 2007-05-29 22:21:00

问题是有10*8一共80个字符串阿。。。。。。
现在想到的是用data+read来实现，gwbasic是小学时候学的，现在都10多年了。。。

3 楼

moz [专家分：37620] 发布于 2007-05-29 23:09:00

相信我,8行,并不多,手工输一下.不要再用read了.

不过见你这么懒,我还可以介绍一种办法
s$="sdfa ,fasda,Afdas,Adsfa,werwe,werwr"
for i=1 to 8
a$(i)=rtrim$(mid$(s$,i*6-5,5))
next

4 楼

riantboy [专家分：0] 发布于 2007-05-29 23:28:00

moz果然强，真的被你说中了，我最后还是直接用了80行。。。。因为data好像不支持字符串？

你写的下面这个也好用，80行白写了-。-

5 楼

riantboy [专家分：0] 发布于 2007-05-29 23:35:00

又发现没白写，因为有10组类似a$(i),还都不规则，比如c,h,t,o,n，要写10段上面的for循环，还不如直接80行。。。。

6 楼

moz [专家分：37620] 发布于 2007-05-30 00:13:00

data 支持字符串
data "sdfa","fasda","Afdas","Adsfa","werwe","werwr"

7 楼

Matodied [专家分：7560] 发布于 2007-05-30 19:07:00

GW Basic早就淘汰了，因为它不符合结构化编程原则，即每行都必须有行号。
如下面的Qbasic程序：
a=1
b=2
c=a+b
PRINT c
如果用GW Basic必须写成：
10 a=1
20 b=2
30 c=a+b
40 PRINT c
这样的程序使得使用GOTO语句的机会增加，破坏了程序的块结构。

8 楼

staa [专家分：3690] 发布于 2007-06-06 09:19:00

QB也支持行号和行标，一样可以使用GOTO，从深层循环中跳出时可以考虑使用GOTO。

9 楼

yaoyusheng [专家分：460] 发布于 2007-07-20 18:08:00

你运行以下程序你就明白了

ABC$="abcdef"
CBA$="ghijkl"
N$=ABC$+CBA$
print N$
end

输入结果是:abcdefghijkl

给我加30分.

我来回复

您尚未登录，请登录后再回复。点此登录或注册

主题：求教，怎样批量给字符串数组赋值？

回复列表（共9个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

主题：求教，怎样批量给字符串数组赋值？

回复列表 （共9个回复）

我来回复

程序员工具箱 new

代码片段

本版新帖

回复列表（共9个回复）