设有如下程序段：

D．im a(10)

…

F．or Each x 1n a

Print x；

Next x

在上面的程序段中，变量x必须是

A．整型变量

B．变体型变量

C．动态数组

D．静态数组

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

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

[单选题]设有如下程序段：x=2F．or i=1 To 10 Step 2x=x+iNext运行以上程序后，x的值是（ ）。A．26B．27C．38D．57

[单选题]设有如下程序段： x=2 For i=1 To 10 Step 2 x=x+i Next 运行以下程序后，x的值是( )。A．26B．27C．38D．57

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

[单选题]设有如下程序 Private Sub Command1_Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 5 x=n/i n=n+1 sum=sum +x Next i End Sub 该程序通过For循环来计算一个表达式的值，这个表达式是______。A．1+1/2+2/3+3/4+4/5B．1+1/2+1/3+1/4+1/5C．1/2+2/3+3/4+4/5D．1/2+1/3+1/4+1/5

[单选题]设有如下程序： Private Sub Command1_ Click() Dim sum As Double, x As Double sum=0 n=0 For i=1 To 3 x=n/i n=n+1 sum=sum+x Next i End Sub 该程序通过For循环来计算sum的值，sum值的精确结果是( )。A．1+1/2+2/3B．1+1/2+1/3+1C．1/2+2/3D．1/2+1/3

[单选题]设有如下程序： Private Sub Command1_Click() Dim c As Integer,d As Integer c=4 d=InputBox("请输入一个整数") Do While d＞0 If d＞c Then c=c+1 End If d=InputBox("请输入一个整数") Loop Print c+d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9和0，则输出结果是( )。A．12B．11C．10D．

[单选题]设有如下程序： Private Sub Command1_Click( ) Dim sum As Double，x As Double sum＝0 n＝0 For i＝1 To 5 x＝n/i n＝n+1 sum=sum+x Next End Sub 该程序通过For循环计算一个表达式的值，这个表达式是A．1+1/2+2/3+3/4+4/5B．1+1/2+2/3＋3/4C．1/2+2/3+3/4+4/5D．1+1/2+1/3+1/4+1/5