当前位置: 网学 > 编程文档 > VB > 正文

用VB编写"投注"程序

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 12/10/17
下载{$ArticleTitle}原创论文样式

作者:党博昌

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

网学推荐

免费论文

原创论文

浏览:
设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
湘ICP备09003080号