问题
单项选择题
运行下列程序： 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转换成第一位非空字符的字符串型。