【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站的票价。