VB6.0编写电脑抽奖程序

下面是小编整理的VB6.0编写电脑抽奖程序，本文共6篇，欢迎大家阅读分享借鉴，欢迎大家分享。本文原稿由网友“FallingSlowly”提供。

篇1：VB6.0编写电脑抽奖程序

主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的，Rnd函数的语法结构是Rnd[(number)]，可选的number参数是 single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound － lowerbound ＋ 1) × Rnd ＋ lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

另外，程序中还使用了INI文件，Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。

程序运行时如图：

源程序及注释如下：

'窗体源程序

Option Explicit

Dim m_strNameArray As MyName

Dim m_bIsStart As Boolean

Dim m_nNameIndex As Integer

Dim MAX_INDEX As Integer

Dim m_nSelectNum As Integer

'被选定数

Dim nScrollStep As Integer

Dim nScrollWidth As Integer

Dim bScrollState As Boolean

Dim nEnableSecond As Integer

Dim m_strTitle As String

Dim m_strAppTitle As String

Dim m_strScrollTitleLeft As String

Dim m_strScrollTitleRight As String

Private Sub Command_Start_Stop_Click()

If m_bIsStart = True Then

'按停止钮

m_bIsStart = False

Command_Start_Stop.Caption =

“开始“

Label_FlashName.Visible = True

Timer_FlashName.Enabled = True

Timer_ScrollName.Enabled = False

Label_FlashName =

m_strNameArray（m_nNameIndex).strName ＋ “中奖了！”

m_strNameArray(m_nNameIndex).bIsSelect = True

篇2：用VB编写抽奖程序教学设计

一、界面设计

新建一个标准的exe工程。在form1窗体中放置一个定时器（timer1）、两个文本框（label1，label2）、两个命令按钮（command1，command2）和包含7个元素的控件数组（label3（0）—label3（6））。

二、属性设置

label3控件数组中的所有元素皆采用相同设置。

三、代码编写

本程序的实现原理是：当用户单击“开始”按钮时，打开定时器，利用定时器控件同时产生两个随机数sj1、sj2，sj1的范围是1～32，sj2的范围是0～49。当sj1=24的时侯，用sj2与前面产生的中奖号码作比较，若与前面的中奖相同，则退出本过程；若与前面的中奖号码不同，则将此随机数作为中奖号码。当产生了7个中奖号码时，关闭定时器控件，停止产生随机数。

本程序用到的函数简介：

(1)randomize：初始化随机数的种子数。

(2)int：返回一个非整形数字取整后的整数。

(3)rnd：产生一个0～1之间的随机数（大于等于0，但小于1）。

(4)qbcolor（）：返回参数（0～15）对应的颜色。

(5)val：将一个字符形变量转化为一个数值型变量。

(6)format：格式化一个表达式。

以下是程序的完整代码：

dim sy as integer

′命令按钮1的单击事件

private sub command1_click（）

′清除label3控件数组的内容

for i=0 to 6

label3（i）.caption=′′

next

timer1.enabled=true′打开定时器

command1.enabled=false′使开始按钮失效

sy=－1′索引值初始化为－1

end sub

′命令按钮2的单击事件

private sub command2_click（）

unload me ′卸载本窗体

end sub

′定时器1的定时事件

private sub timer1_timer（）

dim sj1,sj2,ys as integer

randomize′初始化随机数

sj1=int（rnd＊32）＋1

sj2=int（rnd＊50）

label1.caption=sj1′设置标签1的内容

ys=int（rnd＊6）＋9

label1.forecolor=qbcolor（ys）

if sj2=24 then′如果sj2等于24

sy=sy＋1′索引值加1

for a=o to sy

if sj1=val（label3（a）.caption） then

sy=sy － 1

exit sub

end if

next

label3（sy）.caption=format（sj1, ′00′）

label3（sy）.forecolor=qbcolor（ys）

end if

if sy=6 then′如果索引值等于6

timer1.enabled=false ′关闭定时器

command1.enabled=true ′使命令按钮有效（即可重新开始抽奖）

end if

end sub

