填空题:在窗体上先画1个名为Text1的文本框和1个名为Label1的标签,再画1个名为Opl的有4个单选按钮的单选按钮数组,其

  • 题目分类:VB
  • 题目类型:填空题
  • 查看权限:VIP
题目内容:
在窗体上先画1个名为Text1的文本框和1个名为Label1的标签,再画1个名为Opl的有4个单选按钮的单选按钮数组,其Index属性按季度顺序为0—3(见图1)。在文件sales。txt中按月份顺序存有某企业某个12个月的销售额。要求在程序执行时,鼠标单击1个单选按钮,则Text1中显示相应季度的销售总额,并把相应的文字显示在标签上。图2是单击“第3季度”单选按钮所产生的结果。请填空。

Dim sales(12)As Long
Private Sub Form Load()
Open“sales.txt”For Input As#1
For k=1 T0 12
Input#1,sales(k)
Next k
Close#1
End Sub
Private Sub【1】(Index As Integer)
Dim sum As Lon9,k As Integer,month As Integer
sum=0
month=Index* 【2】
For k=1 T0 3
month=month+1
sum=sum+sales(month)
Next k
Label1.caption=0p1(Index).【3】 &“销售总额:”
Text1=sum
End Sub
参考答案:
答案解析:

重型再生障碍性贫血预后差,常见的死亡原因是( )。

重型再生障碍性贫血预后差,常见的死亡原因是( )。A.呼吸系统衰竭 B.肾衰竭 C.感染或脑出血 D.消化道出血 E.循环系统衰竭

查看答案

关于口服铁剂的护理.下列不正确的是( )。

关于口服铁剂的护理.下列不正确的是( )。A.应在饭后服用 B.禁饮浓茶 C.不能与氨基酸同服 D.避免与牛奶、咖啡同服 E.液体铁剂需用吸管服用

查看答案

为促进铁的吸收,口服铁剂的同时可加服( )。

为促进铁的吸收,口服铁剂的同时可加服( )。A.维生素C B.维生素B C.维生素A D.维生素E E.水溶性维生素

查看答案

缺铁性贫血的血象为( )。

缺铁性贫血的血象为( )。A.大细胞性贫血 B.正细胞性贫血 C.小细胞正色素性贫血 D.小细胞低色素性贫血 E.正细胞正色素性贫脏

查看答案

以下关于进程的描述,错误的是(  )。

以下关于进程的描述,错误的是(  )。

查看答案