题目

编写VB程序，实现如下功能：在文本框Text1中输整数x，单击“查找删除”按钮Command1，在数组a（从小到大排列并显示在标签Label1中）中查找该数。若找到，则从数组a中删除该数（该数后的数组元素都往前移一位），并在标签Label2中显示删除后的结果（运行效果如图所示）；否则在标签Label2中显示“该数没有找到”。 请在划线处填入合适代码。 Dim a(1 To 10) As Integer Private Sub Form_Load() '产生10个升序的随机数并显示在Label1，代码略 End Sub Private Sub Command1_Click() Dim i As Integer, j As Integer, m As Integer, k As Integer Dim x As Integer, f As Boolean, s As String x=Val(Text1.Text) i=1: j=10: f=False Do While    ①   m=(i+j)\2 If a(m)=x Then f=True ElseIf    ②     Then i=m+1 Else j=m-1 End If Loop If f=True Then For k=m To 9    ③   Next k For k=1 To 9          '逐个显示删除后的数组元素 s=s+Str(a(k))+ "" Next k Else s="该数没有找到" End If Label2.Caption=s End Sub ① ② ③  答案：【1】i<=j And f= False【2】a(m)<x【3】a(k)=a(k+ 1)

查看本题答案和解析