问题 单项选择题

下列程序的执行结果为( )。  Private Sub Command1_Click()    Dim s1 As String,s2 As String    S1;="abcdef"    Call Invert(s1,s2)    Print s2  End Sub  Private Sub Invert (ByVal xstr As String,ystr As String)    Dim tempstr As String    i=Len(xstr)    Do While i>=1     tempstr=tempstr+Mid(xstr,i,1)     i=i-1    Loop    ystr=tempstr  End Sub

A.fedcba

B.abcdef

C.afbecd

D.defabc

答案

参考答案:A

解析:被调过程Invert的参数xstr,ystr从主调函数中收到实参s1,s2传来的值“abcdef”,过程Invert开始声明了两个变量,都是String型的:xstr,ystr。I=Len (xstr) 以上语句的功能是:i的值就是xstr的长度,此题为6。程序代码执行Do While…Loop的循环语句。循环体为tempstr=tempstr+Mid(xstr,i,1),其中变量是I,由I= Len(xstr)开始的,每循环一次减1,……;此程序段的最后输出的是字符串s1的反向输出,所以正确答案是选项C)。

阅读理解与欣赏

阅读《难忘的一课》完成1-4题

       (1)那天的风雪真暴,外面像是有无数发疯的怪兽在呼啸厮打。大家都在喊冷,读书的心思似乎已被冻住。一屋的跺脚声。

       (2)鼻头红红的欧阳老师挤进教室时,等待了许久的风席卷而入,墙壁上的《中学生守则》一鼓一顿,开玩笑似的卷向空中,又一个跟头________了下来。往日很温和的欧阳老师_________:满脸的严肃庄重甚至冷酷,一如室外的天气。乱哄哄的教室静了下来,我们_______地望着他。

       (3)“请同学们穿上胶鞋,我们到操场上去。”

       (4)几十双眼睛在问。

       (5)“我要求同学们到操场上站立5分钟。”

       (6)教室外,卷地而起的雪粒雪团呛得人睁不开眼张不开口。脸上像有无数把细窄的刀在拉在划,厚实的衣服像铁块冰块,脚像是踩在带冰碴的水里。我们挤在屋檐下,不肯迈向操场半步。欧阳老师没有说什么,面对我们,脱下羽绒衣,线衣脱到一半,夹着雪的狂风帮他完成了另一半。“到操场上去,站好。”老师脸色苍白,一字一顿地对我们说。

       (7)谁也没有吭声,我们老老实实地到操场排好了队。瘦削的欧阳老师只穿一件白衬褂,衬褂紧裹着的他更显得单薄。我们规规矩矩地站着。5分钟过去了,老师吃力地说:“解散”。

       (8)就在我还未透彻地理解欧阳老师这一课时,仅有“中师”文凭的他,考取了北京一所师范大学的研究生。

        (9)以后的岁月里,我时时想到那一课,想起欧阳老师课后的一番话:“在教室时,我们都以为自己敌不过那场风雪,事实上,我们不是都顶住了吗?面对困难许多人戴着放大镜,但和困难拼搏一番后,你会觉得,困难不过如此……”我很庆幸,那天我没有像个别的同学那样缩在教室里,在那个风雪交加的时候,在那个空旷的操场上,我上了终身难忘的一课。

1、在文中第(2)自然段的横线上依次填入词语,最恰当的一组是

 [ ]

A、丢 今非昔比 惊叹

B、降 神态自若 惊恐

C、栽 一反常态 惊异

D、飘 判若两人 惊诧

2、下边没有用比喻修辞的一个句子是

 [ ]

A、厚实的衣服像铁块冰块

B、外面像是有无数发疯的怪兽在呼啸厮打

C、满脸的严肃庄重甚至冷酷如室外的天气

D、大家都在喊冷,读书的心思似乎已被冻住了

3、文中揭示欧阳老师在操场上给学生上这“一课”用意的一句话是:____________________________。

4、作者在第(8)自然段补充叙述了“一课”之外的另一件事,有什么作用?

答:_______________________________________________________________________________________

问答题 简答题