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

admin2012-12-08  42

问题 在窗体上画1个名为Textl的文本框和1个名为Labell的标签,再画4个名为Opl的单选按钮控件数组,其Index属性按季度顺序为0~3,如图1所示。在文件Sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时,鼠标单击一个单选按钮,则Textl中显示相应季度的销售总额,并把相应的文字显示在标签上。如图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)
    Nextk
    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
Labell.Caption___________.Caption&”销售总额:”
Textl=Sum
End Sub

选项 A、Opl Click  3    Opl(Index)
B、Opl Click 0 Optionl(Index)
C、Optionl—Click    1    Opl(Index)
D、Optionl—Click    2    Optionl(Index)

答案A

解析
转载请注明原文地址:https://jikaoti.com/ti/kLO0FFFM
0

最新回复(0)