问题 单项选择题

在窗体上面一个名称为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.死循环

答案

参考答案:C

解析:

[分析]: 当第一次进入循环体后,s=1+8=9,a=8-1=7,由于“7<=0”的条件为假,所以只执行了一次循环就退出循环体。最后打印出9和7。

单项选择题
问答题

结合材料,回答问题:

材料1


近年来,随着我国经济的高速发展,全国的公路通车里程、机动车以及机动车驾驶人的不断增加,导致我国的道路交通事故居高不下,因酒后驾驶造成车毁人亡的悲剧在我们身边屡屡上演。据有关部门统计数据显示,2009年1月至8月,发生酒后和醉酒驾车肇事3206起,造成1302人死亡。目前,交通事故已经成为危害社会发展的全球公害。
专家认为,由于中国酒文化盛行,简单的经济处罚或者拘留已经不足以震慑酒后驾车、城市飙车等危害公共安全的危险行为。因此,只有通过立法将醉驾定性为犯罪行为,才能有效打击酒后开车。

材料2


2010年8月23日,十一届全国人大常委会第十六次会议上提请审议了《中华人民共和国刑法修正案(八)》草案,将醉驾、飙车,情节恶劣的,定为犯罪。根据刑法修正案草案,凡醉酒驾驶,即便不发生严重后果,也可能会被判处刑罚。草案规定,在道路上醉酒驾驶机动车的,或者在道路上驾驶机动车追逐竞驶,情节恶劣的,处拘役,并处罚金。也就是说,危险驾驶罪将醉酒驾车、在城镇高速飙车等严重危害公共安全的交通违法行为纳入其中。

材料3


2011年5月1日起,《中华人民共和国刑法修正案(八)》正式实施,醉酒驾驶作为危险驾驶罪被追究驾驶人刑事责任。
请回答:

联系实际,谈谈如何减少类似“酒驾”和“马路飙车”造成交通事故。