题型:综合题 题类:常考题 难易度:普通
浙江省台州市黄岩第二高级中学2019-2020学年高二下学期信息技术返校考试试卷
实现上述功能的VB程序如下,但加框处代码有错误,请改正。
Const n=10
Dim d(1 To n)As Integer
Private Sub Form Load()
′随机产生n整数并存储在数组d中,并把数组d按升序排序
′在列表框中显示排序后的数据,代码略
End Sub
Private Sub Command1_Click()
Dim key As Integer, p As Integer
key =Val(Text1.Text)
‘①
If p<>0 Then
Label2. Caption="该数据在第"+Str(p)+"个位置"
Else
Label2. Caption="没有找到! "
End If
End Sub
Function search(key As Integer) As Integer
i=1: j=n
Do While i<= j
m=(i+j)\2
If d(m)=key Then
search =m
Exit Function
ElseIf key<d(m)Then
j=m-1
Else
i=m+1
End If
Loop
‘②
End Function
试题篮