2. 计算机
  3. 阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 【说明】 甲乙两地之间的铁路线上有二十多个火车站，为方便乘客查询票价，特开发了火车票价查询程序，其运行窗口如下图所示。乘客只要通过 两个下拉列表框分别选择起

阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。 【说明】 甲乙两地之间的铁路线上有二十多个火车站，为方便乘客查询票价，特开发了火车票价查询程序，其运行窗口如下图所示。乘客只要通过 两个下拉列表框分别选择起

admin2008-01-03  71
问题 阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
   甲乙两地之间的铁路线上有二十多个火车站，为方便乘客查询票价，特开发了火车票价查询程序，其运行窗口如下图所示。乘客只要通过
两个下拉列表框分别选择起点与终点站名，再单击“查询”按钮，则票价文本框中就会显示相应的票价。

   在开发过程中，设选择起点和终点站名的组合框(ComboBox)名分别为ST和SP，显示票价的文本框(TextBox)名为Price，“查询”按钮

(CommandButton)名为Query；设ST与SP中的诸列表项完全相同，且都是从甲地开始依次排列，从第i站到第j站的票价存放在二维对称矩阵P的元

素P(i，j)中。假设从甲地到第i站行驶的距离存放在 d(i)中，火车票价等于其行驶距离乘以C(常数)。
【Visual Basic代码】
   Dim p(30，30)  As Single           ’通用声明
   Const C=0.2
   Private Sub Form_Load()
     Dim d (30)  As Single
       (1)="甲地"                 ’在ST组合框中设置首个列表项
     …                               ’在ST和SP中设置其他列表项(若干行语句)
     …                               ’对数组d(i)赋值(若干行语句)
     For i=0 to ST． (2) -1    ’对ST中各列表项循环
       For j=0 to SP.  (2)  -1        ’对SP中各列表项循环(这两处填写内容相同)
         P (i，j)=(3)  
        Next j
       Next i
     End Sub
     Private Sub query_Click()
    i=(4)     ’组合框ST中选择的当前项编号
   j=…         ’组合框SP中选择的当前项编号(语句略)
     (5)=str$ ( p (i，j))
  End Sub
选项
答案(1)st．List(0) (2)ListCount (3)c*abs(d(j)-d(i)) (4)st．ListIndex (5)PricE．Text
解析 本题目涉及的控件有组合列表框(ComboBox)、文本框(TextBox)和命令按钮 (CommandButton)，主要考查组合列表框的常用属性。
   组合列表框常用的基本属性主要有ListIndex、List、Text、ListCount等，其中，List属性是个数组，用于记录列表框中的所有条目(每个

条目有唯一对应的序号，所有条目从0开始编号)，ListCount属性返回控件中条目的个数。当用户在控件中选择某个条目时，ListIndex属性返

回被选中内容的序号，Text属性返回被选中条目对应的字符串。若用户没有选中任何内容，则ListIndex返回-1。
   根据题目的说明和程序代码中的注释，在组合框st中设置首个列表项，显然就是要设置st．List(0)的值。对组合框中各列表项循环时，应

确定控件中的条目数，因此空(2)处应填入“ListCount"。由题中说明可知，第i站到第j站的票价等于两站之间的距离乘以常量C，而第i站到第

j站的距离为“abs(d(j)-d(i))”，其中abs()是求绝对值的函数，所以空(3)处应填入“C*abs(d(j)-d(i)”。空(4)所在行的注释已经表明应填

入组合框中被选中内容的序号ListIndex，空(5)则应填入PricE．Text，以在文本框中显示第i站到第j站的票价。
转载请注明原文地址:https://jikaoti.com/ti/0eW7FFFM
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

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