更多"[单选题]有如下程序:Dim zxs As IntegerZxs%=2"的相关试题:
[单选题]第288题 （1.0分）
有如下程序.
Dim zxs As Integer
Zxs%=232
Zxs=232.32
Print zxs%;zxs
运行后,输出结果是().
A.232232032
B.232232
C.232.32232.32
D.显示出错信息
[单选题]有如下程序,该段程序将().
Private Sub Command1_Click()
Dim i AS Integer, k AS Integer
For i=1 To 10 Step 0
K = k + 2
Next i
End Sub
A.形成无限循环
B.循环体执行一次后结束循环
C.语法错误
D.循环体不执行即结束循环
[单选题]有如下程序:
Dim a As String,b As String
A=12345
H="abcde"
For i=1 To 5
C=c+Left(a,i)+Right(b,i)
Next i
Print c
运行后输出的结果是().
A.alb2c3d4e5
B.1a2b3c4de5
C.eld2c4b5eld2c3b4a5
D.1e12del23cdel234bcdel2345abcde
[单选题]第291题 （1.0分）
有如下程序.
Dim a As String,b As String
A=12345
H="abcde"
For i=1 To 5
C=c+Left(a,i)+Right(b,i)
Next i
Print c
运行后输出的结果是().
A.alb2c3d4e5
B.1a2b3c4de5
C.eld2c4b5eld2c3b4a5
D.1e12del23cdel234bcdel2345abcde
[单选题]有如下程序,该程序的执行结果为().
Dim k As Integer
N=5
M=1
K=1
Do until k>n
m=m*2
k=k+1
Loop
Print m
A.1
B.5
C.32
D.40
[单选题]第209题 （1.0分）
有如下程序,该程序的执行结果为().
Dim k As Integer
N=5
M=1
K=1
Do until k>n
m=m*2
k=k+1
Loop
Print m
A.1
B.5
C.32
D.40
[单选题]设有如下程序:
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/5
B.1+1/2+2/3+3/4
C.1/2+2/3+3/4+4/5
D.1+1/2+1/3+1/4+1/5
[单选题]题 （1.0分）
有如下程序.
Dim arr(3,3)
For j=1 To 3
For k=1 To 3
Arr(j,k)=(j-1)*3+k
Next k
Next j
For j=2 To 3
For k=2 To 3
Print arr(k,j);
Next k
Print
Nextj
运行后,输出的结果是().
A.2 5 3 6
B.5 8 6 9
C.4 7 5 8
D.5 9 6 8
[单选题]题 （1.0分）
有如下程序.
Const n=-5.Const M=6
Dim a(n To M)
For i=Lbound(a,1) To Ubound(a,1)
A(i)=I
Next I
Print a(Lbound(a,1));a(Ubound(a,1))
运行后输出结果为().
A.0 0
B.-5 0
C.-5 6
D.0 6
[单选题]题 （1.0分）
如下程序.
运行的结果是().
Dim a%, b%, c%
Public Sub p1(x%, y%)
Dim c%
X = 2 * x. y = y + 2. c = c + y
End Sub
Public Sub p2(x%, ByVal y%)
Dim c%
X = 2 * x.. y = y + 2. c = x + y
End Sub
Private Sub Command1_Click()
A = 2. b = 4. c = 6
Call p1(a, ((B)
Print "a=";
A, "b=";
B, "c="; c
Call p2(a, ((B)
Print "a=";
A, "b=";
B, "c="; c
End Sub
A.a=2 b=4 c=6
A=4 b=6 c=10
B.a=4 b=4 c=10
A=8 b=8 c=16
C.a=4 b=6 c=6
A=8 b=6 c=6
D.a=4 b=6 c=14
A=8 b=8 c=6
[单选题]下面程序段:
Dim y
If y Then Print y+1 Else Print y+2
运行后,显示的结果是().
A.2
B.0
C.-1
D.显示出错信息
[单选题]第216题 （1.0分）
下面程序段.
Dim y
If y Then Print y+1 Else Print y+2
运行后,显示的结果是().
A.2
B.0
C.-1
D.显示出错信息
[单选题]下面程序段:
Dim m
m=Int((Rn((D)+1)+5
Select Case m
Case 6
Print"优秀"
Case 5
Print"良好"
Case 4
Print"通过"
Case Else
Print"不通过"
End Select
显示的结果是().
A.优秀
B.良好
C.通过
D.不通过
[单选题]设有程序段
Private Sub Commandl Click()
Dim k%
K=5
Do Until k=0
K=k-1
Loop
End Sub
则下面对循环语句描述正确的是().
A.循环体1次也不执行
B.循环体执行1次
C.循环体执行5次
D.循环体执行无限次
[单选题]编写如下事件过程:
Private Sub form_Click()
Dim x
X = 0
Do While x<10
X = x + 3
Loop
MsgBox x
End Sub
程序运行后,单击窗体,则窗体上显示的内容是().
A.0
B.3
C.10
D.12
