![](https://lstatic.shangxueba.com/jiandati/h5/images/m_q_title.png)
执行下列程序段后,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
A.16
B.17
C.18
D.19
A、
B、
C、
D、
A、72
B、22
C、6
D、7
ANL A,#17H
ORL 17H,A
XRL A,@R0
CPL A
后,A的内容为()。
A. CBH
B. 03H
C. EBH
D. C8H
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中
A、0 0
B、-5 0
C、-5 6
D、0 6
A、3 -1 2 -3 -1
B、3 5 8 13 21
C、-1 1 -2 -1 -1
D、3 4 5 6 7
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
A.6
B.12
C.24
D.47
A、9 20
B、10 20
C、10 23
D、9 23
A、1
B、4
C、8
D、20
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!