题库 题库

【简答题】

试题五(15分,没空3分)
  阅读以下说明及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

相关试题