社区
VB基础类
帖子详情
一个简单问题?
hztgames
2003-09-12 02:58:16
一个数组变量,如何计算出其中有多少个数?重复的不算
例如:算出的数应该为6
Dim n(7) As Integer
n(1) = 1
n(2) = 2
n(3) = 3
n(4) = 4
n(5) = 5
n(6) = 6
n(7) = 1
...全文
26
8
打赏
收藏
一个简单问题?
一个数组变量,如何计算出其中有多少个数?重复的不算 例如:算出的数应该为6 Dim n(7) As Integer n(1) = 1 n(2) = 2 n(3) = 3 n(4) = 4 n(5) = 5 n(6) = 6 n(7) = 1
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
rocky2
2003-09-12
打赏
举报
回复
不好意思刚才错了
strtemp=";"
for i=1 to 7
if instr(strtemp,";"& in(i) &";",0,vbtext) =0 then
strtemp=strtemp & n(i) &";"
k=k+1
endif
next
rocky2
2003-09-12
打赏
举报
回复
可以先将加到记录集中,然后进行排序,取出。
或者
strtemp=";"
for i=1 to 7
if instr(strtemp,in(i),0,vbtext) =0 then
strtemp=strtemp & n(i)
k=k+1
endif
next
kmzs
2003-09-12
打赏
举报
回复
一个头大的循环,要挨个比较还要计数,用递归试试看。。。
strongfisher
2003-09-12
打赏
举报
回复
对不起我写错了
hztgames
2003-09-12
打赏
举报
回复
strongfisher(Haiwolf) 你给的算法好象有点问题也
n(1) = 1
n(2) = 2
n(3) = 3
n(4) = 4
n(5) = 5
n(6) = 1
n(7) = 1时算出的个数为4个
二师兄的老公
2003-09-12
打赏
举报
回复
如果要考虑算法,这个问题一点也不简单。
taosihai1only
2003-09-12
打赏
举报
回复
同上
strongfisher
2003-09-12
打赏
举报
回复
最麻烦的是每一个和所有的比较
for i=1 to 7
for ii=1 to 7
if i<>ii then
if n(i)<>n(ii) then
k=k+1
endif
endif
next
next
“秒杀”是什么?
简单
来说即使在同时间有大量请求抢购买同一商品并交易
“秒杀”是什么?
简单
来说即使在同时间有大量请求抢购买同一商品并交易,因此会涉及大量并发写和并发读。所以说“秒杀”对程序开发者有很大的的挑战。怎么防止系统在应对百万级请求时候而不出故障?怎样保障高并发状态下数据的一致性?怎样在节约服务器成本情况下,应对短时间极大的的并发请求?怎样针对大流量读写请求进行定制化优化?对于这些
问题
,都能在这个课程中找到解决方案。此外你学完这套课程可以利用“秒杀”这个系统,了解怎样打造
一个
高并发、高可用、高性能的系统架构。
什么是跨域
问题
?如何解决?
跨域
问题
指的是不同站点之间,使用 ajax 无法相互调用的
问题
。跨域
问题
本质是浏览器的一种保护机制,它的初衷是为了保证用户的安全,防止恶意网站窃取数据。 但这个保护机制也带来了新的
问题
,它的
问题
是给不同站点之间的正常调用,也带来的阻碍,那怎么解决这个
问题
呢?接下来我们一起来看。 1.跨域三种情况 在请求时,如果出现了以下情况中的任意一种,那么它就是跨域请求: 协议不同,如 http 和 https; 域名不同; 端口不同。 也就是说,即使域名相同,如果
一个
使用的是 http,另
一个
使用的是 http
golang面试官:for select时,如果通道已经关闭会怎么样?如果select中只有
一个
case呢?
golang面试官:for select时,如果通道已经关闭会怎么样?如果select中只有
一个
case呢?
问题
for循环select时,如果通道已经关闭会怎么样?如果select中的case只有
一个
,又会怎么样? 怎么答 for循环select时,如果其中
一个
case通道已经关闭,则每次都会执行到这个case。 如果select里边只有
一个
case,而这个case被关闭了,则会出现死循环。 解释 1.for循环里被关闭的通道 c通道是
一个
缓冲为0的通道,在main开始时,启动
一个
协程对c通.
Ajax面试题-ajax 是什么?同步和异步的区别?如何解决跨域
问题
?
ajax 是什么?同步和异步的区别?如何解决跨域
问题
? 一、ajax 是一种技术方案,依赖浏览器提供的 XMLHttpRequest 对象发出 HTTP 请求和接收 HTTP 响应;实现了在页面不刷新的情况下和服务器进行数据交互。 二、同步是阻塞模式,异步是非阻塞模式 同步:提交请求 >> 等待服务器处理 >> 处理完毕返回,这个期间浏览器不能干任何事。 异步:请求通过事件...
什么是CAS机制?如何解决ABA
问题
?
你知道什么是CAS机制吗?CAS和Synchronized的区别是什么?适用场景呢?
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章