01vb编写的双色球号码生成器源码20191001_1221.7z
5星
- 浏览量: 0
- 大小:None
- 文件类型：None
简介：
这是一个由01vb编写并分享的双色球随机号码生成器源代码，发布日期为2019年10月1日。该文件以压缩包形式提供，便于下载和使用。
在编写VB代码以生成双色球号码的小程序时，需要设置三个标签来显示相关信息；两个文本框，一个用于展示产生的号码，另一个用来设定所需号码的数量；以及两个按钮，一个是开始生成的启动键，另一个是复制所产生号码到剪贴板的功能。以下是完整的代码：
首先定义一个函数以调用：
```vb
Sub 生成()
Dim n(1 To 33), i, j, q, p 定义变量
For i = 1 To 33
n(i) = 0
Next
j = 0
Randomize Timer 防止随机数重复出现
While j < 6 循环生成六个红球号码
q = Int(Rnd(1) * 33 + 1)
If q < 10 Then 判断是否小于十，若是则在前面加零以补足两位数字格式
q = 0 & CStr(q)
End If
If n(q) = 0 Then
Text1.Text = Text1.Text & q &
n(q) = 1 更新数组标记已生成的号码，避免重复出现
j = j + 1
End If
Wend
Randomize Timer 同样为蓝球随机数初始化准备。
p = Int(Rnd(1) * 16 + 1)
If p < 10 Then
p = 0 & CStr(p) 蓝球号码同样处理成两位数字格式
End If
Text1.Text = Text1.Text & & p & vbCrLf 将红蓝两色球组合后写入文本框，中间用两个空格隔开，并加上换行符以方便生成多组号码。
End Sub
复制按钮点击事件：
Private Sub Command1_Click()
Clipboard.Clear
Clipboard.SetText Text1.Text
End Sub
生成数量设定及执行事件处理程序：
Private Sub Command2_Click()
Dim s, t, k
s = Timer 记录开始时间。
Text1.Text = 清空文本框准备接收新号码组合。
k = 0
While k < Val(Text2.Text)
Call 生成() 调用前面定义的函数以产生一组双色球号码。
k = k + 1
Wend
t = Timer 记录结束时间。
Label2.Caption = 耗时： & Format(t - s, 0.0) & 秒
End Sub
窗体加载事件，初始化文本框内容：
Private Sub Form_Load()
Text1.Text =
Text2.Text = 5 默认设置生成五个号码。
End Sub
```
上述代码详细描述了如何在VB环境下编写一个简易的双色球随机号码生成器，并附带时间统计与结果复制功能。
全部评论 (0)
