作业帮 > 综合 > 作业

VB假定数组a的值利用Array()函数赋给,分别为{1,6,8,3,5,9,10,2,7,4},删除Key值为10的元

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 11:56:04
VB假定数组a的值利用Array()函数赋给,分别为{1,6,8,3,5,9,10,2,7,4},删除Key值为10的元素
代码如下.
----------------------------
Dim a
Private Sub Command1_Click()
l = LBound(a)
u = UBound(a)
For i = l To u
If a(i) = 10 Then
For j = i To u - 1
a(j) = a(j + 1)
Next
End If
Next
End Sub
Private Sub Form_Load()
a = Array(1,6,8,3,5,9,10,2,7,4)
End Su