随机抽号程序代码（随机抽人名代码）

本篇文章给大家谈谈随机抽号程序代码，以及随机抽人名代码对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、VB中可用的抽奖程序的代码
• 2、急 VB随机抽取数字代码
• 3、ppt随机抽号
• 4、随机抽取的代码

VB中可用的抽奖程序的代码

Dim a(1 To 100) As String

Dim i As Integer, x As Integer

Const n = 3 'n的值可根据实际需要赋予不同的变量

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Form_Load()

Randomize '初始化随机数生成器

a(1) = "富士康" '以此将n个人的姓名保存在数组a中

a(2) = "庞麦郎"

a(3) = "非主流"

For i = 1 To n

List1.AddItem a(i)

Next

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

x = Rnd() * n + 1 '产生一个[1，n]中的随机整数并存入变量x中

Label2.Caption = a(x) '在标签Label2中显示下标变量a(x)的值（第x个人的姓名）

End Sub

急 VB随机抽取数字代码

在窗体上增加两个Command1和Command2，一个文本框Text1和一个时间控件Timer1，代码如下：Private Sub Command1_Click() '开始抽奖

If Command1.Caption = "开始" Then '判断按钮是否为开始

Command1.Caption = "停止" '是则更改按钮为停止

Timer1.Enabled = True '开启时钟

Else

If Command1.Caption = "停止" Then '否则判断按钮是否是停止

Timer1.Enabled = False '是则停止时间控件

Command1.Caption = "开始" '将Command1更改成开始

End If

End If

End SubPrivate Sub Command2_Click() '清空文本框内容

Text1.Text = ""

End SubPrivate Sub Form_Load() '窗体加载事件对一些控件进行初始化

Text1.Text = "" '清空文本框内容

Timer1.Interval = 10 '设置时间控件周期为10ms

Timer1.Enabled = False '默认时间控件不开启

Command1.Caption = "开始" '默认Command1的名称为开始

Command2.Caption = "清空" '默认Command1的名称为清空End Sub Private Sub Timer1_Timer() '时间控件事件执行滚动随机提取数据

Text1.Text = Int((42 - 1 + 1) * Rnd + 1) '随机数读取方法：Int((upperbound（上限） - lowerbound（下限） + 1) * Rnd + lowerbound)

End Sub

ppt随机抽号

原程序是从1到50之间随机取数。 楼主是希望从1到300之间随机取数吗？ 解决方法: Text=Int((50-1+1)*Rnd+1)将50调整为300下载地址:

随机抽取的代码

static public void ProgramProblem12()

        {

            Listint intList = new Listint(6);

            Random rand = new Random();

            for (int i = 0; i  3; ++i)

            {

                for (int j = 0; j  2; ++j)

                {

                    intList.Add(rand.Next(5));

                }

            }

        }

intList中一次放着三个班随机抽到的学生的编号，这里默认每个班的学生的编号都是从0-5编号的

关于随机抽号程序代码和随机抽人名代码的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。