YB45包装机运转过程中,附着在内框纸输送通道及周围零件的灰尘、碎片,不会影响内框纸()。
A.输送
B.更换
C.切割
D.吸送
A.输送
B.更换
C.切割
D.吸送
阅读以下说明及Visual Basic程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
甲乙两地之间的铁路线上有二十多个火车站,为方便乘客查询票价,特开发了火车票价查询程序,其运行窗口如下图所示。乘客只要通过
两个下拉列表框分别选择起点与终点站名,再单击“查询”按钮,则票价文本框中就会显示相应的票价。
在开发过程中,设选择起点和终点站名的组合框(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 i
End Sub
Private Sub query_Click()
i=(4) '组合框ST中选择的当前项编号
j=… '组合框SP中选择的当前项编号(语句略)
(5)=str$ (p (i,j))
End Sub
●试题五
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
在窗体上画一个名称为Combo1的组合框,画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后,当在组合框中输入一个新项后按回车键(ASCII码为13)时,如果输入的项在组合框的列表中不存在,则自动添加到组合框的列表中,并在Label2中给出提示"已成功添加输入项";如果存在,则在Label2中给出提示"输入项已在组合框中"。
【程序】
Private Sub Combo1_ (1) (KeyAscii As Integer)
If KeyAscii= (2) Then
For i=0 To (3)
If Combo1.Text= (4) Then
Label2.Caption="输入项已在组合框中"
Exit Sub
End If
Next i
Label2.Caption="已成功添加输入项"
Combo1. (5) Combo1.Text
End If
End Sub