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

在開(kāi)發(fā)過(guò)程中，設(shè)選擇起點(diǎn)和終點(diǎn)站名的組合框(ComboBox)名分別為ST和SP，顯示票價(jià)的文本框(TextBox)名為Price，“查詢(xún)”按鈕(CommandButton)名為Query；設(shè)ST與SP中的諸列表項(xiàng)完全相同，且都是從甲地開(kāi)始依次排列，從第i站到第j站的票價(jià)存放在二維對(duì)稱(chēng)矩陣P的元素P(i，j)中，假設(shè)從甲地到第i站行駛的距離存放在d(i)中，火車(chē)票價(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)(若干行語(yǔ)句)
…… ‘對(duì)數(shù)組d(i)賦值(若干行語(yǔ)句)
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)(這兩處填寫(xiě)內(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)(語(yǔ)句略)
___（5）___ = str $ ( p ( i ， j ) )
End Sub