在窗体中有一个标签Lbl和一个命令按钮Commandl，事件代码如下： Option Compare Database Dim a As String*10 Pfivae Sub Commandl_Click() a＝“1234” b＝Len(a) Me.Lbl.Caption＝b End Sub 打开窗体后单击命令按钮，窗体中显示的内容是( )。

A．SUM
B．AVG
C．MAX
D．COUNT

A．a＝5:b=8 Do a＝a+1 Loop While a＜b
B．a＝5:b＝8 Do a＝a+1 Loop Until a＜b
C．a＝5:b＝8 Do Until a＜b b＝b+1 Loop
D．a＝5:b＝8 Do Until a＞b a＝a+1 Loop