2. 从业资格
  3. 【说明】 　　甲乙两地之间的铁路线上有二十多个火车站，为方便乘客查询票价，特开

【说明】 　　甲乙两地之间的铁路线上有二十多个火车站，为方便乘客查询票价，特开

资格题库2022-08-02  79
问题 【说明】　　甲乙两地之间的铁路线上有二十多个火车站，为方便乘客查询票价，特开发了火车票价格查询程序，其运行窗口如下图所示。乘客只要通过两个下拉列表框分别选择起点与终点站名，再单击“查询”按钮，则票价文本框就会显示相应的票价。在开发过程中，设选择起点和终点站名的组合框(ComboBox)名分别为ST和SP，显示票价的文本框(TextBox)名为Price，“查询”按钮(CommandButton)名为Query；设ST与SP中的诸列表项完全相同，且都是从甲地开始依次排列，从第i站到第j站的票价存放在二维对称矩阵P的元素P(i，j)中，假设从甲地到第i站行驶的距离存放在d(i)中，火车票价等于其行驶距离乘以C(常数)。 【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 iEnd Sub　　Private Sub query_Click ()　　　i = ___（4）___ ‘组合框ST中选择的当前项编号　　　j = …… ‘组合框SP中选择的当前项编号(语句略)　　　___（5）___ = str $ ( p ( i ， j ) )End Sub
选项
答案
解析 （1） st.List(0)
（2） ListCount
（3） abs(d(j)-d(k))*C
（4） st.ListIndex
（5） Price.Text

本题目涉及的控件有组合列表框（ComboBox）、文本框（TextBox）和命令按钮（CommandButton），主要考查组合列表框的常用属性。
转载请注明原文地址:https://tihaiku.com/congyezige/2428390.html
本试题收录于： 初级程序员题库软件水平考试初中高级分类

初级程序员

软件水平考试初中高级

相关试题推荐
随机试题
最新回复(0)