VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 用VB编写"投注"程序
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:7901, 日期:2002-01-09


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