单击工具栏上的“启动”按钮，启动抽奖程序。单击“开始”按钮，label1控件将用五彩缤纷的颜色快速显示1～32之间的数字，并在label3控件数组中产生一组7个数字的中奖号码。再次单击“开始”按钮，程序将自动清除label3控件数组中的内容，并重新产生一组7个数字的中奖号码（与前面的不相同）。

篇3：用VB编写登录程序VB

用VB编写登录程序} 》

{ 编者按：在前几期编程乐园中，我们一同学习了一些关于VB编程的基本概念和语法规则。但离开实例学习编程，无疑是枯燥无味、事倍功半的，所以我们在此推出“看实例，学编程”栏目，邀请富有经验的PFans介绍他们的典型实例，希望对PFans的编程之旅有所帮助。

我们都知道，在进入Windows操作系统时会出现一个登录对话框，要求用户输入密码后才能进入Windows。我们用VB也可以编写这样的登录窗口，其具体方法如下：

界面设计：

打开“VB6.0”，出现“新建工程”对话框，选择“标准EXE”单击“打开”即可新建一个工程。新建一个工程后，VB自动生成了一个窗体，其默认的名称是Form1，且显示的标题也是Form1，显然与我们要编写的程序不符。我们可以更改这些设置，方法是：点击Form1窗体，在右边的属性窗口中（如图1）的“名称”后输入“Denglu”（在后面讲的Denglu就是指的这个窗体），在“Caption”后输入“登录窗口”。窗体设置好后，我们便可以将控件放置到这个窗体中去了。

“登录窗口”中主要用到的是TextBox(文本框)控件，该控件主要是用于接收用户输入的文字并显示出来。在该程序中我们便可以使用TextBox控件接收用户输入的信息来判断是否是合法的用户。另外，我们还将用到Label（标签）控件及CommandButton（命令按钮）控件。Label控件用来显示“用户名”及“密码”标题；CommandButton控件用来设计“确定”及“取消”按钮。下面我们将这些控件放置到窗体中：在工具箱中选择“Label”控件（如图2），在窗体中拖动鼠标直到一定的大小，然后在属性窗口中的“Caption”属性后为输入“用户名”，然后在其下方再拖动一个Label控件，将Caption的值改为“密码：”；在工具箱中选择“TextBox”控件（如图3），在“用户名”后拖动一个TextBox控件，用同样的方法在“密码：”后拖动一个TextBox控件，然后在“属性窗口”中将Text的值改为空（即删除默认的Text1），为了不显示出用户输入的密码，我们将第二个TextBox控件的PasswordChar属性设置为＊（如图5），这样在用户输入密码时显示的就是＊了；在工具箱中选择“CommandButton”控件（如图4），将其拖动到窗体的下方（一共两个），分别设置其Caption属性为“确定”和“取消”。调整好这些控件的位置（如图6）后即可完成界面的设计，

程序代码：

该程序的主要目的是要判断输入的用户名是否合法，所以我们首先编写判断用户名的程序代码。双击“确定”按钮，添加如下的程序代码：（黑体部分为系统自动生成的代码，楷体为注释）

Private Sub Command1_Click

′判断是否输入了用户名

If Text1.Text=″″ Then ′如果Text1为空，即没有输入用户

MsgBox ″请输入用户名！″,vbOKOnly＋vbCritical,″错误″

Exit Sub ′退出这个过程

Else ′如果输入了用户名

If Text1.Text=″软件世界″ And Text2.Text=″12345″ Then ′如果输入的用户名是″软件世界″且密码为″12345″

MsgBox ″你是合法用户，欢迎进入！″,vbOKOnly＋vbInformation,″欢迎进入″

Else ′如果不是″软件世界″或密码不是″12345″

MsgBox ″用户名或密码错误！″,vbOKOnly＋vbCritical,″错误″

Text1.Text=″″

Text2.Text=″″ ′清空Text1及Text2控件中的文本内容，让用户重新输入

End If

End If

End Sub

在这一段代码中，我们使用了If…Then…Else…End If。这是一个条件判断语句，If Text1.Text=″″ Then这句代码则是判断Text1是否为空，如果为空，这个条件就成立，则执行Then后的语句，如果Text1不为空，则这个条件不成立，程序将会跳到Else处，执行Else后的语句。

程序测试：

现在我们可以单击“F5”键来运行这个程序，看看其运行效果。直接单击“确定”按钮，将会弹出一个对话框（如图7）；在“用户名”后输入“软件世界”，“密码：”后输入“12345”，再单击“确定”按钮，此时便会出现一个“欢迎进行”的信息框（如图8）。怎么样，一个属于自己的“登录窗口”就制作好了。

但这个程序目前还只能判断在程序中已设置好了的用户名及密码，没有灵活性，你可以发挥你的聪明才智，使其能够判断多个合法的用户及密码。如果你有什么疑问，欢迎写信与我交流，我的E－mail地址是：vber@21cn.com。

（重庆 杜伟）}

