[file head]:
VERSION 5.00
Begin VB.Form frmYuYI
AutoRedraw = -1 'True
BackColor = &amt;H0080FF80&amt;
Caption = "语 义 分 析 "
ClientHeight = 8310
ClientLeft = 165
ClientTop = 735
ClientWidth = 8880
LinkTopic = "Form3"
ScaleHeight = 8310
ScaleWidth = 8880
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin VB.ListBox lstToken
BackColor = &amt;H000080FF&amt;
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2220
ItemData = "frmYuYi.frx":0000
Left = 120
List = "frmYuYi.frx":001F
TabIndex = 16

... ...

[file tail]:
... ...
Code.ListCount - 1
codep = codep + 1
frmOutput.Label1.Caption = "新增一条指令"
frmOutput.Show 1
MoveStr Line12(7)
'设置LABEL2
frmOutput.lstCode.AddItem "Label" &amt; Label2 &amt; "：" '输出指令
frmOutput.lstCode.ListIndex = frmOutput.lstCode.ListCount - 1
codep = codep + 1
frmOutput.Label1.Caption = "新增一条指令"
frmOutput.Show 1
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
If err > 0 Then Exit Sub
MoveStr Line15(2)
If LabelStr <> ";" Then
MoveStr Line15(4)
err = 3
MsgBox "缺少分号——；"
Exit Sub
End If
'输出OUT指令
frmOutput.lstCode.AddItem " OUT " '输出指令
frmOutput.lstCode.ListIndex = frmOutput.lstCode.ListCount - 1
codep = codep + 1
frmOutput.Label1.Caption = "新增一条指令"
frmOutput.Show 1
MoveStr Line15(3)
i = i + 1: lstToken.ListIndex = i '读下一个符号
LabelStr = Left$(lstToken.List(i), 2)
End Sub