[填空题] 在窗体上先画一个名为Text1的文本框和一个名为Table1的标签,再画一个名为OP1的四个单选按钮的单选按钮数组,其Index属性按季度顺序为1-3(见图1),文件sales.txt中按
18 查阅
[填空题] 在窗体上先画一个名为Text1的文本框和一个名为Table1的标签,再画一个名为OP1的四个单选按钮的单选按钮数组,其Index属性按季度顺序为1-3(见图1),文件sales.txt中按月份顺序存有某企业某年12月份的销售额。要求在执行程序时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图2是单击第三季度显示的结果 请填空。Dim sales(12)As Long Private Sub Form_Load() Open¨sales.txt¨For Input As # For k=1 To 12Input # 1,sales(k) Next kClose #1 End SubPrivate Sub 【 】(Index As Integer)Dim sum As Long,k As Integer,month As Integersum=0month=Index * 【 】For k=1 To 3month=month 4-1 sum= sum+ sales(month)Next kLabel1. Caption=Op1 (Index). 【 】 &"销售总额:"Text1=sumEnd Sub
参考答案: