删除一个数列中的重复数
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/09/15 00:36:51
删除一个数列中的重复数
Option Explicit
Option Base 1
Dim A() As Integer '定义了一个模块级的动态数组
Private Sub Command1_Click()
Dim N As Integer, I As Integer
Text1 = ""
Text2 = ""
N = InputBox("输入N")
ReDim A(N)
Randomize
For I = 1 To N
A(I) = Int(10 * Rnd) + 1
Text1 = Text1 & Str(A(I))
Next
End Sub
Private Sub CmdErase_Click()
Dim Ub As Integer, I As Integer, J As Integer
Dim K As Integer, N As Integer
Text2 = ""
Ub = UBound(A)
N = 1
Do While N < Ub
I = N + 1
Do While I
Option Explicit
Option Base 1
Dim A() As Integer '定义了一个模块级的动态数组
Private Sub Command1_Click()
Dim N As Integer, I As Integer
Text1 = ""
Text2 = ""
N = InputBox("输入N")
ReDim A(N)
Randomize
For I = 1 To N
A(I) = Int(10 * Rnd) + 1
Text1 = Text1 & Str(A(I))
Next
End Sub
Private Sub CmdErase_Click()
Dim Ub As Integer, I As Integer, J As Integer
Dim K As Integer, N As Integer
Text2 = ""
Ub = UBound(A)
N = 1
Do While N < Ub
I = N + 1
Do While I
2个子程序中的n不相干,都是局部变量,退出各自的子程序后n都会清0
删除正整数数列{n}中的所有完全平方数,得到一个新数列,这个数列的第2009项是?
删除正整数数列1,2,3等中的所有完全平方数,得到一个新数列,这个新数列的2005项是?
求程序改错假定整数数列中的数不重复,并存放在数组中.下列给定程序中,函数FUN的功能是:删除数列中支值为X的元素,n中存
删除正整数数列1,2,3,······中的所有完全平方数,得到一个新数列,这个新数列的第2005项是?
定义n3为完全立方数,删除正整数列1,2,3...中所有完全立方数,得到一个新数列,则新数列中的第2008项为
1. 在有序数列中插入一个数,生成新的有序数列? 2. 在已知数列中删除某个数?
1.在有序数列中插入一个数,生成新的有序数列?2.在已知数列中删除某个数?
excel数字排序与删除重复数问题
2011时数列11.15.19.23.27中的一个数吗?
1,3,5,7,11,13,15,17数列中删除两个数
excel 中怎样把一列中重复的数字删除掉?因为我要数具体多少个数字 ,有重复的数起来不方便
c语言.编程序,输入10个整数,把其中重复出现的数删去(如出现三个87,则删去后两个),输出删除重复数