在板框压滤机中,如滤饼的压缩性指数s=0.4,且过滤介质阻力可忽略不计,则当过滤的操作压强增加到原来的2倍后,获得同样的滤液量V,过滤速率将为原来的倍()。
A.1.3
B.1.5
C.1.4
D.1.2
A.1.3
B.1.5
C.1.4
D.1.2
A.u
B.2u
C.0.5u
D.0.707u
注意:
程序中不要使用变量:文件必须存放在考生文件夹中,工程文件名为execise97.vbp,窗体文件名为execise97.frm。
在名为Form1的窗体上绘制一个命令按钮(标题为Cmd1)和一个垂直滚动条,其名称分别为Cmd1和VS1。编写适当的事件过程,使程序运行后,若单击命令按钮,则按如下要求设置垂直滚动条的属性:
Max=窗体高度
Min=0
LargeChange=50
SmallChange=10
如果移动垂直滚动条的滚动框,则在窗体上显示滚动框的位置值。程序的运行情况如下图所示。
注意:
不得使用任何变量:文件必须存放在考生文件夹中,工程文件名为execise74.vbp,窗体文件名为execise74.frm。
阅读以下应用说明及Visual Basic程序代码,将应填入______处的语句写在答题纸的对应栏内。
[应用说明9]
本应用程序的运行窗口如图2-6所示。
窗口中的3个文本框和2个按钮,名称分别为Txt_salary,Txt_base,Txt_tax,Cmd compute和Cmd_quit。运行时,文本框Txt_base中存放的是免税金额基数(应扣除的基本费用)。当用户在文本框Txt_salary中输入月收入(工资或薪金)并单击“计算”按钮 Cmd_compute后,Txt_tax框中就显示计算所得的应纳税额。文本框Txt_base和Txt_ tax在运行时不接受用户输入,Txt_base的内容以灰色显示。
个人工资(或薪金)所得税是按照超额累进的税率来征收的,其计算方法参考试题8。
[程序代码9]
Option Base 0
Private Sub Cmd_compute_Click()
Dim paylevel,taxPrate
paylevel=Array(0,500,2000,5000,20000,40000,60000,80000,100000,1000001)
taxPrate=Array(5,10,15,20,25,30,35,40,45)
K=(1)
S=0
if(K>0) Then
For j=1 TO 9
If (2) Then
S=S+(paylevel(j)-paylevel(j-1)) * taxPrate(j-1)/100
Else
S=S+((3) ) * taxPrate(j-1)/100
Exit For
End If
Next j
End If
(4)=Str$(S)
End Sub
Private Sub Cmd_quit_Click()
End
End Sub
Private Sub Form_Load()
Txt_tax.Text=“”
Txt_salary.Text=“”
Txt_base.Text=800
Txt_tax.Locked=True
Txt_base.Enabled=(5)
End Sub
例题:酪蛋白,先查出商品编码为3501.1000,再将这8位数字相加,即3+5+O+1+1+O+O+0=10,然后将答题卡两行0—9数字框涂成:
0
1
2
3
4
5
6
7
8
9
0
l
2
3
4
5
6
7
8
9
阅读以下说明及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)的字句写在对应栏内。
【应用说明】
某交通灯演示程序启动后,其运行窗口中包括红绿灯标志以及当前红绿灯状态剩余秒数的动态显示(如下图)。红灯与绿灯持续的时间分别为30秒与40秒。持续时间结束时,立即变更红绿灯,并重新显示剩余秒数。
【Visual Basic开发说明】
在开发过程中,先在窗体内制作形状“红绿灯框架”(长方形,透明),在该框架中,上部制作形状“红灯”(ShpRed,圆形),默认属性为透明;下部制作形状“绿灯” (ShpGreen,圆形),初始设置其填充方式属性FillStyle为实心,填充颜色属性FillColor为绿色。
再设置两个图像框(Image1在左,Image2在右),使其能分别装入数字图像文件,以显示当前红绿灯状态剩余的秒数。10个数字图像文件N0.bmp~N9.bmp分别用于显示数字0、1、…、9,这些文件存放在该应用程序所在目录中,以便在程序运行时按需要选择装入这两个图像框。为使图像文件装入图像框时能自动改变大小以适应图像框,这些图像框的Stretch属性都应设置成(1)。为使这些数字能每秒变化一次,开发窗体中设置了计时器Timcr1,其Enable属性设置成True,其Interval属性设置成1000。
程序中,全局变量Light用以标志当前红灯(0)或绿灯状态(1),RedT和GreenT分别表示红灯或绿灯状态剩余的秒数。
计时器Timer1的定时过程是在该程序启动1秒后首次执行的,以后每隔1秒执行1次。开发者应考虑对以下四种情况的处理:绿灯持续、绿灯转红灯、红灯持续、红灯转绿灯。
过程LoadNumber的功能是:将红绿灯剩余秒数N(2位整数)分离出两个一位数i与i,再将其变换成字符,删除前面可能产生的空格,再将数字图像文件Ni.bmp与Nj.bmp装入两个图像框(其中i与j应以相应的数字字符代替)。
【Visual Basic程序代码】
Public Light AS Integer, RedT As Integer, GreenT As Integer
Private Sub Form_Load()
Light = 1 : GreenT = 40 : RedT - 0 '初始化设置
End Sub
Private Sub Timer1_Timer() '计时器定时过程
If Light = 1 Then '绿灯状态时
(2)
If GreenT > 0 Then '绿灯持续时
Call LoadNumber (GreenT) '调用过程,显示数字GreenT
Else '绿灯转红灯时
ShpRed.FillStyle. = 0 '置红灯形状实心
ShpRed.FillColor = vbRed '为红灯形状填充红色
ShpGreen.FillStyle. = 1 '置绿灯形状透明
Call LoadNumber(30)
Light = 0 : RedT = 30
End If
Else '红灯状态时
RedT = RedT - 1
If RedT > 0 Then '红灯持续时
Call LoadNumber(RedT)
Else '红灯转绿灯时
ShpRed.FillStyle. = 1
ShpGreen.FillStyle. = 0
ShpGreen.FillColor = vbGreen
(3)
Light = 1 : GreenT = 40
End If
End If
End Sub
Sub LoadXumber (N As Integer) '根据剩余秒数N将数字图象装入图像框
Dim i As Integer, j As Integer
i = Int((4) )
j = (5)
Image1.Picture = LoadPicture("N"&Trim(Str(i))&".bmp") '显示十位上的数字
Image2.Picture = LoadPicture("N"&Trim(Str(j))&".bmp") '显示个位上的数字
End Sub
通过选择组合框中的选项来改变文本框的字体。在窗体中添加一个组合框 (Combo1)和一个文本框(Text1),代码如下。请填入适当的内容,将程序补充完整。
Private Sub Combo1_Cliek()
TextFontName=ComboList(ComboListlndex)
End Sub
Private Sub Form_Load()
With Combol
Addltem"宋体"
Addltem"隶书"
Addltem"黑体"
&8226;Addltem"楷体_GB2312""
&8226;Listlndex=0
End With
Text1.【 】30
Textl. 【 】=Combol.List(0)
End Sub