说明: 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)
<wb4916> 在 上传 | 大小:238592