2. 计算机
  3. 考生文件夹下有工程文件sjt3．vbp，控件及其属性见窗体文件。 程序功能为：单击窗体，则先把数据集读入数组arr，再根据用户输入的值删除数组中对应的元素，并提示操作结果。删除元素分为三步完成：首先查找到要删除的元素，其次将其后续元素顺次前移，最后

考生文件夹下有工程文件sjt3．vbp，控件及其属性见窗体文件。 程序功能为：单击窗体，则先把数据集读入数组arr，再根据用户输入的值删除数组中对应的元素，并提示操作结果。删除元素分为三步完成：首先查找到要删除的元素，其次将其后续元素顺次前移，最后

admin2019-08-21  81
问题 考生文件夹下有工程文件sjt3．vbp，控件及其属性见窗体文件。
    程序功能为：单击窗体，则先把数据集读入数组arr，再根据用户输入的值删除数组中对应的元素，并提示操作结果。删除元素分为三步完成：首先查找到要删除的元素，其次将其后续元素顺次前移，最后将数组大小减1。
    请将程序代码中的注释符去掉，把?改为正确内容，以实现上述程序功能。
    注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。
选项
答案步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释“’”，将问号改为正确的内容。 参考答案(画横线部分是需要填入的内容) Private Sub Form_Click() Dim art() Dim x As Single Dim i As Integer，j As Integer art=Array(23，6，9，12，5，8，20，35，65，2，46，56，200，10，7) For i=LBound(aiT)To UBound(nit) Text1．Text=Text1．Text+Str(arr(i)) Next i x=Val(InputBox("输入要删除的值："，，0)) For i=LBound(an．)To UBound(arr) If x=arr(i) Then For j=i+1 To UBound(nit) arr(j－1)= arr(j) Next j ReDim Preserve arr(LBound(arr)To UBound (arr)－1) For k=LBound(arr)To UBound(arr) Text2．Text=Text2．Text+Str(arr(k)) Next k MsgBox"已完成删除操作!" Exit Sub End If Next i MsgBox"找不到删除的元素!" End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 通过For循环把数组alT中的数值依次显示在textl中；Val函数把输入的字符串转化为数值类型；将输入的需要删除的数据与art数组中的每一个数进行比较，若相等，则把该数后面的每一个数依次向前移动一个位置，数组长度减1，此时需要重新分配数组的长度，如果不加Preserve选择项，会清除数组中的内容；找到所需删除的元素，进行相关的操作后，需要退出该事件。
转载请注明原文地址:https://kaotiyun.com/show/aOUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)