求一个在1到200随机选号的程序

so EASY！来来来，哥哥现场给你写一个，

timer1的change事件中，

dim a as integer

a=RND200

print a

end sub

这是程序的源代码，剩下的爱卿知道该咋办，哥哥我就不再啰嗦了

因为你的要求不是很清楚，所以大概做了个框架。

你还需要提供随机选号的范围，1~？？，附件的程序是用1~100作为选号范围的。

另外你一共需要选中多少个中奖号码？附件的中奖号码最多只能显示11个，如果需要显示更多的号码，可以将label3的字体做小点。

如果还有其他要求可以联系我。

把下面的代码复制到记事本中，改名为form1frm，再用vb6打开编译即可使用。希望你能喜欢，不足之处可以提出来。

VERSION 500

Begin VBForm Form1

BorderStyle = 5 'Sizable ToolWindow

Caption = "**选号程序"

ClientHeight = 3855

ClientLeft = 60

ClientTop = 330

ClientWidth = 6600

LinkTopic = "Form1"

MaxButton = 0 'False

MinButton = 0 'False

ScaleHeight = 3855

ScaleWidth = 6600

ShowInTaskbar = 0 'False

StartUpPosition = 3 '窗口缺省

Begin VBFrame Frame4

Caption = "号码框"

Height = 2415

Left = 3600

TabIndex = 11

Top = 1320

Width = 2895

Begin VBCommandButton Command6

Caption = "输入号码"

Height = 255

Left = 1560

TabIndex = 19

Top = 720

Width = 1095

End

Begin VBCommandButton Command5

Caption = "试试运气"

Height = 495

Left = 120

TabIndex = 16

Top = 1440

Width = 2535

End

Begin VBTextBox xx

Height = 270

Left = 1560

TabIndex = 14

Top = 1080

Width = 1095

End

Begin VBTextBox sx

Height = 270

Left = 120

TabIndex = 13

Top = 1080

Width = 1095

End

Begin VBLabel Label5

Caption = "范围："

Height = 255

Left = 120

TabIndex = 18

Top = 720

Width = 615

End

Begin VBLabel Label4

Caption = "机选号码："

Height = 255

Left = 120

TabIndex = 17

Top = 2040

Width = 2535

End

Begin VBLabel Label3

Caption = "~"

BeginProperty Font

Name = "宋体"

Size = 1425

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 135

Left = 1320

TabIndex = 15

Top = 1200

Width = 255

End

Begin VBLabel Label2

Caption = "我的号码："

Height = 255

Left = 120

TabIndex = 12

Top = 360

Width = 2655

End

End

Begin VBFrame Frame3

Caption = "统计框"

Height = 975

Left = 3600

TabIndex = 8

Top = 240

Width = 2895

Begin VBCommandButton Command3

Caption = "点我统计！"

Height = 615

Left = 120

TabIndex = 9

Top = 240

Width = 2655

End

End

Begin VBFrame Frame2

Caption = "查找框"

Height = 2415

Left = 120

TabIndex = 3

Top = 1320

Width = 3375

Begin VBCommandButton Command4

Caption = "清除"

Height = 255

Left = 2400

TabIndex = 10

Top = 2040

Width = 855

End

Begin VBCommandButton Command2

Caption = "查找"

Height = 255

Left = 2520

TabIndex = 7

Top = 240

Width = 735

End

Begin VBListBox List1

Height = 1320

ItemData = "Form1frx":0000

Left = 120

List = "Form1frx":0002

TabIndex = 5

Top = 600

Width = 3135

End

Begin VBTextBox Text1

Height = 270

Left = 120

TabIndex = 4

Top = 240

Width = 2295

End

Begin VBLabel Label1

Caption = "总共：0项"

Height = 255

Left = 120

TabIndex = 6

Top = 2040

Width = 2175

End

End

Begin VBFrame Frame1

Caption = "输入框"

Height = 1095

Left = 120

TabIndex = 0

Top = 120

Width = 3375

Begin VBTextBox Text2

Height = 270

Left = 120

TabIndex = 2

Top = 240

Width = 3135

End

Begin VBCommandButton Command1

Caption = "输入并确定"

Height = 375

Left = 120

TabIndex = 1

Top = 600

Width = 3135

End

End

End

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Dim N As Long

Dim NR As String

Dim ZS As Long

Dim CS As Long

Dim mynum As Long

Private Sub Command1_Click()

Open "C:\1TXT" For Append As #1

Print #1, Val(Text2Text)

Close #1

Label2Caption = "我的号码：" & Val(Text2Text)

mynum = Val(Text2Text)

Text2Text = ""

End Sub

Private Sub Command2_Click()

