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。编写函数和子程序。
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