先把strA排序,
创新互联公司从2013年成立,先为旌阳等服务建站,旌阳等地企业,进行企业商务咨询服务。为旌阳企业网站制作PC+手机+微官网三网同步一站式服务解决您的所有建站问题。
ind = 2
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb语法忘了。。。大概是这么个意思吧。。。。 排序N LOG N,后面是线性的N,所以总共是NLOGN
'假设数组如下
dim d(10) as integer
dim i as integer
for i=lbound(d) to ubound(d)
d(i) = i
next i
'数组各元素之和
dim S as integer = 0
for i=lbound(d) to ubound(d)
s = s + d(i)
next i
msgbox(s)
datagrid不行,因为datagrid绑定数据库,因此不能添加一个附加行。即使在SQL命令中通过union方式进行统计后显示,但又会导致datagrid不能新增。解决办法有2个:1、用MSFlexGrid;2、自己写一个用户控件,大概意思就是里面有2个datagrid,一个大的,专门显示记录,一个小的,不要标题行,专门显示合计数;在里面增加写代码使它们水平同步滚动。
删除数组元素很简单,重新声明数组即可,代码如下
Redim [Preserve] 数组名 (下标上界)
这个也可以称为动态数组,这个东西是基础,非常重要。
这个功能就等于说,把原来的数组重新声明,Preserve是可选项,他的意思就代表是否保留数组内容,这是重点,如果你想删除数组中的元素,就不要写Preserve,这个方法的控制性也很好,可以重新声明数组的元素,各个方面都很有用,希望采纳!谢谢!