随机点名器(怎么制作随机点名器)

在C#环境下怎么编写一个随机点名器的代码？

一个listbox 默认名字为list1

一个commandbutton 默认名字为command1

一个textbox 默认名字为text1

代码如下：

Public go As Boolean

Private Sub Command1_Click()

go = Not (go)

start

End Sub

Private Sub Form_Load()

‘窗体加载时随机添加姓名和学号

Randomize

Dim Num As String

Dim Names As String

For i = 1 To 45

Num = Int((99999 – 11111 1) * Rnd 11111) ‘学号范围 99999-11111

Names = Chr(Int((-13000 15000 1) * Rnd -13000))

怎么用VB语言做随机点名器?

代码如下: Private Sub Command1_Click() Dim a As Integer ‘申明一个整形变量 Const n = 10 ‘设置备选人数 Randomize ‘初始化随机数 a = Int(Rnd * n + 1) ‘产生随机数 MsgBox ＂第＂ & a & ＂位被点名!＂, vbOKOnly, ＂点名＂ ‘输出结果 End Sub

vb制作随机点名器，请高手提供代码及详细制作步骤。（包括界面怎么设置）谢谢，悬赏20分。在线等

Private Sub Command1_Click()

Timer1.Enabled = False

End Sub

Private Sub Command2_Click()

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Combo1.clear

Open “c:\a.txt” For Input As #1

Do While Not EOF(1)

Line Input #1, sline

Combo1.AddItem sline

Loop

Close #1

End Sub

Private Sub Timer1_Timer()

Randomize

Combo1.ListIndex = Int(Rnd * (Combo1.ListCount – 1))

End Sub

我想用flash做一个随机点名器

t=mz[a];后面加一句: mz.splice(a,1); 这样就可以了..

vb 制作随机点名器的源码，谁有啊？急……谢谢

窗体加载时随机添加姓名和学号

Randomize

Dim Num As String

Dim Names As String

For i = 1 To 45

Num = Int((99999 – 11111 + 1) * Rnd + 11111) ‘学号范围 99999-11111

Names = Chr(Int((-13000 + 15000 + 1) * Rnd + -13000)) & Chr(Int((-13000 + 15000 + 1) * Rnd + -13000)) & Chr(Int((-13000 + 15000 + 1) * Rnd + -13000)) ‘随机生成字符作为名字

List1.AddItem Num & ” ” & Names

go = False

End Sub

Sub start()

On Error Resume Next

If List1.ListCount = 0 Then Exit Sub

If go = False Then Exit Sub

Do While go = True

p = Int((0 + List1.ListCount) * Rnd)

Text1一个listbox 默认名字为list1

一个commandbutton 默认名字为command1

一个textbox 默认名字为text1

代码如下：

Public go As Boolean

Private Sub Command1_Click()

go = Not (go)

start

End Sub

Private Sub Form_Load()

‘

谁帮忙用e语言做的随机点名器.

允许重复还是不重复的?(重复:抽了一个人的名字后,下一次还是可能会抽到那一个人)我先写可以允许重复的吧(如需要你再回复我) 首先你需要在编辑框1设置成允许多行,后在里面输入全班人的名字,以换行符割开,事例: 张三李四输入好之后开始写代码: .版本 2 .子程序 _按钮1_被单击 .局部变量文本数组, 文本型, , ＂0＂ .局部变量下标文本数组 = 分割文本 (编辑框1.内容, #换行符, ) 下标 = 取随机数 (1, 取数组成员数 (文本数组)) 编辑框2.内容 = 文本数组 [下标]

用MATLAB编程；1菲波拉契数列：2求1000以内的质数；3随机点名器

1、产生斐波那楔数列

%% 产生斐波那楔数列

clc;clear;

n=input(‘请输入数列个数：’);

Sn=ones(1,n);

for i=1:n

if i>3

Sn(i)=Sn(i-1)+Sn(i-2);

end

disp(‘>>该斐波那楔数列如下：’)

2、质数求取

%% 1000以内质数

clc;clear;

m=1000;

b(1:m)=0;

a(1:200)=0;

for i=1:1000

b(i)=i;

end

for i=1:1000

for j=2:floor(sqrt(i))

if rem(i,j)==0

b(i)=0;

end

b(1)=0;

end

B=find(b>0);

disp(‘>>1000以内的质数如下：’)

3、你说的随机点名器说具体点！!

求一个VB写一个随机点名器,51个学号里随机抽一个

Dim a As Integer Do While a = 9 Or a = 0 Randomize a = Int(Rnd * 51 + 1) ‘生成随机数 1~51 Loop MsgBox ＂学号为:＂ & a’这样写吧,用循环,当生成的学号为9时,继续循环生成学号,直到学号不为9,这样就永远也叫不到你了,呵