2. 计算机
  3. 阅读下列程序说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 [说明] 本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示： 其中，选择景点名称的组合框(Comobox)

阅读下列程序说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。 [说明] 本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示： 其中，选择景点名称的组合框(Comobox)

admin2009-02-15  67
问题 阅读下列程序说明和Visual Basic代码，将应填入(n)处的字句写在对应栏内。
[说明]
本程序提供了查询景点票价信息的功能，查询包括两种方式：按景点名称查询以及白定义查询。程序界面如下图所示：

   其中，选择景点名称的组合框(Comobox)名为Combo1，单旋钮“旺季”和“淡季”分别名为Op- tion1和Option2，用于输入票价上限的文本框名为Texi1，两种查询方式的“提交”按钮分别名为 Command1和Command2。已知Combol列表中第i个景点的旺季票价和淡季票价分别存放于数组元素P(i，0)和p(i，1)中。
[Visual Basic代码]
Dim p(20, 2) As Single        ’通用声明
Private Sub Form_Load( )
    For i = 0 To 9          ’对p赋值
         p(i, 0)=........  :p(i, 1)=.......
    Next
End Sub
Private Sub Commandl_Click( )     ’查询方式一：按景点名称查询
     Dim cboTcxt As String
    eboText =(1)  
    Fori = 0 To  (2)  -1       ’对Combo1中各列表项循环
         If  (3)= cboText Then
               MsgBox "景点名称" & cboText & "旺季票价" & p(i, 0) & _
                        ",淡季票价" & p(i, 1)
               Exit Sub
         End If
    Next i
End Sub
Private Sub Command2_Click( )      查询方式二：自定义查询
    Dim price As Single, result As String, flag As Boolean
    price =Val(  (4)  )
    flag = False
        result  =  ""
    For i = 0 To  (2)  - 1’对Combo1中列表项循环，找出符合条件的景点
         If(Optionl. Value And p(i, 0) ＜ = price) Or((5)) Then
             (6)  
               result=result & "景点名称" &(3)& ",旺季票价:"&_
                        p(i, 0) & ",淡季票价:" & p(i, 1) & vbCrLf
         End If
    Next i
    If flag Then
         MagBox result
   Else: Msgaox "没有找到符合条件的景点信息!"
    End If
End Sub
选项
答案(1)Combo1.Text (2)Comb01.ListCount (3) Comb01.List(i) (4)Textl.Text (5)Option2.ValueAndP(i，1)<= Price (6)flag=True
解析 (1)～(3)ComboBox控件常用属性及用法如下：Combo1.Text表示组合框Combo1当前的文本内容； Comb01.1JstCount表示组合框Combo1中列表项总个数；Comber. List(i)表示组合框Combo1中列表项i(编号从0开始)的内容；
(4)Text控件的常用眉性是Text，表示文本框中的内容；
(5)使用自定义查询时，当“旺季”单选钮被选中时，景点的旺季票价不超过Price，此时有Option1. Value And P(i，0)<=price，类似地，当“淡季”单选钮被选中时，查询条件应该是Option2.Value And p(i，1)<= price；
(6)flag标志用于标记是否有匹配查询条件的景点，初始时置为False，一旦发现存在匹配查询条件的景点，应该置为True。
转载请注明原文地址:https://kaotiyun.com/show/CojZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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