【說明】
甲乙兩地之間的鐵路線上有二十多個火車站，為方便乘客查詢票價，特開發(fā)了火車票價格查詢程序，其運行窗口如下圖所示。乘客只要通過兩個下拉列表框分別選擇起點與終點站名，再單擊“查詢”按鈕，則票價文本框就會顯示相應(yīng)的票價。

在開發(fā)過程中，設(shè)選擇起點和終點站名的組合框(ComboBox)名分別為ST和SP，顯示票價的文本框(TextBox)名為Price，“查詢”按鈕(CommandButton)名為Query；設(shè)ST與SP中的諸列表項完全相同，且都是從甲地開始依次排列，從第i站到第j站的票價存放在二維對稱矩陣P的元素P(i，j)中，假設(shè)從甲地到第i站行駛的距離存放在d(i)中，火車票價等于其行駛距離乘以C(常數(shù))。
【Visual Basic代碼】
Dim p ( 30 ， 30 ) As Single ‘通用聲明
Const C=0.2
Private Sub Form_Load ()
Dim d ( 30 ) As Single
__（1）__ = “甲地” ‘在ST組合框中設(shè)置首個列表項
…… ‘在ST和SP中設(shè)置其他列表項(若干行語句)
…… ‘對數(shù)組d(i)賦值(若干行語句)
For i=0 to ST. ___（2）___ -1 ‘對ST中各列表項循環(huán)
For j=0 to SP. ___（2）___ -1 ‘對SP中各列表項循環(huán)(這兩處填寫內(nèi)容相同)
P( i， j ) = ___（3）___
Next j
Next i
End Sub
Private Sub query_Click ()
i = ___（4）___ ‘組合框ST中選擇的當(dāng)前項編號
j = …… ‘組合框SP中選擇的當(dāng)前項編號(語句略)
___（5）___ = str $ ( p ( i ， j ) )
End Sub