如何用VB设计随机抽取车牌号程序

Private Sub Text1_Click()

Dim Num As Long

Num = Int(Rnd 99999)

Text1 = Format(Num, "00000")

End Sub

假定开始按钮是 Command1，两个文本框分别是 Text1、Text2

Private Sub Command1_Click()

Randomize

Text1Text = Int(Rnd 20) + 1

Text2Text = Int(Rnd 20) + 1

End Sub

两个Command控件，一个Timer控件，一个Label控件

Timer1属性设置，Enabled=False，Interval=100

Dim i As Integer

Private Sub Command1_Click()

Timer1Enabled = True

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

i = Int(Rnd 100) + 1

Label1Caption = i

End Sub

如果真的要加上滚动效果，可以这样：

Dim a As Integer, b As Integer, c As Integer

Private Sub Command1_Click()

Timer1Enabled = True

a = Int(Rnd 100) + 1

b = Int(Rnd 100) + 1

c = Int(Rnd 100) + 1

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

End Sub

Private Sub Timer1_Timer()

Randomize

a = b

b = c

c = Int(Rnd 100) + 1

Label1Caption = a & vbCrLf & b & vbCrLf & c

End Sub

Public i As Integer

Private Sub Command1_Click()

With Timer1

Interval = 50

Enabled = True

End With

End Sub

Private Sub Command2_Click()

Timer1Enabled = False

i = 1

End Sub

Private Sub Timer1_Timer()

i = i + 1

If i = 18 Then

i = i + 1

End If

If i = 61 Then

i = 0

End If

Label1Caption = i

End Sub

窗体上一个文本框，一个按钮：

Option Explicit

Private Sub Command1_Click()

Dim n As Integer

Dim m As Integer

Dim x As Integer

n = 1234

m = 5678

Randomize

x = Int(Rnd (5678 - 1234 + 1) + 1234)

Do While x Mod 4 = 0

x = Int(Rnd (5678 - 1234 + 1) + 1234)

Loop

Text1Text = x

End Sub

'把以下内容放在

"抽号"按钮的

Click事件

中

Randomize

Dim

i

As

Integer

Dim

Num(1

To

59)

As

String

For

i

=

1

To

59

Num(i)

=

IIf(i

<

10,

"0"

&

i,

i)

Next

MsgBox

Num(Int((Rnd

59))

+

1)

Dim n As Integer

Dim a()

Private Sub Command1_Click()

    If n = 0 Then            '第一次点击时执行

        m = Val(Text1)

        ReDim a(1 To m)

        For i = 1 To m      '生成数组a，元素为1至m这m个数

            a(i) = i

        Next

        For i = 1 To m - 1             '随机打乱数组a中元素

            r = Int(Rnd  m + 1)

            tmp = a(i)

            a(i) = a(r)

            a(r) = tmp

        Next

    End If

    n = n + 1                 '计数点击次数

    If n > Val(Text1) Then    '次数超过指定次数，抽奖结束

        MsgBox "抽奖结束！"

        Exit Sub

    End If

    Text2 = a(n)              '从数组中抽出第n个数，由于数组中是随机排列，所以相当于生成一个随机数，并且不会重复

End Sub

Dim t As String, k As Long, zs As Long

Private Sub Command1_Click()

Dim n As Long, j As Long, s As String, b() As String, tt As String

k = k + 1

If k > zs Then

MsgBox "最多只能抽" & zs & "次。"

Exit Sub

End If

Randomize

n = Rnd(99999) (zs - k)

b() = Split(t, ",")

s = b(n) & ","

tt = "第" & Format(k, "000") & "次抽中奖号码为：" & b(n)

If Len(Text1) > 0 Then

Text1 = Text1 & vbCrLf & tt

Else

Text1 = tt

End If

Text1SelStart = Len(Text1) - Len(tt)

t = Replace(t, s, "")

DebugPrint s; "=="; t

End Sub

Private Sub Form_Load()

zs = 120

Command1Caption = "抽奖"

Text1 = ""

'    Text1MultiLine = True

Dim j As Long

t = "[001],"

For j = 2 To zs

t = t & "[" & Format(j, "000") & "],"

Next

End Sub

以上就是关于如何用VB设计随机抽取车牌号程序全部的内容，包括:如何用VB设计随机抽取车牌号程序、VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数、帮我用VB编个号码抽取器，要求如下：等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！