单项选择题

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