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之间的一个随机数 } } } 如果只要整数的话是!不8341可能不重复的,!
前几天帮别人做的一个抽奖程序代码你根据自己的要求改下吧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!
你贴的代码能正常工作吗, 如果能正常工作。修改这就行了 k = Int(Rnd * 47) TextBox1.Text =0706 rstr(k) 改成 1. rstr()数组做成全局数组!并初始化为0 2. 上面的代码,生成随机数后,判断随机数是否用过、用rstr()记录随机数是否使用信息 do while 1 k = Int(Rnd * 47) if rstr(k) = "0" then TextBox1.Text = k ;;;,如果k有0值?则写成k+1;不知道这么用行不行、没用过VB rstr(k) = "1" else exit do end if loop!
象由心生。意动则应吉凶、你可以试试“观音灵签”。通俗易懂、!
喜喜喜(本人比较喜欢) 皮皮 ( 堃堃(Kun) 籁籁 鲁鲁 虎虎 桐桐 玮玮,
公狗:辛巴 卡儿 卡其 麦琪 麦兜 DUDU 妞妞 米奇 happy baby 哈罗Lucky 旺财 维尼 努比 哈利 贝勒、巴顿! 母狗:美芽,叮当 布丁 丁香 仙妮 安妮 米莉 香奈 诺米 珍妮 米妮 薇倪。
女生:暖暖!娜娜、宁宁。晶晶!秀秀,甜甜!贝贝。冰冰、花花、文文。微微! 男生:凯凯、豆豆,琦琦、呆呆!,
球球、绒绒。果果。朵朵。朗朗,帅帅。,
道士不可信 、但是如果你真要信的话,珐么我就说吧。上上签其实0382就是最好的签?对你比较好。道士不不告诉你!我想他可能是故弄玄虚,一方面说好话。另一方面来个9426故弄玄虚,你也只有挨的份了。
不多的。叫梓婕婕到是挺多的。