扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
先把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，这个方法的控制性也很好，可以重新声明数组的元素，各个方面都很有用，希望采纳！谢谢！
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网