(论文)用vb编一个抽奖软件的源代码最新优秀毕业论文资料搜集呕血奉献

求用vb编一个抽奖软件的源代码要求：1.点击开始从text或excel文件中依次调用每一行的电话号码，滚动显示在界面上，点击停止 则停在某一个电话上即可 2.请带一些语句说明最好最佳答案dim i 窗口启动： i=0 Open App.Path & 电话号码.txt For Input As #1 while eof(1)=false Line Input #1,a List1.AddItem a wend close #1 按开始： timer1.Interval=50 按结束： timer1.Interval=0 timer的事件： i=i+1 if i=List1.ListCount then i=0 Label1.Caption = List1.List(i) 不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了 所需控件： 两个按钮，一个开始，一个结束；一个时钟控件 一个列表框；一个标签控件 用VB 6.0编写电脑抽奖程序 近年来在娱乐节目之中常常见到利用电脑来抽奖，笔者对其发生了兴趣遂自己动手用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下：主要利用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 ExplicitDim m_strNameArray() As MyNameDim m_bIsStart As BooleanDim m_nNameIndex As IntegerDim MAX_INDEX As IntegerDim m_nSelectNum As Integer 被选定数Dim nScrollStep As IntegerDim nScrollWidth As IntegerDim bScrollState As BooleanDim nEnableSecond As IntegerDim m_strTitle As StringDim m_strAppTitle As StringDim m_strScrollTitleLeft As StringDim m_strScrollTitleRight As StringPrivate Sub Command_Start_Stop_Click()If m_bIsStart = True Then按停止钮m_bIsStart = FalseCommand_Start_Stop.Caption =“开始Label_FlashName.Visible = TrueTimer_FlashName.Enabled = TrueTimer_ScrollName.Enabled = FalseLabel_FlashName = m_strNameArray（m_nNameIndex).strName “中奖了！m_strNameArray(m_nNameIndex).bIsSelect = Truem_nSelectNum = m_nSelectNum 1Dim Temp As MyNameTemp =m_strNameArray(MAX_INDEX)m_str Name Array(MAXINDEX) = m_strNameArray(m_nNameIndex)m_strNameArray(m_nNameIndex) =TempMAX_INDEX = MAX_INDEX 1If MAX_INDEX = 0 ThenMsgBox “非常感谢您使用本软件End IfElse 按开始钮m_bIsStart = TrueCommand_Start_Stop.Caption = “停止Command_Start_Stop.Enabled = FalseTimer_ScrollName.Enabled = TrueTimer_FlashName.Enabled = FalseLabel_FlashName.Caption = “End IfEnd SubPrivate Sub Form_Load()Form_Bouns.ScaleMode = 3m_nNameIndex = 0m_bIsStart = FalseTimer_ScrollName.Enabled = TrueTimer_ScrollTitle.Enabled = TrueLabel_FlashName.Visible = FalseLabel_ScrollName.Caption = “nEnableSecond = 0 定义起始秒数ReDimNameArray 获得文本中的名字和打乱名字顺序nScrollStep = 5 设定滚动字的步长nScrollWidth = Label_Congruation.Left设定title的移动宽度bScrollState = False 设定缺省的开始滚动方向为向左m_nSelectNum = 0 初始化被选定数为0Init 初始化本程序的界面End SubPrivate Sub Timer_FlashName_Timer() 闪动中奖者姓名If Label_FlashName.Visible = True ThenLabel_FlashName.Visible = FalseElseLabel_FlashName.Visible = TrueEnd IfEnd SubPrivate Sub Timer_ScrollName_Timer() 滚动出现名字If m_bIsStart = True ThenIf m_nNameIndex = MAX_INDEX Thenm_nNameIndex = 0End Ifm_nNameIndex =m_nNameIndex 1If m_strNameArray(m_nNameIndex).bIsSelect = True ThenIf m_nNameIndex 0 ThennScrollWidth = nScrollWidth nScrollStepElsebScrollState = TrueEnd IfElse 向右滚nScrollStep = 10Label_Congruation.Caption = m_strScrollTitleRightIf nScrollWidth Form_Bouns.ScaleWidth Label_Congruation.Width ThennScrollWidth =nScrollWidth nScrollStepElsebScrollState = FalseEnd IfEnd IfLabel_Congruation.Left = nScrollWidth以下为8秒钟内使“停止按钮有效If nEnableSecond = MAX_INDEX Thenm_nNameIndex = 0End Ifm_nNameIndex =m_nNameIndex 1If m_strNameArray(m_nNameIndex).bIsSelect = True ThenIf m_nNameIndex 0 ThennScrollWidth = nScrollWidth nScrollStepElsebScrollState = TrueEnd IfElse 向右滚nScrollStep = 10Label_Congruation.Caption = m_strScrollTitleRightIf nScrollWidth Form_Bouns.ScaleWidth Label_Congruation.Width ThennScrollWidth =nScrollWidth nScrollStepElsebScrollState = FalseEnd IfEnd IfLabel_Congruation.Left = nScrollWidth以下为8秒钟内使“停止按钮有效If nEnableSecond = MAX_INDEX Thenm_nNameIndex = 0End Ifm_nNameIndex = m_nNameIndex 1If m_strNameArray(m_nNameIndex).bIsSelect = True ThenIf m_nNameIndex 0 ThennScrollWidth = nScrollWidth nScrollStepElsebScrollState = TrueEnd IfElse 向右滚nScrollStep = 10Label_Congruation.Caption = m_strScrollTitleRightIf nScrollWidth Form_Bouns.ScaleWidth Label_Congruation.Width ThennScrollWidth =nScrollWidth nScrollStepElsebScrollState = FalseEnd IfEnd IfLabel_Congruation.Left = nScrollWidth以下为8秒钟内使“停止按钮有效If nEnableSecond = 49 ThenIf m_bIsStart = True ThennEnableSecond =nEnableSecond 1End IfElseIf m_bIsStart = True ThenCommand_Start_Stop.Enabled = TruenEnableSecond = 0End IfEnd IfEnd Sub动态定义数组Private Sub ReDimNameArray()Dim nMaxIndex As IntegerDim strMaxIndex As StringDim nIndex As IntegerDim bIsBegin As BooleanbIsBegin = FalsenIndex = 0Open App.Path “ ame.txt For Input As 1 读文件Do Until EOF(1)If bIsBegin = False ThenLine Input 1, strMaxIndexnMIf bIsBegin = False ThenLine Input 1, strMaxIndexnMaxIndex = Val(strMaxIndex)MAX_INDEX = nMaxIndex 1ReDim m_strNameArray(0 To nMaxIndex 1)bIsBegin = TrueElseLine Input 1, m_strNameArray(nIndex).strNamem_strNameArray(nIndex).bIsSelect = FalsenIndex = nIndex 1End IfLoop以下为打乱人员顺序10次Dim i As IntegerDim j As IntegerDim Temp As StringDim nRandomNum As IntegerFor j = 0 To 10For i = 0 To nMaxIndex 1nRandomNum = (nMaxIndex 1) Rnd) 利用Rnd函数Temp = m_strNameArray(i).strNamem_strNameArray(i).strName = m_strNameArray(nRandomNum).strNamem_strNameArray(nRandomNum).strName = TempNext iNext jEnd SubPrivate Sub Init() 读取INI文件Dim X As LongDim lpFileNameDim Temp As String 50lpFileName = App.Path “Sortition.iniX = GetPrivateProfileString(“SYSTEM,“AppTitle,“抽奖程序, Temp, Len(Temp), lpFileName)m_strAppTitle = Trim(Temp)Temp =“X = GetPrivateProfileString(“SYSTEM, Title, 欢迎使用抽奖程序, Temp, Len(Temp), lpFileName)m_strTitle = Trim(Temp)Temp = “X = GetPrivateProfileString(“SYSTEM,“ScrollTitleRight, “恭喜发财!, Temp, Len(Temp), lpFileName)m_strScrollTitleRi