更多"下列程序段的运行结果是( )。 Sub sele（ ） Dim"的相关试题:
[单项选择]下面程序段，运行后的结果是 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
[单项选择]下列程序段的运行结果是：Private Sub Command1_Click（ ） Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A. 3
B. 5
C. 6
D. 8
[单项选择]有如下程序段：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 3
B. 2 3 4
C. 4 5 6
D. 1 4 6
[单项选择]下列程序段的运行结果是( )。 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
[单项选择]下面程序段的运行结果是( )。 Private Sub Form_Click（ ） For I=3 to 1 step-1 Print Spc(10-I)； For j=1 to 2*I-1 print"*"; Next j Print Next I End Sub
A. ***** *** *
B. * *** *****
C. * *** *****
D. * *** *****
[单项选择]下列程序段，运行后窗体上输出结果是( )。
Private Sub Command1_Click（ ）
a=5:b=4:c=3:d=2
x=3＞2*b Or a=c And b＜＞c Or c＞d
Printx
End Sub
A. 1
B. True
C. False
D. 2
[单项选择]下列程序运行时输出的结果是 Private Sub Form_Click（ ） Dim x x=Array(“天天向上”，“清华大学”，“天上人间”，“程序设计”) For i=LBound(a，1)to UBound(a，1) If Left(a(i)，1)=“天”Then Print a(i)； Next End Sub
A. 天天向上
B. 天天向上天上人间
C. 出错信息
D. 天天向上清华大学天上人间程序设计
[单项选择]下面程序运行后的结果是( )。 Private Sub Form_Click（ ） Dim s As Integer，k As Integer,i As Integer，n As Integer s=1 fori=1 to 3 forj=i to 3 for k=j to istep-1 s=s*k nextk,J,i print s End Sub
A. 6
B. 72
C. 144
D. 432
[单项选择]
设有如下程序段（）。
Dim a(10)
……
For Each x In a
Print x;
Next x
在上面的程序段中，变量x必须是
A. 整型变量
B. 变体型变量
C. 动态数组
D. 静态数组
[单项选择]下列程序段的执行的结果是 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 M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)
A. 12 4
B. 11 3
C. 3 11
D. 10 2
[单项选择]以下程序段的执行结果是 ______。 Dim a As Integer，b As Integer For a=4 To 1 Step-1 b=b+a Next a Print b， a
A. 100
B. 9 1
C. 10 1
D. 90
[单项选择]有如下程序段：
Dim str As String * 10
Dim i
Str1=“abcdefg”
i=12
len1=Len(i)
str2=Right(str1，4)
执行后，len1和str2的返回值分别是（ ）。
A. 按要求显示部分查询记录
B. 消除重复出现的查询记录
C. 删除查询结果中符合条件的记录
D. 对查询结果进行排序
