A.16
B.17
C.18
D.19
第1题
A.16
B.17
C.18
D.19
第2题
Dim x As Integer,i As Integer
x=0
For i=20 To 1 Step-2 x=x+i\5
Next i
后,x的值为
A.16
B.17
C.18
D.19
第5题
A.16
B.17
C.18
D.19
第6题
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中
第7题
A.0 8
B.40 72
C.4 50
D.78 50
第8题
第9题
A.1 1 * #
B.1 1 * #
C.1 1 * # 1 1 * # 1 2 * #
D.1 1 * # 1 1 * ## 1 2 * ##
第10题
Private Sub Command1_Click()
Dim i As Integer
For i=1 To 2
DC
Next i
End Sub
Sub DC()
Dim x As Integer, m As String
Static y, n
x=x + 1
y=y + 1
m=m &"*": n=n & "#"
Print x, y, m, n
End Sub
程序运行后,输出的结果是( )。
A.1 1 * #
1 1 * #
B.1 1 * #
1 2 * #
C.1 1 * #
1 1 * ##
D.1 1 * #
1 2 * ##
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!