【Visual Basic代码】Dim p(30,30) As Single
问题:
【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