问题 单项选择题

执行下面的程序,单击窗体后窗体消息框内显示结果是( )。
PRIVATE SUB FORM_CLICK()
DIM STR AS STRING, K AS INTEGER
STR="AB"
FOR K = LEN(STR) TO 1 STEP -1
STR=STR&CHR(ASC(MID(STR, K, 1)) +K)
NEXT K
MSGBOX STR
END SUB

A.ABCE

B.ABCD

C.ABDB

D.ABFB

答案

参考答案:C

解析: 对字符串变量STR(初始值为"AB")进行字符追加,分析其中的Len、Chr和Mid三个字符串处理函数后,可以判断出追加的字符是D和B,故答案C正确。

单项选择题

P:服务人员C:服务对象

P:早上好,再见到你很高兴。怎么样?

C:早上好,我有些担心,白带有些问题。

P:我了解您的情况。您能来这里寻求解决这个问题的方法,这很好。

C:问题严重吗?

P:现在很难说,我得了解一些您的情况,才能准确回答这个问题。还有其他感觉吗?

C:有些痛和痒。

P:您是指下身吗?

C:是的。

P:这种状况什么时候开始的呢?

C:一个多月了。

P:白带颜色怎样?

C:白,带点黄绿色。

P:介意我问点个人问题吗?我只是想通过这些问题来更好地了解您的基本情况。如果您感觉有任何不舒服,请告诉我,并可以不回答。

C:好的,问吧。

P:您和丈夫的最近一次性生活是什么时候?

C:这有什么关系吗?

P:有些感染是通过性交途径传播的,尤其是在一方不知道感染的情况下更容易发生传染。而且这些问题对您整个家庭的健康都很重要,也有助于我们找出您感染的途径。

C:大概两个月前他从市区回来休息的时候吧。

P:我想起来了,他是在兰州市工作是吧。那么他有什么状况吗,阴茎有没有出现什么异常情况?

C:阴茎?我不明白您在讲什么!

P:对不起,那是个医学术语。这有幅男性生殖器官的示意图,这就是阴茎。

C:我明白了,我从来没听过这个词。他说一切正常,没有任何问题。

P:这样的话,我得给您做个检查,也许还要做些化验。通过化验我们才能确定,您现在情况到底怎样。然后我们才能制订治疗方案。

C:好的,会疼吗?

P:不会的,可能有些不太舒服,但不会持续太久。我会很小心的。

“您能来这里寻求解决这个问题的方法,这很好。”咨询者使用的()技巧。

A.表扬与鼓励

B.体察对方的感受

C.寻找共同点

D.启发交流

单项选择题