vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/28 09:25:36
vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,要求从键盘输入
提示:1.线查找删除的元素,没有则返回
2.找到后.则从下一个元素到最后元素依次往前移
3.最后用ReDim Preserve语句讲数组大小减一
提示:1.线查找删除的元素,没有则返回
2.找到后.则从下一个元素到最后元素依次往前移
3.最后用ReDim Preserve语句讲数组大小减一
Private Sub Command1_Click()
Dim a(), i, n
a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)
Print Join(a, ",")
n = Val(InputBox("输入一个数:", , 8))
For i = 0 To UBound(a)
If a(i) = n Then Exit For
Next
If i < UBound(a) + 1 Then
For i = i To UBound(a) - 1
a(i) = a(i + 1)
Next
ReDim Preserve a(UBound(a) - 1)
Print Join(a, ",")
Else
Print "未找到:" & n
End If
End Su
Dim a(), i, n
a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)
Print Join(a, ",")
n = Val(InputBox("输入一个数:", , 8))
For i = 0 To UBound(a)
If a(i) = n Then Exit For
Next
If i < UBound(a) + 1 Then
For i = i To UBound(a) - 1
a(i) = a(i + 1)
Next
ReDim Preserve a(UBound(a) - 1)
Print Join(a, ",")
Else
Print "未找到:" & n
End If
End Su
vb数组问题已知数组A=array(7,6,5,1,8,5,3,9,4)编写一程序,删除数组中值为X(例如为3)的元素,
VB假定数组a的值利用Array()函数赋给,分别为{1,6,8,3,5,9,10,2,7,4},删除Key值为10的元
编写程序,将3~n之间的所有非素数存入数组array中,然后输出该数组元素. 例如:若n=20,则输出 4,6,8,9,
PHP中如何才为一个数组,$arr=array(array(1,2,3,4,5),array(6,7,8,9,10))算
二维数组的应用实例【问题描述】 给一维数组输入M个整数,假设M=6,数组元素分别为 7 4 8 9 1 5 , 要求
已知有a[10]、b[5]两个数组,其中a 为升序数组,编写程序将b 数组中的各个元素插入
C++中,定义一个整型数组a[10]={1,2,3,4,5,6,7,8,9,10},编写一个函数实现将a数组各个数组元素
定义一个4*4的二维数组a,请编写程序使数组四周元素为2,其余是1
C语言 判断数组元素 例如我要判断 array[8];里面是不是 1,2,3,4,5,6,7,8
数组定义为int a[3][2]={1,2,3,4,5,6,},值为6的数组元素是a[2][1] 为什么
数组定义为 int a[3][2]={1, 2, 3, 4, 5, 6},数组元素_____的值为6.
若定义数组int a[]={1,2,3,4,5,6};则此数组元素a[a[2]]的值为__