51问答网 > 求一个用VB编写生成（1~n）不重复随机整数的代码，并且输出到特定的txt文本里面，谢谢

求一个用VB编写生成（1~n）不重复随机整数的代码，并且输出到特定的txt文本里面，谢谢

输出如上面格式，谢谢啊

2024-11-24 14:36:00

推荐回答（2个）

回答1：

Dim a%(1 to 100),s$ '假设100个数字
Randomize
for i = 1 to 100        '生成随机数循环
    a(i)=int(rnd*100)+1
    for j = 1 to i        '去看看前面有没有一样的
        if a(j)=a(i) then
            i=i-1            '倒退一次 重新生成随机数
            exit for
        end if
    next
next

open app.path &"\a.txt" for output as #1
for i = 1 to 100 '去写入
    s=s & vbcrlf & "a(" & i & ")=" & a(i)
next
print #1,s
close #1

现在没环境没调试过。试试

回答2：

生成多少个数？在文本文件中的格式是怎样的？