在窗体中有一个标签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 打开窗体后单击命令按钮，窗体中显示的内容是______。

A：4

B：5

C：10

D：40