在窗体上画一个名为Text1的文本框和一个名为Labell的标签,再画四个名为Opl的单选按钮控件数组,其Index属性按季度顺序为0~3,如图左所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。如图右所示单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句( )。
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)
Nextk
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)
Nextk
Labell. Caption=______,Caption &"销售总额:"
Text1=Sum
End Sub
参考答案:A
解析: 解本题的关键是读懂题意和程序的作用。Form Load事件过程的作用是打开文件sales. txt,读出文件12个月的销售额,分别存放在数组sales元素中。然后在单选按钮的单击事件中,进行处理,因为控件数组共享同一个事件过程,所以第一个横线处,应填入单击事件,使用控件的名字Opl加下画线加Click。在单击事件过程中,通过变量month计算月份,分别统计每一个季度的销售总额,结合For循环中month的值;第一季度month的初值为0,index的值为0;第二季度month的初值为3,index的值为1;第三季度month的初值为6,index的值为2;第四季度month的初值为9,index的值为3;所以第2个横线处应填入3。第3个横线的填写较简单,就是显示选中的单选按钮的标题。