使用vb6.0编写的随机生成双色球中奖预测号码（STEP-BY-STEP版本）_南棱笑笑生的博客

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

失恋的柿子 · 美股财报季期间，投资者将关注AI给哪些公司带 ...· 5 月前 ·

刀枪不入的手套 · Why is my DLL using ...· 7 月前 ·

坏坏的斑马 · 6. C++ vector容器的使用 - 简书· 9 月前 ·

温柔的玉米 · 统一项目Cocoapods版本和Gem环境 ...· 1 年前 ·

http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.html
vb编写双色球号码生成小程序源码

需要3个label，用来显示相应信息；两个文本框，一个显示生成的号码，一个用来设置号码数量；两个按钮，一个用来开始生成，一个用来复制生成的号码。完整代码如下：

VERSION 5.00

Begin VB.Form Form1

Caption = "Form1"

ClientHeight = 10350

ClientLeft = 120

ClientTop = 450

ClientWidth = 12510

LinkTopic = "Form1"

ScaleHeight = 10350

ScaleWidth = 12510

StartUpPosition = 3 '窗口缺省

Begin VB.CommandButton Command2

Caption = "生成双色球"

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 1695

Left = 8760

TabIndex = 6

Top = 8400

Width = 2055

Begin VB.CommandButton Command1

Caption = "复制到剪贴板"

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 1575

Left = 4320

TabIndex = 5

Top = 8520

Width = 2535

Begin VB.TextBox Text2

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 6255

Left = 4080

MultiLine = -1 'True

ScrollBars = 3 'Both

TabIndex = 4

Text = "000shuangseqiu5random.frx":0000

Top = 1920

Width = 7935

Begin VB.TextBox Text1

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 975

Left = 4080

TabIndex = 3

Text = "Text1"

Top = 720

Width = 1455

Begin VB.Label Label3

Caption = "所花时间"

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 1215

Left = 600

TabIndex = 2

Top = 8760

Width = 2415

Begin VB.Label Label2

Caption = "号码"

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 975

Left = 840

TabIndex = 1

Top = 2520

Width = 2055

Begin VB.Label Label1

Caption = "注数"

BeginProperty Font

Name = "宋体"

Size = 14.25

Charset = 134

Weight = 400

Underline = 0 'False

Italic = 0 'False

Strikethrough = 0 'False

EndProperty

Height = 735

Left = 960

TabIndex = 0

Top = 840

Width = 1935

Attribute VB_Name = "Form1"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

Option Explicit

'首先声明一个生成号码的函数用于调用

'Sub 生成() 'vb的函数名称可以用汉字的，呵呵

Sub Generate5Random() 'vb的函数名称可以用汉字的，呵呵

Dim n(1 To 33), i, j, q, p '定义变量

For i = 1 To 33

n(i) = 0

j = 0

Randomize Timer '防止随机数重复

While j < 6 '生成6个红球号码

q = Int(Rnd(1) * 33 + 1) '红球号码为01到33

If q < 10 Then '判断是否是小于10

q = 0 & q '小于10则在前面加0

End If

'如果生成的是重复的号码就重新生成一个！

If n(q) = 0 Then

Text2.Text = Text2.Text & q & " " '生成后写入文本框，各球中间用1个空格隔开

n(q) = 1

j = j + 1

End If

'红球已经生成完毕了，下面是蓝球，同红球

Randomize Timer

p = Int(Rnd(1) * 16 + 1)

If p < 10 Then '判断是否是小于10

p = 0 & p '小于10则在前面加0

End If

Text2.Text = Text2.Text & " " & p & vbCrLf '红球和蓝球联合起来，用两个空格隔开，末尾加上换行符，以便于生成多个号码

End Sub

Private Sub Command1_Click()

'使用Clipboard来实现复制到剪贴板功能

Clipboard.Clear

Clipboard.SetText Text2.Text

End Sub

Private Sub Command2_Click()

'我们在界面加上一个显示生成时间的小东西

Dim s, t, k

s = Timer '开始生成

Text2.Text = "" '先清空文本框

k = 0

While k < Val(Text1.Text) '按照需要来生成所需数量的号码

'Call 生成

Call Generate5Random

k = k + 1

t = Timer '生成结束

'默认显示耗时会出现.555秒的情况。加0之后会出现00秒的情况

'Label3.Caption = "用时" & t - s & "秒" '显示生成时间

Label3.Caption = "用时0" & t - s & "秒" '显示生成时间

End Sub

'如果没有预设，TEXT2里面就不会有内容！！！！

Private Sub Form_Load()

'在load里面设置一下文本框内容

Text2.Text = ""

Text1.Text = 5

End Sub

增加代码，并修改label标签、TEXT文本框、Command命令按钮的名称为（有意义的）中文名。

使用vb6.0编写的随机生成双色球中奖预测号码（STEP-BY-STEP版本）2019/10/2 11:13最近研究双色球，在网络上搜索到这里：http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.htmlvb编写双色球号码生成小程序源码需要3个label，用来显示相应信息；两个文本框，一个显示生成的号码，一个用来设置号码数量；两...

讲　师：蒋林峰北京中达金桥技术服务有限公司高级讲师课程简介：本课程着重讲述了VB.NET中一些新语法特性，涉及到数据类型、变量使用、函数、过程...同时指出了这些新特性相比于 VB6 .0 优越性所在。 1. 在 VB6 .0中新建一个标准exe工程。 2. 在窗体中添加一个形状控件（Shape），将其形状设置为心形（Heart）。 3. 设置形状控件的大小和位置，使其在窗体中心，并且大小适当。 4. 添加一个计时器控件（Timer）。 5. 在计时器的Timer事件中编写以下代码： Private Sub Timer1_Timer() Dim size As Integer size = Shape1.Height size = size + 1 If size > 100 Then size = 50 Shape1.Height = size Shape1.Width = size End Sub 6. 运行程序，就可以看到一个动态的爱心，每秒钟大小会变化，最大为100，最小为50。注意：在 VB6 .0中，形状控件的形状是静态的，无法通过代码改变。因此，上述代码实际上是改变形状控件的大小，以达到动态效果。