单项选择题

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