对分查找
明明设计了某企业职工IC卡查询系统,输入职工的卡号,可以查出该卡号对应的余额。所有职工的IC卡号和相应的余额已分别保存在zg数组(按从小到大排序)和ye数组中,第i个职工卡号保存在zg(i)中,对应的卡号余额保存在ye(i)中。程序界面如图所示,左边列表框List1中显示的是部分职工的卡号和余额,在文本框Text1中输入职工的IC卡号,单击“查询余额”按钮(Command1)后,如果找到此卡号,则在
标签Lab3中显示“此卡号余额为”和对应的余额
值,如果未找到则显示“找不到此卡号,请重新输入”。
解决此问题的部分程序段如下:
Const n=500' 设卡号总数为500
Dim zg(1 To n) As Long
Dim ye(1 To n) As Single
Private Sub Form1_Load()
' 此过程用于对数组zg和数组ye进行初始赋值,
代码略
End Sub
Private Sub Command1_Click()
Dim x As Long,i As Long, j As Long,m As Long,find As Boolean
x=Val(Text1.Text)
i=1:j=n:find=False
Do While ①
②
If x=zg(m) Then
③
ElseIf x<zg(m) Then
j=m-1
Else
i=m+1
End If
Loop
If find = true Then
Lab3.Caption=″此卡号余额为″+Str(ye(m))+″元″
Else
Lab3.Caption=″找不到此卡号,请重新输入″
End If
End Sub
在程序①、②、③画线处填入适当的语句或表达式。将程序补充完整:
(1)程序中①画线处应填入
(2)程序中②画线处应填入
(3)程序中③画线处应填入
www.99jianzhu.com/包含内容：建筑图纸、PDF/word/ppt 流程，表格，案例，最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。