运行下列程序：
Private Sub Form Click()
Sum=0
For i=1 To 100
If Mid(CStr(i)，1， 1)="1" Then
Sum=Sum+1
End If
Next i
Print Sum
End Sub
单击窗体后，在窗体上显示的结果是（）

A．ControlBox=True、MaxButton=False、MinButton=True
B．ControlBox=False、MaxButton=True、MinButton=True
C．ControlBox=True、MaxButton=False、MinButton=False
D．ControlBox=False、MaxButton=False、MinButton=False

A．400
B．10000
C．30000
D．90000