原文转自：www.ltesting.net

篇4：用VB编写投注程序VB

时下全国各地都在搞“电脑型福利彩票”，相信很多读者朋友都参与过或正准备参与吧，笔者也是一个“彩民”，已为中国福利事业贡献了XXX元了，不过好像运气不怎么好，至今连个末等奖也未中到，在投注时，彩号可以自己在投注单上选，也可以通过投注机随机选

时下全国各地都在搞“电脑型福利彩票”，相信很多读者朋友都参与过或正准备参与吧，笔者也是一个“彩民”，已为中国福利事业贡献了XXX元了，不过好像运气不怎么好，至今连个末等奖也未中到。在投注时，彩号可以自己在投注单上选，也可以通过投注机随机选取。那么，想不想自己编个程序来模拟“机选”呢？好！那就接着往下看吧！

首先，新建一个单窗体的工程，在上面画出七个TEXTBOX，最好是一个控件数组，这样编程时容易控制，再建一个COMMOND BUTTON，将CAPTION改为“随机产生”。在程序运行后，每点击一下COMMAND1，将随机产生一组数字并按从小到大的顺序显示在文本框中。下面就是程序部分：

Dim NumArray(1 To 7) As Integer′通用中定义

Private Sub Command1_Click()

Dim i, j, N As Integer

For i = 1 To 7

NumArray(i) = 0

Next i

Randomize

NumArray(1) = Fix(1 ＋ 32 ＊ (Rnd()))

j = 1

Do

N = Fix(1 ＋ 32 ＊ (Rnd()))

For i = 1 To j

If N = NumArray(i) Then

Exit For ′重复时

ElseIf i = j Then ′未重复时

NumArray(i ＋ 1) = N

j = j ＋ 1

Exit For

End If

Next i

Loop While j < 7

PopSort ′升序排列

For i = 1 To 7

Text1(i － 1).Text = NumArray(i)

Next i

End Sub

Private Sub PopSort() ′气泡排序法

Dim i, j, Temp As Integer

For i = 7 To 2 Step －1

For j = 7 － 1 To 1 Step －1

If i >= 7 － j ＋ 1 Then

If NumArray(j ＋ 1) < NumArray(j) Then

Temp = NumArray(j)

NumArray(j) = NumArray(j ＋ 1)

NumArray(j ＋ 1) = Temp

End If

End If

Next j

Next i

End Sub

本程序在VB6.0中文企业版、Win98SE中文版下调试通过，

为了简捷起见，这个程序还有很多不尽如人意的地方，比如不能保存等，喜欢编程的朋友可以充分发挥自己的聪明才智对其加以扩充。

原文转自：www.ltesting.net

篇5：电脑程序开发个人简历

电脑程序开发个人简历模板

篇6：电脑程序网络管理员简历

在个人简历里务必做到不要出现粗心大意的情况，记得认认真真地把个人简历做个检查才是减少疏忽的最佳方法，你的态度决定个人简历在这方面的质量。所以做好个人简历要注意这么几个地方：第一，在个人简历内容当中是否出现过空格?有时候因为某些原因导致两个字之间出现了一个空格，问题是不大但是也得看看场合。如果在合同当中出现这个问题那不是给对方可乘之机吗?

