VB随机生成已有数组中的4个不重复数据，并使A*B*C*D等于一定值 dim n(100，4)dim i，j，q，p，mfor i=1 to n-3for j=i+1 to n-2for q=j+1 to n-1for p=q+1 to nif a(i)*a(j)*a(q)*a(p)=num thenm=m+1n(m，1)=a(i)n(m，2)=a(j)n(m，3)=a(q)n(m，4)=a(p)end ifnext p，q，j，i把所有情况先找到。存数组里面。然后随机在新数组里面抽。没调试，可能有错。
如何让随机数生成出来的数字不重复，在那添加， 保存所有已抽取的结果，然后做判断，重复就再次抽取呗
如何无重复的从一个数组中随机抽取一个数字
VB代码“如何在字符串数组中随机抽取一个字符串” 取随机数知道怎么取对吧？相当你取随机数j后j(原字符串)情况下调用函数mid(原字符串，j，随机取的字符串的长度）你也可以将长度也取随机数，即可得到随机取的字符串。补充：这样的话你设置数组变量A（i）用循环语句将其所有单元赋值然后随机取 i 即可。
VB生成不重复的随机数 我的建议是：第一步、先做一个数组，存上这35个数（可以不是连续的数，也可以是人名、字符串什么的）；第二步、随机生成一个1-35之间的数，输出；第三步：把这个数和数组的。
vb输入的8个数字随机相加的问题 解题思路：定义一个数组，用于存放输入的8个数字。定义一个变量A，用于存放相加的和。用一个循环，随机从数组中抽取数字，进行累加。当A大于1000时，停止循环。记录每次随机抽取的数字。不知道能不能帮到你。
