发布时间 : 星期六 文章2016年浙江省高中信息技术选考卷模拟卷更新完毕开始阅读
a(i) = Int(Rnd * 90) + 10 List1.AddItem Str(a(i)) Next i End Sub
Private Sub Command1_Click() List1.Clear For i = 1 To 10 If ①Then
List2.AddItem Str(a(i)) Else ②
End If Next i End Sub
在程序①、②划线处，填入适当的语句或表达式，把程序补充完整：
程序①划线处的语句为：。 程序②划线处的语句为：。
19．注册用户名问题：在注册账号的时候，有时候系统会提示用户名是否已经被注册等提示信息。小军用VB程序设计了检查用户名是否被注册过的模拟程序，在文本框Text1中输入待注册的用户名（由字母和数字组成）后，单击“检查用户名”按钮Command1，如果输入的用户名已经被注册过，在标签Label2中提示“该用户名已经被注册，请更换”，否则提示“恭喜，该用户名未被注册，可以使用”，界面设计如第19题-1图所示。设计的算法中用于检查用户名是否被注册过的check函数流程图如第19题-2图所示（说明：模拟系统中已经有10000个用户名）。
Text1 Command1
Label2 第19题-1图
第19题-2图
程序代码如下：
Dim d(1 To 10000) As String '用于存储已经存在的10000个用户名
Private Sub Form_Load()
'将已经存在的10000个用户名放在数组d中 '将数组d中数据升序排列 '代码略 End Sub
Function check(username As String) As Boolean
'check函数用于检查用户名是否已经被注册
Dim head As Integer, tail As Integer, mid As Integer Dim key As String check = False head = 1 tail = 10000 key = username
Do While head <= tail mid = Fix((head + tail) / 2)
If d(mid) <> key Then ' ① check = True
Exit Do ElseIfd(mid) < key Then head = mid + 1 Else
mid = tail- 1 ' ② End If Loop End Function
Private Sub Command1_Click()
If _________③_____________ Then
Label2.Caption = \该用户名已经被注册，请更换\ Else
Label2.Caption = \恭喜，该用户名未被注册，可以使用\ End If End Sub
请回答下列问题：
（1）用于检查用户名是否已经被注册的check函数主要采用的查找算法名称是。 （2）程序加框处代码有错，请改正。①_______________ ② _______________。 （3）划线③处的代码应为___________________。