【分析解答题】

【VisualBasic代码】

Dim p(30，30)As Single ’通用声明
ConstC=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