重要提示：
请勿将账号共享给其他人使用，违者账号将被封禁！
题目内容
（请给出正确答案）
A.领导是一项目的性非常强的行为
B.一个组织的目标与个人目标常常是一致的
C.领导是一种过程，也是一种艺术
D.领导工作首先是组织工作
E.领导的职能归纳起来需要处理与人、事物的关系
更多“下列关于领导的表述正确的有（）。 A．领导是一项目的性非常强的行为 B．一个组织的目”相关的问题
第1题
运行下列程序：
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
第2题
运行下列程序：
Private Sub Form_Click()
Dim sum As Integer
Dim i As Integer
sum = 0
For i =12.4 To3.1 Step -3.8
sum = sum + i
Next i
Debug.Print sum
End Sub
单击窗体后，则在立即窗口上输出结果是()。
A.15
B.- 0.7
C.24
D.0
第3题
运行下列程序：
Private Sub Form_Click()
Dim sum As Double, i As Integer
For i = 1 To 20
If i Mod 5 = 0 Then
sum = sum + i
End If
Next i
Print sum
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.50
B.100
C.4
D.5050
第4题
运行下列程序：
Private Sub Form_Click()
Dim x As Integer, y As String, z As String
y = "12345"
For x = 1 To Len(y)
z = Mid(Left(y, x), 1)
Next x
Print z
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.1
B.11111
C.55555
D.12345
第5题
运行下列程序：
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.5
B.1 2 3 4 5
C.19
D.7
第6题
运行下列程序：
Private Sub Form_Click()
Dim y As Integer, x As Integer
Do Until x > 20
x = x + 10
y = y + x
If x > 20 Then Exit Do
Loop
Print x, y
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.10 20
B.30 60
C.10 30
D.20 60
第7题
运行下列程序：
Dim b
Private Sub Form_Click()
a = 1: b = 1
Call fun1(a)
Print "X = "; a; ",Y = "; b
End Sub
Private Sub fun1(a)
b = 2 * a
a = 3 * b
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.X = 1，Y = 1
B.X = 2，Y = 6
C.X = 6，Y = 2
D.X = 6，Y = 1
第8题
运行下列程序：
Private Sub Form_Click()
Dim a As Integer
a = 1
For i = 1 To 5
Call fun1(a)
Next i
Print a
End Sub
Private Sub fun1(x)
y = 2
Do
x = x + y
Loop Until x > 10
End Sub
单击窗体后，则在窗体上显示的结果是()。
A.5
B.1 2 3 4 5
C.19
D.7
第9题
运行下列程序：
Dim x, y
Private Sub Form_Click()
x = 1: y = 1: z = 1
fun1 (1)
Print x; y; z
End Sub
Private Sub fun1(a)
x = a + x: y = a + x: z = a + y
End Sub
单击窗体后，则输出结果是()。
A.1 1 1
B.2 3 1
C.2 3 4
D.2 2 1
第10题
下面程序运行时，单击窗体后，窗体上显示的结果是()。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End Sub
A．10
B．12
C．37
D．22
客服
TOP
警告：系统检测到您的账号存在安全风险
为了保护您的账号安全，请在“上学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
