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

在開發(fā)過程中，設(shè)選擇起點(diǎn)和終點(diǎn)站名的組合框(ComboBox)名分別為ST和SP，顯示票價(jià)的文本框(TextBox)名為Price，“查詢”按鈕(CommandButton)名為Query；設(shè)ST與SP中的諸列表項(xiàng)完全相同，且都是從甲地開始依次排列，從第i站到第j站的票價(jià)存放在二維對(duì)稱矩陣P的元素P(i，j)中，假設(shè)從甲地到第i站行駛的距離存放在d(i)中，火車票價(jià)等于其行駛距離乘以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è)置首個(gè)列表項(xiàng)
…… ‘在ST和SP中設(shè)置其他列表項(xiàng)(若干行語句)
…… ‘對(duì)數(shù)組d(i)賦值(若干行語句)
For i=0 to ST. ___（2）___ -1 ‘對(duì)ST中各列表項(xiàng)循環(huán)
For j=0 to SP. ___（2）___ -1 ‘對(duì)SP中各列表項(xiàng)循環(huán)(這兩處填寫內(nèi)容相同)
P( i， j ) = ___（3）___
Next j
Next i
End Sub
Private Sub query_Click ()
i = ___（4）___ ‘組合框ST中選擇的當(dāng)前項(xiàng)編號(hào)
j = …… ‘組合框SP中選擇的當(dāng)前項(xiàng)編號(hào)(語句略)
___（5）___ = str $ ( p ( i ， j ) )
End Sub