文件名称:
01vb编写双色球号码生成小程序源码20191001_1221.7z
开发工具:
文件大小: 233kb
下载次数: 0
上传时间: 2019-10-01
详细说明： http://blog.sina.com.cn/s/blog_4cd4ffc401018xbx.html vb编写双色球号码生成小程序源码 需要3个label，用来显示相应信息；两个文本框，一个显示生成的号码，一个用来设置号码数量；两个按钮，一个用来开始生成，一个用来复制生成的号码。完整代码如下： 首先声明一个生成号码的函数用于调用 Sub 生成() vb的函数名称可以用汉字的，呵呵 Dim n(1 To 33), i, j, q, p 定义变量 For i = 1 To 33 n(i) = 0 Next j = 0 Randomize Timer 防止随机数重复 W hile j < 6 生成6个红球号码 q = Int(Rnd(1) * 33 + 1) 红球号码为01到33 If q < 10 Then 判断是否是小于10 q = 0 & q 小于10则在前面加0 End If If n(q) = 0 Then Text1.Text = Text1.Text & q & " " 生成后写入文本框，各球中间用1个空格隔开 n(q) = 1 j = j + 1 End If Wend 红球已经生成完毕了，下面是蓝球，同红球 Randomize Timer p = Int(Rnd(1) * 16 + 1) If p < 10 Then 判断是否是小于10 p = 0 & p 小于10则在前面加0 End If Text1.Text = Text1.Text & " " & p & vbCrLf 红球和蓝球联合起来，用两个空格隔开，末尾加上换行符，以便于生成多个号码 End Sub Private Sub Command1_Click() 使用Clipboard来实现复制到剪贴板功能 Clipboard.Clear Clipboard.SetText Text1.Text End Sub Private Sub Command2_Click() 我们在界面加上一个显示生成时间的小东西 Dim s, t, k s = Timer 开始生成 Text1.Text = "" 先清空文本框 k = 0 While k < Val(Text2.Text) 按照需要来生成所需数量的号码 Call 生成 k = k + 1 Wend t = Timer 生成结束 Label2.Caption = "用时" & t - s & "秒" 显示生成时间 End Sub Private Sub Form_Load() 在load里面设置一下文本框内容 Text1.Text = "" Text2.Text = 5 End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
相关搜索:
