VBS中的数组问题
答案:1 悬赏:70 手机版
解决时间 2021-02-21 13:36
- 提问者网友：泪痣哥哥
- 2021-02-21 00:07
长度为23的一个数组A（23），给A（i）赋一个随机值（1到100），如何比较中间重复的A(i)。用VBS写。谢谢
最佳答案
- 五星知识达人网友：西风乍起
- 2021-02-21 01:06
'═════代═══码═══开═══始═════
dim A(23)
randomize
for i=0 to 23
A(i)=int(rnd(1)*100+1)
next
for i=0 to 23
t=""
for j=0 to 23
if i<j and A(i)=A(j) then
t=t&"和"&j
end if
next
if t<>"" then
data=data&vblf&"数值"&A(i)&"重复，在"&i&t&"号"
end if
next
if data="" then
msgbox "无重复",0,"提示"
else
msgbox data,0,"提示"
end if
'═════代═══码═══结═══束═════
dim A(23)
randomize
for i=0 to 23
A(i)=int(rnd(1)*100+1)
next
for i=0 to 23
t=""
for j=0 to 23
if i<j and A(i)=A(j) then
t=t&"和"&j
end if
next
if t<>"" then
data=data&vblf&"数值"&A(i)&"重复，在"&i&t&"号"
end if
next
if data="" then
msgbox "无重复",0,"提示"
else
msgbox data,0,"提示"
end if
'═════代═══码═══结═══束═════
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