问题 填空题

在窗体上画一个文本框(其Name属性为Text1),编写如下事件过程,运行结果是______。
Private Sub Form_Load()
Show
Text1.Text = "你好!"
Text1.SetFocus
For i = 1 To 15
Sum = Sum + i
Next i
Text1.Text = Sum
End Sub

答案

参考答案:120

解析: For…Next语句以指定次数来重复执行一组语句,其语法为:
For 循环变量=初值 To 终值 [Step 步长]
[循环体]
[Exit For]
Next[循环变量][,循环变量]……
当所有循环中的语句都有执行后,步长的值会加到循环变量中。此时,循环中的语句可能会再次执行(基于循环开始执行时同样的测试),也可能是退出循环并从Next语句之后的语句继续执行。如果步长是1,可以省略。
本题中,循环15次,每次循环累加i的值,赋值给Sum,因此Sum的值为120。

单项选择题 案例分析题

一般资料:求助者,男性,17岁,高中二年级学生。案例介绍:求助者外表一般,学习成绩中等。母亲反映求助者平时为人谦和,懂事听话,但近来明显脾气暴躁,与同学和邻居产生严重的矛盾,遂强行将其带来咨询。下面是心理咨询师与求助者的一段对话:心理咨询师:你妈妈希望我帮助你,你想得到什么心理帮助呢?求助者:我没有什么心理问题,都是我们学校那些女同学闹的,你还是去帮帮她们吧。心理咨询师:你能具体说说你们学校那些女同学闹了什么吗?求助者:我……(沉默)我都不好意思说。心理咨询师:是这样的,我们有职业要求,为你所说的保密,我会按照职业要求去做,你可以把你内心的想法告诉我,我一定为你保密。求助者:好吧,那我就告诉你。我是学校有名的"帅哥",我想考大学,不想在中学就谈恋爱,可总有女同学追我,赶都赶不走,我很烦。心理咨询师:你是怎么知道总有女同学喜欢你的呢?求助者:我们学校是重点中学,女生很多,因为我是"帅哥"啊,走在路上,所有女生都使劲朝我笑,还嘘寒问暖的,连上课时我都能听见女生在议论我。我让她们别烦我,可这些人死活不承认。我去找老师反映情况,可老师不好好管教这些女生,反而让我去看病,这叫什么事啊!心理咨询师:还有其他的吗?求助者:还有很多呢,我们楼上有一个女孩,都上大学了吧,也追我。特别过分的是那天我们家去郊游,这个女孩居然追到那里。我冲上去说了她,可她却不承认,险些打了起来。我报警了,警察来了没管她,反而说我。现在弄得我都没法上学了,为这些事烦得我睡不着。心理咨询师:我听明白了,请问你去精神科做过检查吗?求助者:我又没有精神病,到精神科做什么检查啊!

根据对话,对该求助者的可能诊断是()。

A.严重心理问题

B.偏执人格障碍

C.心理生理障碍

D.精神病性障碍

单项选择题