告诉你最简单的，下面的直接复制就行了 Private Sub Form_clickRandomize Dim x As Integer x = IntRnd * 48 + 1Print x End Sub 速度给分。

版本 2 程序集 窗口程序集1 1个标签，2个按钮，1个时钟 === 子程序 __启动窗口_创建完毕 按钮1标题 ＝ “开始”按钮2标题 ＝ “停止”子程序 _时钟1_周期事件 置随机数种子 标签1标题 ＝ 到文本 取随机数 1000， 9999子程序 _按钮1_被单击 时钟1时钟周期 ＝ 1。

用VB或C做一个抽奖机用09这10个数字，当顾客用她手中的4个不同的数字放入抽奖机后，抽奖机就会显示 出来4个数字，如果4个数字全部相同顺序必须相同就是一等奖当然数字是滚动的，并且没有规律的也就是说机器系统里面有09这些数的全排列一等奖的概率是110*11 出来4个数字，如果4。

我给个思路给你，你自己去找相关代码一个个找很简单的1随机函数 Function rnd_Integer Min， Max Randomize rnd_Integer = CIntMaxMin+1*Rnd+MinEnd Function MIN 最小数，MAX最大数 2设置用户也就业页面用户COOKIES一个记录用户使用次数，一个记录已经使用的数字，用一个。

在电视节目中有一种抽奖形式暂且叫做翻板抽奖，台上有一个墙面，墙面放置几个大方块，主持人或者抽奖者翻开对应的方块即可揭晓中奖结果类似的抽奖形式还可以应用在WEB中，本文将使用PHP+jQuery为您讲解如何实现翻板抽奖程序查看演示DEMO翻板抽奖的实现流程前端页面提供6个方块，用数字16依次表示6个不同的方块，当抽。