单项选择题

在窗体中有一个标签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