⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 m27.htm

📁 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程 vb教程
💻 HTM
字号:
🔍 
<html>
<head>
<title>VB教程</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
 
</head>
<p align="center"><script src="../../1.js"></script></a>

<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center> 
  <table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
    <tbody> 
     
    <tr> 
      <td bgcolor=#000000 height=14> 
        <div align=center class=H1>    <font color="#FFFFFF">用VB6.0编写电脑抽奖程序(1)</font> </font> </font></div>
      </td>
    </tr>
    <tr valign=top> 
      <td class=H1 height=236> 
        <p align="left">   <font color="#000000">来源：www.csdn.net<br>
          <br>
          　　 近年来在娱乐节目之中常常见到利用电脑来抽奖，笔者对其发生了兴趣遂自己动手用VB编了一个小程序来实现电脑抽奖的小功能，其原理如下：<br>
          　　主要利用VB中的Rnd函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd函数的语法结构是Rnd[(number)]，可选的number参数是 
          single或任何有效的数值表达式。Rnd函数返回小于1但大于或等于0的值。number 的值决定了 Rnd 生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式：<br>
          　　Int((upperbound － lowerbound ＋ 1) × Rnd ＋ lowerbound)<br>
          　　这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。<br>
          　　另外，程序中还使用了INI文件，Windows INI文件,可解释为Windows初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini文件是一种文本文件,它可以通过Notepad等文本编辑器进行编辑。ini文件具有特定的格式。一个INI文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI文件,通过INI文件保存应用程序的一些运行环境信息,然后在程序中读取INI文件中的设置信息并据以处理。一旦程序的运行环境需要变更,则可以通过直接修改INI文件，或在程序中提供专门的界面间接地修改INI文件来保证程序的可用性。<br>
          　　程序运行时如图：<br>
          　　 源程序及注释如下：<br>
          　　'窗体源程序<br>
          　　Option Explicit<br>
          　　Dim m_strNameArray() As MyName<br>
          　　Dim m_bIsStart As Boolean<br>
          　　Dim m_nNameIndex As Integer<br>
          　　Dim MAX_INDEX As Integer<br>
          　　Dim m_nSelectNum As Integer<br>
          　　 '被选定数<br>
          　　Dim nScrollStep As Integer<br>
          　　Dim nScrollWidth As Integer<br>
          　　Dim bScrollState As Boolean<br>
          　　Dim nEnableSecond As Integer<br>
          　　Dim m_strTitle As String<br>
          　　Dim m_strAppTitle As String<br>
          　　Dim m_strScrollTitleLeft As String<br>
          　　Dim m_strScrollTitleRight As String<br>
          　　Private Sub Command_Start_Stop_Click()<br>
          　　If m_bIsStart = True Then<br>
          　　'按停止钮<br>
          　　m_bIsStart = False<br>
          　　Command_Start_Stop.Caption =<br>
          　　“开始"<br>
          　　Label_FlashName.Visible = True<br>
          　　Timer_FlashName.Enabled = True<br>
          　　Timer_ScrollName.Enabled = False<br>
          　　Label_FlashName = <br>
          　　m_strNameArray（m_nNameIndex).strName ＋ “中奖了！"<br>
          　　m_strNameArray(m_nNameIndex).bIsSelect = True <br>
          </font></span> <br>
           </p>
      </td>
    </tr>
  
  </table>
</div>


<p align="center"><a href="../../pian/vb.htm">回首页</a>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -