为什么进行减压蒸馏时须先抽气才能加热？

在窗体中有一个标签Lbl和一个命令按钮Command1，事件代码如下：
Option Compare Database
Dim a As Strmg * 10
Private Sub Command1_Click()
a="1234"
b=Len(a)
Me．Lbl．Caption=b
EndSub
打开窗体后单击命令按钮，窗体中显示的内容是( )。

A．4

B．5

C．10

D．40