23 有如下程序段，该程序段循环的次数是______。 Dim i As Integer Dim j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 5 If j ＞ 3 Then k = k + 4: Exit For k=k+1 Print k Next j If i ＞ 8 Then Exit For Next i

A．9

B．10

C．11

D．12

[单选题]有如下程序段： Dim str As String * 10 Dim i Str1=“abcdefg” i=12 len1=Len(i) str2=Right(str1，4) 执行后，len1和str2的返回值分别是A．12，abcdB．10，bcdeC．2，defgD．0，cdef

[单选题]有如下程序段： Dim I As Integer I=Int(-3.25)执行后，I的返回值是A．-3B．-4C．3D．3.25

[单选题]有如下程序段，该程序段执行完后，执行循环的次数是total=0C．ounter=1D．oPrint Countertotal=total + CounterPrint totalC．ounter=Counter + 1If total > 10 ThenE．xit DoE．nd IfLoop While Counter <=10（ ）。A．5B．10C．15D．20

[单选题]有如下程序段，该程序段执行完后，执行循环的次数是 total=0 Counter=1 Do Print Counter total=total + Counter Print total Counter=Counter+1 If total＞10 Then Exit Do End If Loop While Counter ＜=10A．5B．10C．15D．20

[单选题]有如下程序段：Dim I As IntegerI=Int (-3.25)执行后Ⅰ的返回值是A．-3B．-4C．3D．3.25

[单选题]有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Print total Counter=Counter+1 If total>=10 Then Exit Do End lf Loop While Counter＜=10 End SubA．5B．10C．12D．20

[单选题]有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total＞=10 Then Exit Do End If Loop While Counter＜=10 End SubA．5B．10C．12D．20

[单选题]程序段如下： Dim i As Integer，s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s，i执行的结果是( )。A．10 0B．9 1C．10 1D．9 0

[单选题]有如下程序段： Dim str As String*10 Dim i Strl="abcdefg" i=12 lenl=Len(i) str2=Right(str1,4) 执行后，len1和str2的返回值分别是______。A．12,abcdB．10,bcdeC．2,defgD．0,cdef

[单选题]（22）设有如下程序段：D．im a(10)...F．or Each x In aPrint x;Next x在上面的程序段中，变量x必须是A．）整型变量B．）变体型变量C．)动态数组D．)静态数组