CS = CS + 1

Open "C:\1TXT" For Input As #1

Do While Not EOF(1)

Line Input #1, NR

NR = Trim(NR)

If NR = Text1Text Then List1AddItem NR: N = N + 1

Loop

Close #1

List1AddItem "------------第" & CS & "次------------"

Label1Caption = "总共：" & N & "项"

N = 0

NR = ""

End Sub

Private Sub Command3_Click()

Open "C:\1TXT" For Input As #1

Do While Not EOF(1)

Line Input #1, NR

NR = Trim(NR)

If NR = NR Then ZS = ZS + 1

Loop

Close #1

MsgBox "共有" & ZS & "项"

ZS = 0

End Sub

Private Sub Command4_Click()

List1Clear

End Sub

Private Sub Command5_Click()

Label4Caption = "机选号码：" & Int(Rnd Val(sxText)) + Val(xxText)

End Sub

Private Sub Command6_Click()

mynum = InputBox("输入号码：")

Label2Caption = "我的号码：" & mynum

End Sub

Private Sub Form_Load()

N = 0

End Sub

互联网时代，你甚至不用跑去车管所选车牌。只需要在手机上安装流量控制12123APP，就可以通过APP在线选号。不过相信很多车主都是第一次买车，12123APP也是第一次 *** 作，下面就来讲解一下12123选号流程的技巧。

1提前做好准备。

●限号区域首先要确保指标已经取得，然后通过网上车管所或车管所客服电话预约网上选号，预约日期前一天才可以进行网上选号。

●需要提前准备好车辆合格证，因为运营时需要输入车辆的车架号或合格证号以及进口货物的合格证号。

2登录交通管理12123APP，在“ 商 务中心”找到“新车选择”项。

3在基本信息链接中选择并确认卡片上的城市，然后点击，会d出一个业务信息对话框。仔细阅读后，点击；

在车辆信息链接中输入相关信息，包括证件号码、车辆品牌、车架号，然后点击，会d出验证码输入框；发送短信获取验证码，输入验证码点击。

4确认车辆基本信息后，进入号牌预选。点击开始选择号码，然后获取并输入手机验证码，点击。

5选新车号有两种方式，一种是随机选号，一种是自制选号。两种方式没有先后之分。建议先选个随机数，找不到喜欢的牌子再选自制号。

●随机数选择规则:随机数选择有5次机会，每次有10个数字可供选择；如果不包含4，可以剔除数字为4的车牌，点击更改，可以随机次数刷新批量车牌。每次你选择一个机会，你可以选择一个数字到备选项栏。添加到备选栏后，备选号牌将倒计时，时间结束后该号牌将失效。

●自编选号规则:可自行编辑多个号码(各地号码不同)，最多可输入5个号牌。系统会验证这5个号牌是否可用，所以在第一次意向时一定要注意把最想要的号码放进去。

每天可以选2123这个号吗？

答:网上选号都是一次性的。在选号过程中，所选号码会暂时预留给车主确认登记。如果在规定时间内没有登记，所选号码将作废，2年内不能再次进行网上选号，只能去车管所现场选号。

怎么查被占用的号牌？

现在网上有一些所谓的目录搜索库和小目录搜索程序，但这些都是假的。试想一下，车管所的号码池怎么可以随便向公众公开。如果真的开放，就看号码池里面哪个好号码可以直接选出来，不需要一大堆复杂的选号机制。

车管所多久发布一批新号码？

每隔一段时间，车管所就会公布号段，但是放号的时间不固定。当号码池中的新号码即将用完时，就会释放出一个新号码。第一个号段可以通过随机数选择和自制号选择获得。对于以后投放的号段，自投放之日起7天内只提供随机数选择。

出现“嫌疑人选择异常”原因是什么？

1可能是因为车主输入了虚假信息或者输入的信息与新车注册时的信息不一致，所以被系统自动确定为挂牌“黑名单”并且两年内禁止办理互联网预选号牌业务！

2网上选号成功后，用户未能在规定的有效期内到车管所确认网上选号的号牌，然后也被挂牌“黑名单”，所以再次使用时会出现“。嫌疑人选择异常”形势。

我们可以到交警部门填写《申请解除互联网平台黑名单情况说明》，提交到面签检查站领取后，为该路人恢复使用互联网预选号牌功能；也可拨打卡上的城市区号+12123进行转账进行人工受理，其中网络办公中心电话为8 508 2595。

@2019

以上就是关于求一个在1到200随机选号的程序全部的内容，包括:求一个在1到200随机选号的程序、需要在幻灯片（powerpoint）中制作一个随机选号器（抽奖用）、用VB写个彩票选号程序,求思路!等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！