谁有关于BASIC发展史的资料?我想了解一下?

cy_nwau 2001-12-12 02:15:43
谁有关于BASIC发展史的资料?我想了解一下?
...全文
107 12 打赏 收藏 举报
写回复
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
vcbug 2002-01-28
  • 打赏
  • 举报
回复
to KiteGirl(小仙妹):
你的回答真是令我惭愧啊,我都到可以做你大叔的年纪拉(快30),研究B的历史还不如你长,看来你真是年轻有为啊,还是个姑娘,更是令我等敬佩啊。
aladings 2002-01-25
  • 打赏
  • 举报
回复
等我明天答复你!!!
zyl910 2002-01-25
  • 打赏
  • 举报
回复
前几天在研究 QB内嵌汇编 时发现:
QBASIC 1.1 顺序
Quick BASIC 4.5 顺序
Quick BASIC 7.1 链表

所以许多 QB内嵌汇编 的程序 不能在 QB7.1 中运行!
田九 2002-01-25
  • 打赏
  • 举报
回复
问 比 尔 吧
KiteGirl 2002-01-25
  • 打赏
  • 举报
回复
回vcbug(今夜最后一次陪你而醉)、lihonggen0(用VB):

我今年20岁了,我用Apple IIe的时候是9岁的小孩。如果从第一次用PRINT语句开始,那我用BASIC应该有十年了。不过时间长未必就懂得的更多。
KiteGirl 2002-01-25
  • 打赏
  • 举报
回复
zyl910(910:分儿,我来了!):
我实在对这个问题没啥研究,但是我猜测是这样的:如果语言中提供灵活的插入字符串的功能,那大概是链表。我个人一直认为QB是顺序的。
lihonggen0 2002-01-25
  • 打赏
  • 举报
回复
To KiteGirl(小仙妹):
你多大了啊,你的QB学得不错吗?
vcbug 2002-01-25
  • 打赏
  • 举报
回复
To KiteGirl(小仙妹):
你多大了啊,89年就开始搞b了?
cy_nwau 2002-01-25
  • 打赏
  • 举报
回复
我对QB有一定了解,楼上的有问题你可以问。
zyl910 2002-01-25
  • 打赏
  • 举报
回复
To KiteGirl(小仙妹):你的QB学得不错吗?我有问题要请教你:
以下三个版本的QB,它们对字符串的处理是怎样的(顺序 还是 链表)?
QBASIC 1.1
Quick BASIC 4.5
Quick BASIC 7.1

这里为什么没有QB区,我有一些QB高难度问题!
cy_nwau 2002-01-25
  • 打赏
  • 举报
回复
谢谢,我一定给你分。
KiteGirl 2002-01-25
  • 打赏
  • 举报
回复
提起这些真是令人感慨啊!以下是本人的一点心得,但不是全部历史。以下所举程序例子其实是同一个功能的程序:

行号时代:

1、使用Goto转移实现条件循环。
2、使用Gosub……Return实现子程序。

程序例子:[MS BASIC]

10 Xm=INT(RND*100)
30 IF X<Xm Then X=X+1
40 IF X>Xm Then X=X-1
44 IF INKEY$=CHR$(27) Then END
45 LOCATE 1,1
46 PRINT X
50 IF Not X=Xm Then Goto 30
60 Goto 10

典型语:MS BASIC、GW BASIC、Apple BASIC

结构化时代:针对行号BASIC的杂乱无章的程序恶习进行改进。

1、使用Do……Loop实现条件循环(早期是While……End While,后期被淘汰了。)
2、使用Sub……End Sub、Function …… End Fucntion。编写函数和子程序。

典型语言:QuickBASIC Edit[For DOS]、QuickBASIC 4.5、MS BASIC 7.0

程序例子:[QuickBASIC/MS BASIC 7.0]

Xm=INT(RND*100)
Do
Do
If X<Xm Then
X=X+1
ElseIf X>Xm Then
X=X-1
End If
Locate 1,1:Print X
Loop Until X=Xm Or Inkey$=Chr$(27)
Xm=INT(RND*100)
Loop Until Inkey$=Chr$(27)

VB时代

1、面向对象和控件的编程。
2、更完善的数据类型。
3、更完善的Sub……End Sub、Function …… End Fucntion。
4、For Each …… Next语句

程序例子:[VBScript和VB 6.0]

VBScript代码:

Dim X
Dim Xm
Dim LoopCode

Sub document_onload()
Xm=NewX
LoopCode=setTimeout("TimerLoop()",1)
End Sub

Function NewX()
NewX=Int(Rnd*100)
End Function

Sub TimerLoop()
If X<Xm Then
X=X+1
ElseIf X>Xm Then
X=X-1
Else
Xm=NewX
End If
idViewText.innerText=X
LoopCode=setTimeout("TimeLoop()",1)
End Sub


VB6.0代码

Public X As Single
Public Xm As Single

Private Sub Form_Load()
Xm=NewX
End Sub

Function NewX() As Single
NewX=Int(Rnd*100)
End Function

Private Sub Timer1_Timer()
If X<Xm Then
X=X+1
ElseIf X>Xm Then
X=X-1
Else
Xm=NewX
End If
Text1.Text=X
End Sub

典型语言:Visual Basic 6.0、VBScript、VBA

以下是小仙妹的个人经历:
1、1989年小仙妹第一次用的是Apple IIe上的BASIC。[行号BASIC]
2、1992年在PC上用的是MS BASIC[行号BASIC]
3、1994年在PC上DOS下使用Quick BASIC,第一次可以编译成EXE文件。[结构化BASIC]
4、1999年使用VBScript
5、2000年转用Visual BASIC 6.0
发帖
VB基础类

7681

社区成员

VB 基础类
社区管理员
  • VB基础类社区
加入社区
帖子事件
创建了帖子
2001-12-12 02:15
社区公告
暂无公告