According to the passage, the price system is related primarily to ______.A．labor and educ

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)

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)

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 Integer, 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．Opl_Click 3 Op1(Index)

B．Opl_Click 0 Optionl(Index)

C．Optionl_C1ick 1 Opl(Index)

D．Optionl_C1ick 2 Optionl(Index)

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

Option Base 1

Dim sales(12)As Long

Private Sub Fo rm Load（）

Open"C：＼sales．txt"For Input As#1

For k=1 To 12

Input#1，sales(k)

Nextk

Close#1

End Sub

Private Sub (Index As Integer)

Dim sum As Long，k As Integer，month As Integer

sum=0

month=In&x*

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_Click l Op1(Index)

D.Option1_Click 2 Option1(Index)

dex属性按季度顺序为0～3，如图1所示。在文件Sales．txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击一个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句（）。Option Base 1 Dim sales(12)As Long Private Sub Fo rm Load（） Open"C：＼sales．txt"For Input As#1 For k=1 To 12 Input#1，sales(k) Nextk Close#1 End Sub Private Sub (Index As Integer) Dim sum As Long，k As Integer，month As Integer sum=0 month=In&x* 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_Click l Op1(Index)

D.Option1_Click 2 Option1(Index)

在窗体上画1个文本框，名称为Text1，然后编写如下程序：程序的功能是，在c盘根目录下建立1个名为dat．txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat．txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句（）。

A.KeyAscii ”END”

B.Text1．Text ”END”

C.Text1．Text 13

D.KeyAscii 13

在窗体上画1个文本框，名称为Text1，然后编写如下程序：程序的功能是，在c盘根目录下建立1个名为dat．txt的文件，在文本框中输入字符，每次按回车键(回车符的ASCII码是13)都把当前文本框中的内容写入文件dat．txt中，并清空文本框中的内容；如果输入“END”，则结束程序，请选择适合空白处的语句（）。

A. KeyAscii ”END”

B. Text1．Text ”END”

C. Text1．Text 13

D. KeyAscii 13

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

Dim sales(12) As Long

Private Sub Form_load()

Open "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*【 】

For k=1 To 3

month=month+1

sum=sum+sales(month)

Next K

Label1.Caption=Op1(Index).【 】&"销售总额"

Text1=sum

End Sub

nd和Third，其下标分别为0，1，2。初始状态下，Third为选中状态；再绘制一个文本框，名称为Text1，内容为空白。编写适当的事件过程，使程序运行后，选中哪个单选按钮，则在文本框Text1中显示该单选按钮的标题。运行后的窗体如下图所示。

注意：

文件必须存放在考生文件夹中，工程文件名为execise27.vbp，窗体文件名为 execiSe27.frm。

在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Labe11)，程序运行后，如果在文本框中输入指定的信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是()。