更多"下列程序段的运行结果是( )。 Subsele（ ） Dim n"的相关试题:
[单项选择]下列程序段的运行结果是( )。 Subsele（ ） Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End Sub
A. 2
B. 4
C. 5
D. 3
[单项选择]下面程序段执行的结果是
Dim i As Integer，S As Integer
S=0
For i=1 to 10 step 1
S=S+i
Next i
A. S=0
B. S=10
C. 死循环
D. S=55
[单项选择]下列程序段的运行结果是：
Private Sub Command1_Click（ ）
Dim n AS Integer
I =21: n = 3
do while I＞n
I=I- n
Loop
Print I
End Sub
在窗体上打印的结果是______。
A. 3
B. 5
C. 6
D. 8
[单项选择]下面程序段，运行后的结果是 Private Sub Commandl_Click( ) Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i)=i Next i t=Tof(b( ) ) Print"t="；t， End Sub Function Tof(a（ ） As Integer) Dim t#，i% t=1 For i=2 To UBound(a) t=t * a(i) Next i Tof=t End Function
A. t=18
B. t=24
C. t=30
D. t=32
[单项选择]下列程序段的执行的结果是 Dim a(10)，b(10) i=3 For j=1 To 5 a(j) =j b(i) =2 * i + j Next j Print b(i)；a(i)
A. 11 3
B. 3 15
C. 3 11
D. 15 3
[单项选择]程序段如下： 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 str As String * 10
Dim i
Str1=“abcdefg”
i=12
len1=Len(i)
str2=Right(str1，4)
执行后，len1和str2的返回值分别是（ ）。
A. 按要求显示部分查询记录
B. 消除重复出现的查询记录
C. 删除查询结果中符合条件的记录
D. 对查询结果进行排序
