题目内容:
在窗体上先画1个名为Text1的文本框和1个名为Label1的标签,再画1个名为Opl的有4个单选按钮的单选按钮数组,其Index属性按季度顺序为0—3(见图1)。在文件sales。txt中按月份顺序存有某企业某个12个月的销售额。要求在程序执行时,鼠标单击1个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮所产生的结果。请填空。
Dim sales(12)As Long
Private Sub Form Load()
Open“sales.txt”For Input As#1
For k=1 T0 12
Input#1,sales(k)
Next k
Close#1
End Sub
Private Sub【1】(Index As Integer)
Dim sum As Lon9,k As Integer,month As Integer
sum=0
month=Index* 【2】
For k=1 T0 3
month=month+1
sum=sum+sales(month)
Next k
Label1.caption=0p1(Index).【3】 &“销售总额:”
Text1=sum
End Sub
参考答案:
答案解析: