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

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

admin2010-03-30  78
问题 在窗体上画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       For k=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 * ______       For k=1 To 3          month=month+1          sum=sum+sales(month)       Next k       Label1.Caption=______.Caption & "销售总额:"       Text1=sum    End Sub
选项 A、Opl_Click    3  Op1(Index)
B、Opl_Click    0  Optionl(Index)
C、Optionl_C1ick  1  Opl(Index)
D、Optionl_C1ick  2  Optionl(Index)
答案1
解析 解本题的关键是读懂题意和程序的作用。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://kaotiyun.com/show/4a1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)