[file head]:
VERSION 5.00
Begin VB.Form frmYuFa
BackColor = &amt;H00FFC0FF&amt;
Caption = $"frmYuFa.frx":0000
ClientHeight = 6315
ClientLeft = 990
ClientTop = 2700
ClientWidth = 8595
LinkTopic = "Form1"
ScaleHeight = 6315
ScaleWidth = 8595
WindowState = 2 'Maximized
Begin VB.CommandButton write
BackColor = &amt;H00C00000&amt;
Caption = "WRITE语句"
Height = 255
Left = 2520
Style = 1 'Graphical
TabIndex = 165
Top = 3720
Width = 975
End
Begin VB.CommandButton read
BackColor = &amt;H00C00000&amt;
Caption = "READ语句"
Height = 255
Left = 360
Style = 1 'Graphical
TabIndex = 155
Top = 3360
Width = 975
End
Beg
... ...

[file tail]:
... ...

MoveStr Line12(8)
MoveStr Line12(9)
err = 5
MsgBox "缺少左括号——（"
Exit Sub
End If
MoveStr Line12(2)
i = i + 1: lstToken.ListIndex = i '读下一个符号
LabelStr = Left$(lstToken.List(i), 2)
MoveStr Line12(3)
expr_Click '表达式
If err > 0 Then Exit Sub
MoveStr Line12(4)
If LabelStr <> ")" Then
MoveStr Line12(10)
err = 6
MsgBox "缺少右括号——）"
Exit Sub
End If
MoveStr Line12(5)
i = i + 1: lstToken.ListIndex = i '读下一个符号
LabelStr = Left$(lstToken.List(i), 2)
MoveStr Line12(6)
stat_Click
MoveStr Line12(7)
End Sub

Private Sub write_Click()
MoveStr Line15(0)
i = i + 1: lstToken.ListIndex = i '读下一个符号
LabelStr = Left$(lstToken.List(i), 2)
MoveStr Line15(1)
expr_Click
MoveStr Line15(2)
If LabelStr <> ";" Then
MoveStr Line15(4)
err = 3
MsgBox "缺少分号——；"
Exit Sub
End If
MoveStr Line15(3)
i = i + 1: lstToken.ListIndex = i '读下一个符号
LabelStr = Left$(lstToken.List(i), 2)
End Sub