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

运行下列程序： 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  29
问题 运行下列程序：    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题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)