itgle.com

运行下列程序： 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．12B．13C．14D．15

题目

运行下列程序： 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.有如下程序：Option Base 1Private Sub Form_Click（）Dim arr, SumSum = 0arr = Array（1, 3, 5, 7, 9, 11, 13, 15, 17, 19）For i = 1 To 10If arr（i） / 3 = arr（i） \ 3 ThenSum = Sum + arr（i）End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（ ）。A．25B．26C．27D．28

2.阅读程序： Option Base 1 Private Sub Form. Click() Dim arr，Sum Sum= 0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为A．13B．14C．27D．15

3.阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr，Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub程序运行后，单击窗体，输出结果为A．13B．14C．27D．15

4.有如下程序： Option Base 1 Private Sub Form. Click() Dim arr,Sum Sum=0 alt=Array(1,3,5,7,9,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。A． 25B．26C．27D．28

参考答案和解析
正确答案：A
解析：本题的功能是将1～100之间以“1”为开头数的个数加起来，其结果赋值给变量Sum，最终结果为12。Mid(x，n1，n1)从x字符串左边第n1个位置开始向右起取n1个字符，CStr(n)将一数值n转换成第一位非空字符的字符串型。
更多“运行下列程序:Private Sub Form. Click()Sum=0For i=1 To 100If Mid(CStr(i),1, 1)="1" ThenSum= ”相关问题

  • 第1题：

    有如下程序： Option Base 1 Private Sub Form_Click() Dim arr，Sum Sum=0 alt=Array(1，3，5，7，9，11，13，15，17，19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

    A．25

    B．26

    C．27

    D．28


    正确答案：C
    解析：OptionBasel表示数组的下标是从l开始的。本题中先定义arr=Array(1，3，5，7，9，11，13，15，17，19)，即a(1)=1，a(2)=3，a(3)=5，a(4)=7，a(5)=9，a(6)=11，a(7)=13，a(8)=15，a(9)=17，a(10)=19，而在循环语句中就是要求把能被3整除的数加起来，即a(2)+a(5)+a(8)=3+9+15=27。

  • 第2题：

    阅读程序： Option Base 1 Private Sub Form_Click( ) Dim arr Sum Sum=0 arr=Array(1，3，5，7，9，11，13，15，17，19) For i=1 TO 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+art(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为

    A．13

    B．14

    C．27

    D．15


    正确答案：C
    解析：首先用Array函数为数组arr赋值10个元素数值。If语句表明当arr(i)为3的倍数时，就把该arr(i)加到变量Sum上，Sum的初始值为0。故本题的正确答案为：3+9+15，C项为正确答案。

  • 第3题：

    阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

    A．13

    B．14

    C．27

    D．15


    正确答案：C
    解析：整数除法运算符(\)执行整除运算，结果为整型值，所以“arr(i)/3=arr(i)\3”为数组arr元素值被3整除的条件。计算结果为：3+9+15=27。

  • 第4题：

    以下能够正确计算1+2+3+…+10的程序是

    A．Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub

    B．Private sub Command1_Click( ) Sum=0,I=1 Do While l＜=10 Sum=Sum+1 I=I+1 Print Sum End Sub

    C．Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I＜10 Print Sum End Sub

    D．Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I＜10 Print Sum End Sub


    正确答案：A
    解析：A选项进行10次循环，分别将1至10累加给Sum，故正确。选项B缺少Loop关键词，否则也是正确的。选项C与D由于受条件“Iclo'’限制，Do循环只能进行一次。

  • 第5题：

    有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)\3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为______。

    A．25

    B．26

    C．27

    D．28


    正确答案：C
    解析：本题考查的是数组赋值以及算术运算符“/”和“\”的区别。本程序段首先用Array函数给arr数组赋初值。“/”是浮点除法，执行标准除法操作，结果为浮点数。“\”为整数除法，整型整除运算，结果为整型值。本程序的功能是：找出arr数组中能被3整除的元素值，将其累加到sum中，然后输出。满足该条件的元素是3、9、15，和值为27。

相关内容