先把n个变量存到一个数组里a[n]dim flag=0 '定义一个标志符，当其为1时代表有相同的。for i=o to n for j=i+1 to n if a[i]=a[j] then flag=1 exit function end if next jnext i在另一个函数里判断if flag=1 thenmsgbox("不是两两不同！&qu 展开
先把n个变量存到一个数组里a[n]dim flag=0 '定义一个标志符，当其为1时代表有相同的。for i=o to n for j=i+1 to n if a[i]=a[j] then flag=1 exit function end if next jnext i在另一个函数里判断if flag=1 thenmsgbox("不是两两不同！")elsemsgbox("是两两不同！") 收起
