程序段如下： Dim i As Integer，s As Integer For i=4 To 1 Step-1 s=s+i Next i Print s，i执行的结果是( )。

A．10 0

B．9 1

C．10 1

D．9 0

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

[单选题]执行以下程序段 Dim i As Integer,X As Integer x=0 For i=20 To 1 Step -2 x=x+i/5 Next Print x 后,x的值为______。A． 16B．17C．18D．19

[单选题]有如下程序段： 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的值为( )。 Dim x As Integer,i As Integer x=0 For i=20 To 0 Step -2 x=x+i/5 Next iA．16B．17C．18D．19

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

[单选题]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

[主观题]D．im i, j as integer 表明i和j都是整型变量。( )

[判断题] Dim i, j as integer 表明i和j都是整型变量。A . 正确B . 错误

[单选题]有如下程序：Private Sub Form_Click()D．im i As Integer，Sum As IntegerSum=0F．or i=2 To 10If i Mod 2＜＞0 And i Mod 3=0 ThenSum=Sum+iE．ndIfNextPrint SumE．nd Sub程序运行后，单击窗体，输出结果为A．12B．30C．24D．18

[单选题]有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为A．12B．30C．24D．18