不重复抽签
- 求一个随机抽签不重复软件或.exe程序，1-54之间不重复。哪位能帮忙？谢谢！
- using System;
using System.Collections.Generic;
using System.Text;
using System.IO;
namespace RandDemo
{
class Program
{
static void Main(string[] args)
{
System.Random rdm1 = new Random(unchecked((int)DateTime.Now.Ticks));
Console.WriteLine(rdm1.Next(1,54)); //输出1-54之间的一个随机数
}
}
}
如果只要整数的话是？不可能不重复的?、不重复抽签
- 用vb做抽签软件，怎么样能抽一个删一个，也就是不重复抽签
- 前几天帮别人做的一个抽奖程序代码你根据自己的要求改下吧Private Sub Timer2_Timer()Static i As Integer If i Jiang品等级：", "")ww(1) = Replace(ww(1), "奖品名称：", "")ww(2) = Replace(ww(2), "抽奖次数：", "")Timer3.Enabled = TrueCommand2.Enabled = FalseTimer2.Enabled = TrueWMP1.Controls.pause主页面.WMP2.URL = 基本信息.Text5.TextStatic cs As Integercs = cs + 1Select Case csCase 1 To ww(2)Label12.Caption = "当前抽取的是：" & ww(0) & " 共：" & ww(2) & "份，当前是第：" & cs & "份"Label11.Caption = "当前抽取的是："Label13.Caption = "奖品：" & ww(1)Label14.Caption = ww(0)If cs = ww(2) Thencs = 0List2.RemoveItem 0End IfEnd SelectExit Subn:If List1.ListCount = 0 ThenCommand3.Enabled = FalseCommand2.Enabled = FalseMsgBox "每个人都抽到奖品了", 64, "提示"ElseCommand2.Enabled = TrueCommand3.Enabled = TrueEnd IfEnd Sub，
- 急，我做得vb抽签怎样修改成无重复的抽签方式？
- 你贴的代码能正常工作吗？
如果能正常工作 修改这就行了
k = Int(Rnd * 47)
TextBox1.Text = rstr(k)
改成
1. rstr()数组做成全局数组，并初始化为0
2. 上面的代码,生成随机数后！判断随机数是否用过!用rstr()记录随机数是否使用信息
do while 1
k = Int(Rnd * 47)
if rstr(k) = "0" then
TextBox1.Text6675 = k ;;;,如果k有0值 则写成k+1;不知道这么用行不行、没用过VB
rstr(k) = "1"
else
exit do
end if
loop
- 怎样在网上抽签
- 象由心生？意动动则应吉凶。你可以试试“观音灵签”，通俗易懂,？
- 两个字重复的男孩名字
- 喜喜喜（本人比较喜欢） 皮皮 （ 堃堃（Kun） 籁籁 鲁鲁 虎虎 桐桐 玮玮，
- 两个字不重复狗名字
- 公狗：辛巴 卡儿 卡其 麦琪 麦兜 DUDU 妞妞 米奇 happy baby 哈罗Lucky 旺财 维尼 努比 哈利 贝勒?巴顿、
母狗：美芽,叮当 布丁 丁香 仙妮 安妮 米莉 香奈 诺米 珍妮 米妮 薇倪，
- 两个字重复的好听的名字有哪些
- 女生:暖暖？娜娜？宁宁！晶晶，秀秀!甜甜,贝贝。冰冰！花花，文文、微微,
男生:凯凯!豆豆，琦琦！呆呆，、
- 狗狗叫什么名字好听，两个字重复的，多一点
- 球球!绒绒，果果?朵朵?朗朗！帅帅??
- 抽签 上上签
- 道士不可信 但但是如果你真要信的话，珐么我就说吧？上上签其实就是最好的签！对你比较好？道士不告诉你？我想他可能是故弄玄虚!一方面说好话,另一方面来个故弄玄虚、你也只有0541挨的份了、
- 常梓锌这个名字重复的多吗
- 不多的？叫梓婕到是挺多的,