VB小程序VB代码: 彩票模拟抽奖系统

百度

新浪

'首先在窗体上放置三个控件: Label1，Command1vb抽奖小程序，Timer1

'在属性窗口中将Label1的Index属性设置为1

私人子表格加载（）

'设置窗口和控件状态，可以在控件设计阶段实际执行

Dim S AsSingle，我只要

Me.KeyPreview = True

Timer1.Enabled = False: Timer1.Interval = 100

Me.Caption =“彩票模拟系统”: Command1.Caption =“＆开始”

Label1（1）.AutoSize = True: Label1（1）.Font.Size = 48'设置标签字符的大小

Label1（1）.Font.Bold = True: Label1（1）.BorderStyle = 1

S = Label1（1）. 高度

移动0、0vb抽奖小程序，S * 11，S * 6'设置窗口大小

Me.Move（Screen.Width-Me.Width）* 0.5，（Screen.Height-Me.Height）* 0.5'居中窗口

Command1.Font.Size = Label1（1）.Font.Size: Command1.Font.Bold = True

Command1.Move0，S * 3，S * 4，S * 1.5'设置按钮大小

Command1.Move（Me.Width-Command1.Width）* 0.5'居中按钮

'加载数组控件

对于I = 1 To4'，总共可以将4修改为5、6等.

IfI> 1然后加载Label1（I）

Label1（I）.Visible = True

Label1（I）.MoveS * I * 2，S

Label1（I）. 标题= I＆I

下一步

结束子

Private Sub Command1_Click（）

Timer1.Enabled =不是Timer1.Enabled

IfTimer1.Enabled然后Command1.Caption =“＆Draw”其他Command1.Caption =“＆开始”

结束子

私人Sub Timer1_Timer（）

Dim I AsLong，nStr作为字符串

对于I = 1 ToLabel1.Count

随机化

nStr =整数（Rnd * 100）

IfLen（nStr）<2然后nStr =“ 0”＆nStr

Label1（I）.Caption = nStr

下一步

结束子

本文来自电脑杂谈，转载请注明本文网址：
https://www.pc-fly.com/a/ruanjian/article-148351-1.html