11问答网
所有问题
当前搜索:
vb随机产生不重复的n个数
如何用
vb随机
从1—50中选5个
不重复的数字
,还有从1-9中选两个不重复的...
答:
随机
从1—50中选5个
不重复的数字
dim a,b,c,d,e as integer a=Int((50 - 1 + 1) * Rnd + 1)do while b=a b=Int((50 - 1 + 1) * Rnd + 1)loop do while c=a or c=b c=Int((50 - 1 + 1) * Rnd + 1)loop do while d=a or d=b or d=c d=Int((50 -...
在
vb中
怎么
随机产生不重复的数字
答:
Rnd()是随机的,但不能保证不重复吧。不过一般应用也够了。在前面加上一个Randomize()如果非要
不重复的
。有一个笨办法,可以用一个数组记录下已经
产生的数
,下次出数的时候跟数组内的内容进行比对,如果重复再重新产生一个
随机数
。
求
vb
程序:从
数字
1-30中
随机
选取
不重复的
10个,并输出?
答:
Randomize k = Int(Rnd() * (UBound(a)) + 1)List1.AddItem b(a(k))If k < UBound(a) Then For i = k To UBound(a) - 1 a(i) = a(i + 1)Next i End If ReDim Preserve a(1 To UBound(a) - 1)Loop 用到的控件:一个按钮,一个lsitbox。把程序中的30改为20就行。
vb中
怎么
生成不重复的随机数
答:
Private Sub Command1_Click() txtoutput = Rndz(1, 38)End SubPrivate Function Rndz(a As Long, b As Long) Randomize Rndz = Int((a - b + 1) * Rnd() + b)End Function
vb
6.0
生成不重复的随机数
答:
dim a%,b%,c%,d sub asdf randomize a = Int(10 * Rnd)Do b = Int(10 * Rnd)Loop Until b <> a Do c = Int(10 * Rnd)Loop Until c <> b And c <> a Do d = Int(10 * Rnd)Loop Until d <> b And d <> a And d <> c End sub ...
求
vb
程序:从
数字
1-20中
随机
选取
不重复的
10个,并输出?
答:
Dim a As Integer Private Sub Command1_Click()Randomize For i = 1 To 10 a = Int((Rnd * 20) + 1)List1.AddItem a Next End Sub Private Sub Form_Load()Form1.AutoRedraw = True Randomize For i = 1 To 10 a = Int((Rnd * 20) + 1)Print a;Next End Sub ...
vb
代码如何写,使其能
随机产生
1—6的
不重复的数
? 最好能解释每一段代码...
答:
Sub Form_click() '窗口单击事件过程Randomize '重置
随机数
种子random = Int((6 - 1 + 1) * Rnd + 1) '
生成
1到6范围的随机数MsgBox random '消息框弹出随机数End Sub '希望对你有帮助
用
VB
来写代码,用循环if或do来写:
随机产生n个
(1~100)之间
的数
,求它们的...
答:
Private Sub Form_Load()Label1 = "输入
随机数个数
:"Text2 = 0 Text1 = ""Command1.Caption = "
生成随机
数"End Sub 不用数组的话直接在第一个for里让text1= text1 & 随机数 & " " 而且比大小,可是这样就无法阻止出现
重复的
数了```不过你也没要求
不重复
呀,你自己看着改改吧```...
VB
生成不重复数字
答:
在我的破电脑上 运行全过程耗时55秒 最后
生成的
结果文件 C:\test.txt 大小为532KB 如果中途要暂停 那就把变量i写进另外一个文件 下次恢复的时候 从i开始循环起 就可以了 不要从12345开始 如果程序代码改成这样的话 Private Sub Command1_Click()Open "c:\test.txt" For Output As #1 For i ...
vb中
,如何
产生
10-100内
不重复的
10个
随机数
?
答:
Private Sub Command1_Click()Dim a(10) As Integer,
n
As Integer Dim i As Integer, k As Integer Randomize a(1) = Int(Rnd * 90) + 10 k = 1 Do n = Int(Rnd * 90) + 10 For i = 1 To 10 If a(i) = n Then Exit For Next i If i > 10 Then k = k + 1 a...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜
vb中index
vb是什么