把一个数列中所有的相同的数删的只剩一个,VB啊

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/09/24 13:16:34

dim a(10),b(),i,j,k,c
'对数组a(0)~a(10)赋值.
for i=0 to 10
if i>0 then
c=0
for j=0 to i-1
if a(j)=a(i) then c=1:exit for
next
end if
if c=0 then
redim preserve b(k)
b(k)=a(i)
k=k+1
end if
next i
数组b包含有数组a的所有元素,且不重复.
再问：能不能写得详细点，怎么做，版面按钮设计
再答：你的题目也没写清楚啊，数组怎么赋值？是输入还是随机数？
再问：先输入数，最后点击按钮删除相同数
再答：窗体里面放个按钮，完整代码如下： Private Sub Command1_Click() Dim a(9), b(), i, j, k, c '数组含有10个数 Print "原数组：" For i = 0 To 9 a(i) = Val(InputBox("第" & i + 1 & "个数")) Print a(i) & " "; If i > 0 Then c = 0 For j = 0 To i - 1 If a(j) = a(i) Then c = 1: Exit For Next End If If c = 0 Then ReDim Preserve b(k) b(k) = a(i) k = k + 1 End If Next i Print vbCrLf & "删除重复数值后的数组：" For i = 0 To UBound(b) Print b(i) & " "; Next End Sub

把一个数列中所有的相同的数删的只剩一个,VB啊我有一个vb程序,目的是：把一个给定数插到有序数列中,插入后数列仍然有序.我编写的插不进去数, 编写函数fun,其功能是删去一维数组中所有相同的数,使之只剩一个.对于main函数中 VB:有一个数列,前两个数是1,1,……要求输出此数列的前30个数. 用VB程序做以下题目求所有的三位数,他满足该数中有某两位为相同数字,且该数是一个完全平方数,并求出所有这些数的和可不可以把数列看成一个特殊的数集? 已知一个数列的前三项为345,以后每个数为前三个数之和,vb编程求此数列的第26项删除正整数数列{n}中的所有完全平方数,得到一个新数列,这个数列的第2009项是? 在VB中求100以内个位数为7的所有数及其所有数之和. matlab问题如何删除数组中相邻两个相同的数只保留一个 VB中输入一个数n,求出n以内能被5整除的所有正整数的个数怎么写程序数列3,6,9,12,15,18...,300,303是一个等差数列.这个等差数列中所有数的和是