vb大侠们看如何表达：如果a等于n个数中间的任意一个,b就等于余下这n-1个数字中的任意一个,

Question

vb 大侠们看如何表达：如果a 等于n个数中间的任意一个,b就等于余下这n-1个数字中的任意一个,

Answer 1

Option Base 1
Private Sub Command1_Click()
’下面开始了
ABC=array（1,2,3,4,5,6） ‘把你的这些数读入数组
a=inputbox("请输入n中的一个数作为X") ’输入其中一个数
for i=1 to ubound（ABC）
if ABC（i）= a then
AAA = i
exit for
end if
next ‘判断X的位置
buxing：
BBB=int(rnd*ubound(ABC)) '在n个数中抽一个
while BBB = AAA
goto buxing ‘当抽到的数就是a,那就重新抽,回到buxing：
Wend
MsgBox ("b=" & ABC(BBB)) ‘得出结果
end sub
估计你都能看懂,但每部还是都给你注释,
希望我的回答对你有所帮助