如何用VB实现QBASIC中的data数据的read

如何用VB实现QBASIC中的data数据的read，在QBASIC中可以实现DATA1，2，7，9 然后再read到一个变量中。如果用vb实现，那种方法最简单
Private Sub Command1_Click()
Dim A, B, C, D As Integer
READ A, B, C, D
X = B + D
RESTORE 130
READ A, B, C, D
Y = B + D
RESTORE
For J = 1 To 8
READ A
Print A
Next J
X = X + Y + A: Print X
Data 1, 2, 3
Data 4, 5, 6
Data 7, 8, 9
End
End Sub

还是直接用数组吧

vb已经不支持read——data
当年basic程序和数据混在一起是不对的
数据与应用程序分离是对的。
你可以用txt文件，也可以用excel、桌面数据库等等……来存储数据。程序访问他们就是了

非要这样做的话，自己写一个函数来“模仿”就行了：
（当然函数名不能是read了，必然用其它的名字）
1.用一个数组来存储数据。
2.用array给数组赋值代替“DATA语句”，
　也可用其它方式对数组初始化及对所有数组元素赋值。
3.调用相应的“模仿函数”实现数据读取，以及“数据指针”后移。

老师请给一个简洁，好用的代码例子，学习一下ｖｂ数组数据的输入

楼主怎么会知道QBasic又突然要问VB呢

@初音✨七奈：请看下面这张图片。

语句中　Read是蓝色着色的，可见它肯定是VB的“关键字”。
不过我也“实测”了一下，确实能够用 read 作为函数名。
并且：函数名的“read”是全小写、或者全大写，
　　那个Open语句中的 Read　不会跟着变化。
这只能说是“意外”了…………

请您写一个ｖｂ模仿　read——data　的函数　实现数据读取
将已知数据放在ｄａｔａ（或另一处语句下面），通过读取，赋值与数组
比起来放在一个文件，再读取放到数组，能不能好些。
确是个人愚见

我觉得你的问题是不会把思路转换成代码……
给你写一个模拟READ和DATA功能的模块代码吧：
Private Arr(), Count As Integer, Index As Integer
Public Sub Data(ParamArray a())
Dim i As Integer
For i = 0 To UBound(a)
ReDim Preserve Arr(Count)
Arr(Count) = a(i)
Count = Count + 1
Next i
End Sub
Public Sub Read(ParamArray a())
Dim i As Integer
For i = 0 To UBound(a)
a(i) = Arr(Index)
Index = Index + 1
Next i
End Sub
使用时，必须先写Data后写Read，而不能像原来的BASIC那样把DATA的位置随便放，因为实现原理不同（毕竟只是模拟）

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

17回复贴，共1页

<<返回vb吧

分享到:

日	一	二	三	四	五	六