用VB编写'投注'程序

2008-04-09 04:42:59来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:用VB5制作家庭影集

下一篇:用Visual Basic自编小游戏

热门词条
热门标签