编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击“查找删除”按钮Command1，采用对分查找法在数组A(从小到大排列，并显示在标签Label1中)中查找该数。若找到，则从数组A中删除该数(该数后面的数组元素都前移一位)，并在标签Label2中显示删除后的结果(运行效果如图所示)；否则，在标签Label2中显示“该数没有找到”。 实现上述功能的VB代码如下，但加框处代码有错，请改正。 Dim A(1 To 10) As Integer ’用于保存10个按从小到大顺序排列的整数 ’Form_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示Private Sub Form_Load() ’代码略 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 ’变量f用于标记是否在数组中找到x x＝Val(Text1.Text) i＝1：j＝10 f＝False Do While(i＜＝j)And (f＝False) m＝Int((i＋j)/2) If A(m)＝x Then f＝True If Then i＝m＋1 Else j＝m－1’(1) Loop If f＝True Then For k＝m To 9 ’(2) Next k Label2.Caption＝“” For k＝1 To 9 Label2.Caption＝Label2.Caption＋Str(A(k))＋“” Next k Else Label2.Caption＝“该数没有找到” End If End Sub
n个数据的冒泡排序需要经过n－1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Command1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。 实现上述功能的VB代码如下，但加框处代码有错，请改正。 Dim a(1 To 8) As Integer Dim n As Integer Private Sub Form_Load() ’n＝8，排序前数据存储在数组a中，并在列表框List1中显示 ’代码略 End Sub Private Sub Command1_Click() Dim flag As Boolean ’flag值为True表示一遍加工中发生过交换 i＝1 flag＝True Do While ’(1) flag＝False For j＝n To i＋1 Step－1 If a(j)＜a(j－1) Then k＝a(j)：a(j)＝a(j－1)：a(j－1)＝k flag＝True End If Next j i＝i＋1 Loop Label3.Caption＝“排序过程的加工遍数为”＋’(2) For i＝1 To n List2.Addltem Str(a(i)) Next i End Sub
如下图所示，请将完成以下任务的操作步骤补充完整。 任务：把“全国中小学电脑制作活动”（http://www.huodong2000.com.cn）网站添加到IE浏览器的收藏夹中，并取名为“电脑制作”。 操作步骤： （1）启动IE浏览器，在 ① 栏中输入http://www.huodong2000.com.cn； （2）单击“ ② ”菜单，选择“添加到收藏夹…”命令； （3）在“添加到收藏夹”对话框的 ③ 框中输入“电脑制作”，然后单击“确定”按钮。
