有如下程序段： Dim str As String*10 Dim i Strl="abcdefg" i=12 lenl=Len(i) str2=Right(str1,4) 执行后，len1和str2的返回值分别是______。

A．12,abcd

B．10,bcde

C．2,defg

D．0,cdef

[单选题]有如下程序段： 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 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

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

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

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

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

[单选题]有如下程序段：Private Sub Command1_Click( ) Dim a As Integer a=2 For i=1 To 3 Print G(A)Next iEnd SubFunction G(a As Integer) b=0 Static c b=b + 1 c=c + 1 G=a + b + cEnd Function运行上面的程序后，单击命令按钮，输出结果为A．1 2 3B．2 3 4C．4 5 6D．1 4 6

[单选题]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 iA．9B．10C．11D．12

[单选题]有如下程序： Private Sub Commandl_Click() Dim a As Integer a=2 For i=1 To 3 Print Gad (A)Next i End Sub Function Gad (a As Integer) b=0 Static c b=b + 1 c= c + 1 Gad= a + b + C End Function 运行上面的程序后，单击命令按钮，输出结果为A．1 2 3B．2 3 4C．4 5 6D．1 4 6

[单选题]有如下程序。 Private Sub Commandl_Click() Dim a As Single Dim b As Single a=5:b=4 Call Sub1 ( a,B)End Sub Sub Subl(x As Single, y As Single) t=x x=t/y y = t Mod y End Sub 在调用运行上述程序后，a和b的值分别为A．0 0B．1 1C．2D．1 2