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

admin2019-08-21  43

问题 考生文件夹下有工程文件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
0

随机试题
最新回复(0)