运行下列程序： Private Sub Form Click() Sum=0 For i=1 To 100 If Mid(CStr(i)，1， 1)="1" Then Sum=Sum+1

admin2009-02-13 33

问题运行下列程序： 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

答案1

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

转载请注明原文地址:https://jikaoti.com/ti/7rq0FFFM

二级VB

相关试题推荐

随机试题

最新回复(0)