问题
单项选择题
运行下列程序：
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．12
B．13
C．14
D．15
答案
参考答案：A
解析：[分析] 本题的功能是将1～100之间以“1”为开头数的个数加起来，其结果赋值给变量 Sum，最终结果为12。Mid(x，n1，n1)从x字符串左边第n1个位置开始向右起取n1个字符， CStr(n)将一数值n转换成第一位非空字符的字符串型。