[单项选择题] 运行下列程序： Private Sub Form Click() Sum=0 For i=1 To 100If Mid(CStr(i)，1， 1)="1&

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

A．12

B．13

C．14

D．15

A

[分析] 本题的功能是将1～100之间以“1”为开头数的个数加起来，其结果赋值给变量 Sum，最终结果为12。Mid(x，n1，n1)从x字符串左边第n1个位置开始向右起取n1个字符， CStr(n)将一数值n转换成第一位非空字符的字符串型。