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

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

admin2009-03-17  49
问题 在窗体上先画一个名为Text1的文本框和—个名为Label1的标签，再画—个名为Op1的有4个单选按钮的单选按钮选项组，其Index属性按季度顺序为0～3(见图1)。在文件sales.txt中按月份顺序存有某企业某年12个月的销售额。要求在程序执行时，鼠标单击—个单选按钮，则Text1中显示相应季度的销售总额，并把相应的文字显示在标签上。图2是单击“第三季度”单选按钮所产生的结果。请填空。

Dim sales(12) As Long
Private Sub Form_load()
Open "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*【  】
For k=1 To 3
month=month+1
sum=sum+sales(month)
Next K
Label1.Caption=Op1(Index).【  】&"销售总额"
Text1=sum
End Sub
选项
答案Op1_Click , 3 , Caption
解析 本题是要求鼠标单击哪个单选按钮，则Text1中显示相应季度的销售总额，所以该题的第1空应该填 Op1 Click。一年有十二个月，分四个季度，每3个月是1个季度，所以该题的第2空应该填3。Caption属性表示控件中显示的内容，所以该题的第3空应该填Caption。
转载请注明原文地址:https://www.kaotiyun.com/show/Vj1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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