![[填空题] 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.tx](http://www.mshxw.com/aiimages/31/260385.png "[填空题] 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.tx")
[填空题] 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击—个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第三季度”单选按钮所产生的结果。请填空。![[填空题] 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.tx](/uploadfile/member/20180926/1537964366.jpg "[填空题] 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.tx")
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 【12】 (Index As Integer) Dim sum As Long,k As Integer,month As Integer sum=0 month=Index* 【13】 For k=1 To 3 month=month+1 sum=sum+sales(month) Next K Label1.Caption=Op1(Index). 【14】 &"销售总额" Text1=sum End Sub
参考答案：
[12] Op1_Click问题解析:
[13] 3 [14] Caption[评析] 本题是要求鼠标单击哪个单选按钮，则Text1中显示相应季度的销售总额，所以该题的第1空应该填 Op1 Click。一年有十二个月，分四个季度，每3个月是1个季度，所以该题的第2空应该填3。Caption属性表示控件中显示的内容，所以该题的第3空应该填Caption。
