更多"以下程序段的执行结果是 ______。 Dim a As Integ"的相关试题:
[单项选择]下面程序段执行的结果是
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
[单项选择]程序段如下：
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
[单项选择]执行以下程序段后，x的值为( )。
Dim x As Integer,i As Integer
x=0
For i=20 To 0 Step -2
x=x+i/5
Next i
A. 16
B. 17
C. 18
D. 19
[单项选择]下列程序段的运行结果是( )。
Sub sele（ ）
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
[单项选择]设执行以下程序段时依次输入2，4，6执行结果为
Dim a(4) As Integer,b(4) As Integer
For k =0 To 2
a(k + 1) = Val(InputBox( "Enter data:" ) )
b(3 - k) =a(k + 1)
Next
Print b(k)
A. 2
B. 4
C. 6
D. 0
[单项选择]有如下程序段：
Dim I As Integer
I=Int(-3.25)
执行后，I的返回值是
A. -3
B. -4
C. 3
D. 3.25
[单项选择]有如下程序段：
Dim I As Integer
I=Int(-3.25)
执行后，I的返回值是
A. -3
B. -4
C. 3
D. 3.25
[单项选择]
下面程序段的运行结果是（）。
INTEGER A(3,3)
DO 10 K=1,3
DO 10 L=1,3
10 A(K,L)=K*10+L
WRITE(*,'(1X,3I3)')A
END
A. 11 12 13
B. 11 21 31
C. 11 22 33
D. 11 12 13
[单项选择]下面程序段的运行结果是（）。
INTEGER FNF
FNF(X，Y)=X/Y+X
A=-2.0
B=4.0
B=I.0+FNF(A，B)
WRITE(*，′(F5.1)′)B
END
A. -1.0
B. 0.0
C. 1.0
D. 2.0
[单项选择]
下面程序段的运行结果是（）。
INTEGER FNF
FNF(X，Y)=X/Y+X
A=-2.0
B=4.0
B=I.0+FNF(A，B)
WRITE(*，′(F5.1)′)B
END
A. -1.0
B. 0.0
C. 1.0
D. 2.0
[单项选择]以下程序的输出结果是( )。
Dim varl
Dim var2
Dim var3
varl＝"HellO"
var2＝"World!"
var3=varl & " " & var2
varl＝10
var2＝20
NsgBox varl＋var2
A. Hello world!
B. 30
C. 1020
D. Hello world!
[单项选择]以下程序的输出结果是( )。
Dim varl
Dim var2
Dim var3
varl="Hello"
var2="World!"
var3=varl & " " & var2
varl=10
var2=20
MSgBox var l+var2
A. Hello World!
B. 30
C. 1020
D. Hello World!
[单项选择]下列程序段的执行的结果是 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
[单项选择]设执行以下程序段时依次输入1、3、5，执行结果为______ 。
Dim a(4)As Integer
Dim b(4) As Integer
For K=0 To 2
a(K+1)=Val(1nputBox(“请输入数据：”))
b(3-K)=a(K+1)
Next K
Print b(K)
A. 1
B. 3
C. 5
D. 0
[单项选择]执行以下语句后显示结果为 ______。
Dim X As Integer
If x Then Print X Else Print x-1
A. 1
B. 0
C. -1
D. 不确定
[单项选择]执行以下语句后显示结果为 ______。
Dim x As Integer
If x Then Print x Else Print x-1
A. 1
B. 0
C. -1
D. 不确定
