VB数组删除元素答:Option Base 1 Private Sub Form_Click()Dim a(), n%, k%, i%, x a = Array(1, 4, 7, 10, 13, 16, 19, 22, 25)n = UBound(a)For i = 1 To n Print a(i);Next i Print ReDim Preserve a(n + 1)x = Val(InputBox("输入:"))Print "要删除的数是"; x k = 1...
编写程序,读入一个整数数组,删除值相同的多余元素,输出新的数组答:代码如下(java):importjava.util.Arrays;publicclassTest2{publicstaticvoidmain(String[]args){int[]a={1,1,4,4,3,3,5,3,8,0,5,1};System.out.println("输入的数组为:"+Arrays.toString(a));a=Arrays.stream(a).distinct().toArray();System.out.println("删除相同后的数组为:"+...
从数组中删去0元素答:呵呵 vb的去掉0。。。Option Explicit Option Base 1 Dim Arr()Private Sub Command1_Click()Dim Num As Integer Dim I As Integer Arr = Array(0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 2, 2, 2)Num = UBound(Arr)Del0 Arr(), Num For I = 1 To Num Print Arr(I)Next I End...