在窗体上先画一个名为Text1的文本框和—个名为Label1的标签,再画—个名为Op1的有4个单选按钮的单选按钮选项组,其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 【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。