求VB程序:输入多个数字随机选取1个

Private Sub Command1_Click()

Randomize

Label1Caption = List1List(CInt(Rnd (List1ListCount - 1)))

End Sub

Private Sub Form_Load()

Dim str As String

Dim str1() As String

str = InputBox("请输入数字,以''隔开", "输入数字")

str1 = Split(str, "")

For i = 0 To UBound(str1)

List1AddItem str1(i)

Next

Randomize

Label1Caption = List1List(CInt(Rnd (List1ListCount - 1)))

End Sub

建立两个Command1和2

Dim RedBalls, BullBalls

Private Sub Command1_Click()

'Label1Caption = ""

rarr = GetRndNotRepeat(0, UBound(RedBalls), 6)

barr = GetRndNotRepeat(0, UBound(BullBalls), 1)

For i = 1 To 6

t = Now

Do

DoEvents

Loop While DateDiff("s", t, Now) < 15

FillStyle = 0

FillColor = vbRed

Form1Circle (500 + i 500, 1000), 200, vbRed

CurrentX = 350 + i 500

CurrentY = 840

Print Format(RedBalls(rarr(i)), "00")

Next i

t = Now

Do

DoEvents

Loop While DateDiff("s", t, Now) < 2

i = 7

FillStyle = 0

FillColor = vbBlue

Form1Circle (500 + i 500, 1000), 200, vbBlue

CurrentX = 350 + i 500

CurrentY = 840

Print Format(BullBalls(barr(1)), "00")

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

RedBalls = Array(2, 3, 4, 7, 8, 9, 12, 13, 14, 17, 18, 19, 22, 23, 24, 27, 28, 29, 32, 33)

BullBalls = Array(3, 4, 5, 9, 13, 14, 15)

'Label1Caption = ""

Command1Caption = "开始"

Command2Caption = "退出"

Form1FontSize = 15

Form1FontName = "Arial"

Form1ForeColor = &HFFFFFF

End Sub

Public Function GetRndNotRepeat(ByVal NumMin As Integer, ByVal NumMax As Integer, ByVal n As Integer)

Dim arr() As Integer

If n > NumMax - NumMin + 1 Then

ReDim arr(0)

arr(0) = 0

Else

ReDim arr(n)

Dim b() As Byte

Dim m As Integer

m = Int((NumMax - NumMin) / 8)

ReDim b(m)

Dim x As Integer, y As Integer

Dim z As Byte

Randomize

arr(0) = 1

For i = 1 To n

Do

x = Int(Rnd (NumMax - NumMin + 1)) + NumMin

y = x - NumMin

z = 2 ^ (y Mod 8)

y = y \ 8

Loop While b(y) And z

b(y) = b(y) Or z

arr(i) = x

Next i

End If

GetRndNotRepeat = arr

End Function

已经运行过。

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

{$apptype console}

program exp;

var a:array[1100] of 1100; 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 j<>i 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:\ygb>dcc32 bdpr

Borland Delphi Version 150

Copyright (c) 1983,2002 Borland Software Corporation

bdpr(14)

15 lines, 005 seconds, 10724 bytes code, 1905 bytes data

E:\ygb>bexe

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:\ygb>bexe

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

List 可以通过数组的形式、以元素下标获得具体位置的值；

那你就对 listsize() 也就是list 的长度， 但这里需要注意，长度假如说是 5 的话，那么你只能生成 0~4 的随机数，要不然在提取值的时候会发生数组越界的异常。

一个整型数值的随机会的吧？每次提取就随机一下；如果想每次随机得到的值跟上一个不一样，那就多加个 if 判断。

路过~希望可以帮助你

qq随机选人小程序叫开始绘图。

然后进入聊天界面，点击右上角的个2小人物图标。然后你会发现在这些官方的群组应用中没有抽奖功能，所以我们可以找到上面的搜索栏。

搜索单词“draw”，你会看到下面有很多绘图工具。让我们打开第一个。然后可以为绘图范围设置一些规则。

然后单击“开始绘图”。如果小组中的其他人也需要抽签，他们只需要分享。小组里的每个人都可以抽签。

软件介绍

是1999年2月由腾讯自主开发的基于Internet的即时通信网络工具。QQ以前是模仿ICQ的，是国际的一个聊天工具，是I seek you（我寻找你）的意思，OICQ模仿ICQ它在ICQ前加了一个字母O，意为opening I seek you，意思是“开放的ICQ。

但被指出侵权行为，2000年11月腾讯推出QQ2000版本，OICQ正式更名为QQ。除了名字变化，腾讯QQ的标志却一直没有改，一直是小企鹅。因为标志中的小企鹅很可爱迷人而且很受女生的肯定，用英语来说就是cute，因为cute和Q是谐音的，所以小企鹅配QQ也是一个很好的名字。

以上就是关于求VB程序:输入多个数字随机选取1个全部的内容，包括:求VB程序:输入多个数字随机选取1个、用VB编写双色球程序，要求是以指定数字为尾的数字中随机选择该怎么编写程序、电脑随机抽取数字的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！