第二，在个人简历里把字词写错了也是一个严重的问题，所以做个人简历时可不要只盯着字而忘记了词语，此外就是能不能使用简称的'问题，如果使用的简称不符合常规要求就不要这么做了。如果使用的简称存在引起歧义的地方也不要这么写，所以在一些关键词语上也得多考虑下，你的深思熟虑不一定会让企业发觉但是你的粗心大意一定会被企业深深地感受到。态度是一个最起码的应聘要求，粗心则是抹杀态度的最佳方式之一。

下面是yjbys小编和大家分享的电脑程序网络管理员简历范文，更多内容请关注简历范文栏目。

个人信息

yjbys

目前所在：广州年 龄：45

户口所在：广州国 籍：中国

婚姻状况：已婚民 族：汉族

培训认证：未参加 身 高：172 cm

诚信徽章：未申请 体 重：60 kg

人才测评：未测评

我的特长：

求职意向

人才类型：普通求职

应聘职位：计算机软件：软.硬件/网管/维护，网络工程师：电脑网络维护/管理

工作年限：15职 称：无职称

求职类型：全职可到职日期：随时

月薪要求：2000--3500希望工作地区：广州,,

工作经历

镇泰集团 起止年月：1994-05 ～ 2009-06

公司性质：外商独资 所属行业：其他行业

担任职位：电脑部主管

工作描述：主要职责： 1.维护硬、软件及网络日常运作 ;

2.培训各部门人员使用相关软件;

3.维护公司网络安全,防止外部攻击及系统性能优化;

4.熟练掌握计算机网络原理,组网技术,网络设备的配置;

5.熟练新电脑安装系统;

6.编写公司内部小程序;

7.熟练掌握AS/400 BPCS系统;

8.负责更新网站资料.

离职原因：因公司搬迁

广东电力传呼台 起止年月：1993-08 ～ 1994-05

公司性质：国有企业 所属行业：通信/电信运营、增值服务

担任职位：电脑网络维护员

工作描述：主要职责：1. 维护硬、软件及网络日常运作 ;

2. 培训各部门人员使用相关软件

离职原因：

广州市教育学院 起止年月：1992-10 ～ 1993-07

公司性质：事业单位 所属行业：教育/培训/院校

担任职位：电脑程序员

工作描述：主要职责：1. 负责编程、网管 ;

2. 资料排版、印刷

离职原因：

中国工商银行广州市江南大道中支行 起止年月：1988-10 ～ 1992-01

公司性质：国有企业 所属行业：会计/金融/银行/保险

担任职位：银行柜员

工作描述：主要职责：负责银行储蓄方面

1. 持有中国工商银行专业岗考核合格证

离职原因：

志愿者经历

教育背景

毕业院校：广州市职工业余大学

最高学历：大专 获得学位: 毕业日期：1991-07

专 业 一：应用电子技术专 业 二：

起始年月终止年月学校(机构)所学专业获得证书证书编号

1978-091982-07广州市九十八中学高中教程高中毕业证58

1983-091984-07广州市第一职工中等专业学校电工单科《电工单科结业证书》0605

1987-091991-07广州市职工业余大学应用电子技术《应用电子技术》毕业证16706

2008-062009-01劳动和社会保障中心计算机办公软件应用《计算机办公软件应用》资格证书0819011053402202

语言能力

外语：英语 一般粤语水平：精通

其它外语能力：

国语水平：良好

工作能力及其他专长

本人有15年的工作经验，其间担任多年电脑部主管,主要负责全公司软件，硬件系统维护/管理及各部门人员相关软件系统培训,对新电脑系统安装,对计算机网络的安装、调试及维护.

职业技能:

熟练 AS/400 BPCS系统

精通 Delphi编程

精通 MS Office 系列

精通 VBA

熟练 网络维护/网络管理

熟练 新电脑安装系统

熟练 打印机、复印机安装

Python编写屏幕截图程序方法

抽奖活动文案范文

中秋国庆抽奖主持词

数学日记之抽奖

现场抽奖活动方案

VB6.0编写电脑抽奖程序.doc

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档