题目内容
（请给出正确答案）
[单选题]
执行以下程序段后，x的值为（)。 Dim x As Integer, i As Integer x=0 For i = 20 To 1 Step -2 x = x + i\ 5 Next I
A.16
B.17
C.18
D.19
提问人：网友tmacandyao
发布时间：2022-01-06
如搜索结果不匹配，请 
A、72
B、22
C、6
D、7
题目内容
（请给出正确答案）
您可能会需要：
安装简答题APP，拍照搜题省时又省心！
更多“执行以下程序段后，x的值为（)。 Dim x As Inte…”相关的问题
第1题
执行下面程序段后输出的结果是（ ）。 Dim i As Integer, x As Integer For i = 1 To 5 x = 4 For j = 1 To 2 x = x + 1 Next j Next i Form1.Print x
第2题
下列程序段执行后，在标签Label1中显示的图形是______。 Dim s$, i%, j% s = "" For i = 1 To 4 s &= Space(4 - i) For j = 1 To i s &= 2 * i - 1 Next j s &= vbCrLf Next i Label1.Text = s
A、
B、
C、
D、
第3题
假定A=83H，（R0）=17H，（17H）=34H，执行以下程序段
ANL A，#17H
ORL 17H，A
XRL A，@R0
CPL A
后，A的内容为（）。
A. CBH
B. 03H
C. EBH
D. C8H
第4题
有如下程序(其中chr(13)表示换行)。以下关于程序功能的叙述中，正确的是( )。
Dim x As Integer, a As Integer, b As Integer, i As Integer
For i=1 T0 10
x=InputBox("请输入一个整数：")
If Int(x/2)=x/2 Then
a=a+1
Else
b=b+1
End If
Next i
MsgBox"a="&a&chr(13) &"b="&b
A．对输入的10个数求累加和
B．对输入的10个数分别统计奇数和偶数的累加和
C．对输入的10个数分别统计奇数和偶数的个数，其中奇数的个数保存在变量a中
D．对输入的10个数分别统计奇数和偶数的个数，其中偶数的个数保存在变量a中
第5题
有如下程序： Const n = -5 Const m = 6 Dim a(n To m) As Integer 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
第6题
有下面程序代码： Private Sub Command1_Click() Dim sign As Integer sign = 1 a = 1 b = 2 For k = 1 To 5 c = a + sign * b a = b b = c Print c; sign = -sign Next k End Sub 程序运行后，单击命令按钮Command1，输出结果是_______________。
A、3 -1 2 -3 -1
B、3 5 8 13 21
C、-1 1 -2 -1 -1
D、3 4 5 6 7
第7题
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是
A．6
B．12
C．24
D．47
第8题
单击命令按钮时，下列程序的运行结果为
Private Sub Command1_Click（）
Print MyBM（23, 18）
End Sub
Public Function MyBM（m As Integer, n As Integer） As Integer
Do While m $amp;Do While m > n: m=m - n: Loop
Do While m < n: n=n - m: Loop
Loop
MyBM=m
End Function（）。
A．0
B．1
C．3
D．5
第9题
在窗体上画一个命令按钮和一个标签，其名称分别为Command1和Labell，然后编写如下代码：
Sub S(x As Integer，Y As Integer)
Static z As Integer
y=x*x+z
z=y
End Sub
Private Sub Command1_Click()
Dim i As Integer，z As Integer
m=0
z=0
For i=1 To 3
S i，z
m=m+z
Next i
Label1．Caption=Str(m)
End Sub
程序运行后，单击命令按钮，在标签中显示的内容是
A．50
B．20
C．14
D．7
第10题
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Integer, s As Integer a = 8 s = 1 Do s = s + a a = a－1 Loop While a <= 0 print s; a end sub程序运行后，单击命令按钮，则窗体上显示的内容是（ ）。> A、7 9
B、34 0
C、9 7
D、死循环
