小飞侠随机抽取器破解,小飞侠随机抽取软件

谁能帮忙做一个随机点名软件

推荐一个软件，是需注册的但无所谓。叫做小飞侠随机抽取器。

你可以进入下载

谁能给我个VB的随机抽取器的源码？

代码如下，已测试（注意：其中有个text3.text，把它替换成txt文件路径即可，别忘了加引号。另外txt中的人名要求每两个之间用空格或回车分开）

Dim Flag As Boolean

Private Sub Command1_Click() '--------开始

Dim Str1 As String, Str0 As String, n As Integer

Flag = True

ff = FreeFile

'------------------------读取姓名文档

Open Trim$(Text3.Text) For Input As #ff

Do Until EOF(ff)

Input #ff, Str0

Str1 = Str1 + " " + Str0

Loop

Close #ff

'------------------------剔除空格

stra = Split(Str1, " ")

Str1 = ""

For i = LBound(stra) To UBound(stra)

If stra(i) "" Then

Str1 = Str1 + stra(i) + " "

End If

Next

stra = Split(Str1, " ")

n = UBound(stra)

'-----------------------开始随机抽取

Randomize

Do Until Flag = False

Text1.Text = stra(Int(Rnd * n))

DoEvents

Loop

Print n

End Sub

Private Sub Command2_Click() '--------停止

Flag = False

Text2.Text = Text1.Text

End Sub

关于电脑随机抽取数字的程序

你点开这个网址，下面有下载地址，下载下来就可以用了 这是随机抽取器 v1.3

小飞侠随机抽取系统

所需工具：点击下载 小飞侠

使用教程

批量抽取

这属于高级的抽取方式，其操作比单步抽取自然要复杂一些。

点击右下方“批量”按钮，窗口将会更大化；

请关注左下角的区域。

电脑随机抽取数字的程序

你需要随机抽取1～100中的数字100个，实际上你已经把数字收取完了，只是随机排序的问题，可以用数组来实现，之一次产生一个1～100的随机数，把这个数交换到数组第1个位置，第二次产生2～100的随机数交换到第二个位置，直到最后产生100～100的随机数，下面是我写的例子程序：

{$apptype console}

program exp;

var a:array[1..100] of 1..100; i,j,k:integer;

begin

randomize;

for i:=1 to 100 do a[i]:=i;

for i:=1 to 100 do

begin

j:=random(100-i+1)+i;

if ji then begin k:=a[i];a[i]:=a[j];a[j]:=k; end;

end;

for i:=1 to 100 do write(a[i]:4);

end.

此程序在DELPHI下运行成功，结果如下：

E:\ygbdcc32 b.dpr

Borland Delphi Version 15.0

Copyright (c) 1983,2002 Borland Software Corporation

b.dpr(14)

15 lines, 0.05 seconds, 10724 bytes code, 1905 bytes data.

E:\ygbb.exe

66 33 17 83 67 88 85 78 92 93 82 13 80 22 11 24 46 64 97 75

54 70 55 49 5 40 23 45 6 62 4 29 47 71 10 99 14 25 48 3

20 58 42 41 15 1 7 19 100 34 2 18 30 53 26 38 44 37 9 61

73 96 95 39 68 31 72 79 59 86 16 57 8 51 89 50 28 87 81 36

69 77 65 91 56 76 60 84 63 21 12 94 74 90 98 27 43 52 32 35

E:\ygbb.exe

63 1 44 40 68 46 77 93 58 39 52 14 51 96 71 26 100 84 25 56

94 83 55 65 16 66 88 18 27 4 80 38 69 54 92 89 3 9 7 53

28 67 31 19 81 62 24 37 45 10 59 78 20 12 72 48 29 74 36 50

86 42 79 6 41 75 76 73 5 95 8 61 85 87 23 32 99 15 82 33

57 49 98 17 47 11 30 22 34 35 64 70 91 43 2 60 21 13 90 97

小飞侠随机抽取器 苹果电脑能用么

如果不是FOR MAC版的，而是FOR WINDOWS的，需要在苹果电脑上安装虚拟机，然后在虚拟机中安装WINDOWS系统才能使用。