为特殊服务对象争取合适的服务，替照顾者向有关方面提出意见和争取改善措施，是社会工作者在社区照顾中承担的()角色。

4 个单选按钮数组 , 其 Index 属性按季度顺序为 0 ∽ 3 （见图 A-5 ）。在文件 sales.txt 中按月份顺序存有某企业某 年12 个月的销售额。要求在程序执行时，鼠标单击 1 个单选按钮，则 Text1 中显示相应季度的销售总额 ， 并把相应的文字显示在标签上。图 A-6 是单击 “ 第 3 季度 ” 单选按钮产生的结果。请填空。

Dim sales （—— ） As Long

Private Sub Form__Load （）

open “ sales.txt ” For Input AS 1

For k=1 To 12

Input 1,sales （k ）

Next k

Close 1

End Sub

Private Sub ——（Index, AS Integer ）

Dim sum AS Long ,k AS Ingeger,month AS Ingeger

sum=0

month=Index*——

For k=1 To 3

month=month+1

sum=sum+sales （month ）

Next k

Label1.Caption=Opl （Index ） . Caption & “ 销售总额： ”

Text1=sum

End Sub

1的Change事件过程，使得在运行时，在文本框中每输入一个字符，就在图片框中输出一行文本框中的完整内容。运行时的窗体如下图所示。

注意：

程序中不能使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise68.vbp，窗体文件名为execise68.frm。

答案1”、“答案2”、“答案3”和“答案4”；再画一个命令按钮，名称为C1，标题为“选择”；再画一个文本框Text1，名称为Text1，内容为空白。编写适当的程序。程序运行时，单击“选择”按钮，只有选择“答案1”单选按钮时，在Text1文本框中显示“选择正确”，否则显示“选择错误”。程序运行结果如图2—1所示。

注意，保存时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。

2．在考生文件夹中有工程文件sjt4.vbp，其中包含窗体Form1，该程序是不完整的。请在有？号的地方填入正确内容，然后删除？及所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：

在窗体上有三个名称分别为Text1、Text2、Text3的文本框，一个名称为Command1，标题

为“计算”的命令按钮(如图2—2所示)。要求程序运行后，在Text1和Text2中分别输入两个整数，单击“计算”按钮后，可把两个整数之间的所有整数(含着两个整数)累加起来并在Text3中显示出来。注意：保存时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。

您的密码”。在标签的下方画一个文本框，名称为“密码框”，其高度和宽度分别为2000和500。要求在输入密码时，文本框中显示“*”字符。以上这些设置必须在设计过程中进行，运行时的窗体如图1所示。程序中不得使用任何变量。

注意：存盘时必须存放在考生文件夹下，工程文件名为ylcl．vbp，窗体文件名为ylcl.frm。

ex属性按季度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图 2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句()。

Option Base 1

Dim sales(12) As Long

Private Sub Form_Load()

open"c:\sales.txt"For Input As #1

For k=1 To 12

Input #1,sales(k)

Next k

Close #1

End Sub

Private Sub ______ (Index As Integer)

Dim sum As Long,k As Integex,month As Integer

sum=0

month=Index*______

For k=1 To 3

month=month+1

sum=sum+sales(month)

Next k

Label1.Caption=______.Caption &"销售总额:"

Text1=sum

End Sub

A．Op1_Click 3 Op1(Index)

B．Op1_Click 0 Option1(Index)

C．Option1_Cliek 1 Op1(Index)

D．Option1_Click 2 Option1(Index)

（1）在名称为Form1的窗体中画一个名称为Label1的标签，其标题为"0"，BorderStyle属性为1：再添加一个名称为Timer1的计时器。请设置适当的控件属性，并编写适当的事件过程，使得运行时，标签中的数字每隔1秒钟加2。程序运行效果如图8-1所示。

图8-1

注意：存盘时必须存放在考生文件夹下，工程文件名为sj1.vbp，窗体文件名为sj1.frm。

（2）在窗体上设置一个文本框，名称为Text1，再添加一个命令按钮，名称为Command1，标题为"当前时间/日期切换"；每次单击按钮时，Text1就显示出当前时间，再单击一次，Text1就显示当前日期。请编写相应的程序代码来完成这个功能。程序运行时的窗体界面如图8-2所示。

图8-2

注意：要求考生在编写完程序后，把工程文件与窗体文件保存到考生文件夹下，文件名分别为sj2.vbp与sj2.frm。

文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。

Private Sub Command1_Click（）

Dim k As Integer

Dim sum As Single, max As Single, min As Single

sum = Text1（0）

max = Text1（0）

min = ______

For k = ______ To 6

If max < Text1（k） Then

max = Text1（k）

End If

If min > Text1（k） Then

min = Text1（k）

End If

sum = sum + Text1（k）

Next k

Text2 = （______） / 5

ex属性按季度顺序为0～3，如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句()。 Option Base 1 Dim sales(12) As Long Private Sub Form_Load() Open "c:\sales.txt" For Input As #1 Fork= 1 To 12 Input #1, sales(k) Next k Close #1 End Sub Private Sub ______ (Index As Integer) Dim sum As Long, k As Integer, month As Integer sum=0 month=Index* Fork=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1. Caption=______.Caption & "销售总额:" Text 1=sum End Sub

A．Op1_Click 3 Op1 (Index)

B．Op1_Click 0 Option1 (Index)

C．Option1_Cliek 1 Op1 (Index)

D．Option1_Click 2 Option1 (Index)

在窗体上添加—个文本框，名为Text1，然后编写如下的Load事件过程，则程序的运行结果是 Private Sub Form_Load() Text1.Text=”” Text1.Setfocus t=1 For k=10 To 6 Step-2 t=t*k Next k Text1.Text=t End Sub

A．在文本框中显示120

B．文本框仍为空

C．在文本框中显示480

D．出错

在名为Form1的窗体上建立一个名为Text1的文本框；一个名为Crud1，标题为“输出”的命令按钮(如下图所示)。

要求程序运行后，在文本框中任意输入一个字符串，然后单击“输出”按钮，则将文本框中的文字显示在窗体上。

注意：

在程序中不能使用任何变量：文件必须存放在考生文件夹中，窗体文件名为 execise61.frm，工程文件名为execise61.vbp。