2. 计算机
  3. 阅读下列说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 [说明] 某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示： 程序界面包含两个控件数组，分别是提货

阅读下列说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 [说明] 某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示： 程序界面包含两个控件数组，分别是提货

admin2012-12-10  28
问题 阅读下列说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。
[说明]
   某小型家电超市开发了下面的程序，用以实现商品提货信息的汇总和输出功能。程序的运行界面如下图所示：
        
   程序界面包含两个控件数组，分别是提货商品复选框控件数组Check1以及提货数量文本框控件数组Text1(相同下标的复选框和文本框相对应)，提货清单的显示由List控件实现，按钮“打印清单”和“清除”分别名为Command1和Command2。
[Visual Basic代码]
’提货商品复选框的单击事件响应代码
Private Sub Check1_Click(Index As Integer)
If Check1 (Index). Value = 1 Then  (1). SetFocus
End Sub
’按钮“打印清单”的单击事件响应代码
Private Sub Command1_Click()
    Dim i, n, price As Integer, sum As Long, title As String
    sum = 0
    For i = O To 4
               Select Case i
                    Case 0:    title ="电视机":    price = 3580
                    Case 1:    title ="微波炉":    price = 660
                    Case 2:    title ="电冰箱":    price = 1850
                    Case 3:    title ="DVD":       price = 2880
                    Case 4:    title ="空调":      price = 2500
             End Select
    If  (2)= 1 And Textl(i). Text ＜ ＞  " " Then
             (3)  title & Text1(i).Text & "台"
    n = n + Val(Textl(i))
    sum =(4)  
    End If
    Next i
    If sum ＜ ＞ 0 Then
         (3)  "共:" & n &"台," &"合计金额:"& sum &"元。"
   End If
End Sub
’按钮“清除”的单击事件响应代码
Private Sub Command2_Click()
     (5)  
End Sub
选项
答案(1) Teat1(Index) (2) Check1(i). Value (3) List1.AddItem (4) sum+Val(Text1(i)) * price (5) List1.Clear
解析 (1)当用户选择某种商品后，焦点应落在对应的数量文本框内；
(2)for循环遍历所有商品，如果商品被选中并且数量不空，则进行累计；
(3)向List控件对象中添加内容应使用AddItem方法；
(4)累加总金额；
(5)清除List控件对象中的内容应使用Clear方法。
转载请注明原文地址:https://jikaoti.com/ti/ebW7FFFM
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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