A.人们把一只年轻的低等鸟的头和胸脯羽毛涂上高等鸟的颜色和条纹,并将它放在另一群同类鸟中,这只鸟在新的群体中受到了高等待遇。
B.人们不能通过头上羽毛颜色或者胸脯羽毛条纹来识别白天鹅在群体中的地位,因为它们头上的羽毛颜色分不出深浅,胸脯羽毛没有条纹。
C.如果鸟类世界中存在着严格的等级制,那么在一群鸟中,它们也会为提高各自的 地位而发生争斗。
D.如果鸟类世界中存在着严格的等级制,那么在一群鸟中,它们各自的地位不会是终身不变的。
第1题
试题34
运行以下程序,显示的结果是()
Private Sub Command34_Click()
i = 0
Do
i = i + 1
Loop While i < 10
MsgBox i
End Sub
A.0
B.1
C.10
D.11
第2题
下面的程序运行结果是()。 Private Sub Form_Click() I=0 DoUntil0 i=i+1 if i>10 then Exit Do Loop Printi End Sub
A.0
B.10
C.11
D.出错
第3题
下面的程序运行结果是()。 Private Sub Form_Click() i=0 Do i=i+1 if i>10 then Exit Do Loop Until i<10 Print i End Sub
A.0
B.1
C.10
D.11
第4题
(10)运行下列程序,输入如下两行:
Hi,
I am here.
弹出的窗体中的显示结果是 【10】 。
Private Sub Command11_Click()
Dim abc As String, sum As string
sum=""
Do
abc=InputBox("输入abc")
If Right(abc,1)="." Then Exit Do
sum=sum+abc
Loop
MsgBox sum
End Sub
第5题
运行下列程序,显示的结果是()。
PrivateSub Command34 Click()i=0
Do
i=i+1
LoopWhile i<10 MsgBox i
End Sub
A.0
B.1
C.10
D.11
第6题
下面程序的输出结果是【 】。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
第7题
运行下列程序:
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
第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题
下列程序段的运行结果是:Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I>n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。
A.3
B.5
C.6
D.8
第10题
下面程序的输出结果是【 】。
Private Sub Form_Click()
i=0
Do Until 0
i=i+1
if i>10 then Exit Do
Loop
Print i
End Sub
为了保护您的账号安全,请在“上学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!