科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件用VB编写"投注"程序

用VB编写"投注"程序

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

时下全国各地都在搞“电脑型福利彩票”,相信很多读者朋友都参与过或正准备参与吧,笔者也是一个“彩民”....

作者:党博昌 来源:yesky 2007年10月15日

关键字: VB 编写 "投注"程序

  • 评论
  • 分享微博
  • 分享邮件
时下全国各地都在搞“电脑型福利彩票”,相信很多读者朋友都参与过或正准备参与吧,笔者也是一个“彩民”,已为中国福利事业贡献了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中文版下调试通过。为了简捷起见,这个程序还有很多不尽如人意的地方,比如不能保存等,喜欢编程的朋友可以充分发挥自己的聪明才智对其加以扩充。

查看本文来源

    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章