在窗体上画1个名为Text1的文本框和1个名为Label1的标签,再画4个名为Op1的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按

admin2013-04-11  36

问题 在窗体上画1个名为Text1的文本框和1个名为Label1的标签,再画4个名为Op1的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。如图2所示是单击“第二季度”单选按钮所产生的结果。请选择可在空白处填写的合适语句(    )。         Option Base 1   Dim sales(12) As Long   Private Sub Form_Load()        Open "c:\sales.txt" For Input As #1        Fork= 1 To 12             Input #1, sales(k)        Next k        Close #1  End Sub  Private Sub ______ (Index As Integer)  Dim sum As Long, k As Integer, month As Integer           sum=0         month=Index*         Fork=1 To 3               month=month+1               sum=sum+sales(month)         Next k         Label1. Caption=______.Caption & "销售总额:"         Text 1=sum    End Sub

选项 A、Op1_Click        3   Op1 (Index)
B、Op1_Click        0   Option1 (Index)
C、Option1_Cliek    1   Op1 (Index)
D、Option1_Click    2    Option1 (Index)

答案A

解析 解本题的关键是读懂题意和程序的作用。Form_Load事件过程的作用是打开文件Sales.txt,读出文件12个月的销售额分别存放在数组sales元素中。然后在单选按钮的单击事件中,进行处理,因为控件数组共享同一个事件过程,所以第1个横线处,应填入单击事件,使用控件的名字Op1加下划线加Click.在单击事件过程中,通过变量month计算月份,分别统计每一个季度的销售总额,结合 For循环中month的值:第一季度,month的初值为0,index的值为 0:第二季度,month的初值为3,index的值为1;第三季度,month的初值为6,index的值为2;第四季度.month的初值为9,index的值为3;所以第2个横线处应填入3。第3个横线的填写较简单,就是显示选中的单选按钮的标题。
转载请注明原文地址:https://jikaoti.com/ti/AT60FFFM
0

最新回复(0)