想用vba来实现双色球的7位数选择。并且不重合，怎么样实现呢？并生成保存到excel里面，谢谢！
-
等级
本版专家分：0结帖率 96.25% -
想用vba来实现双色球的7位数选择。并且不重合，怎么样实现呢？并生成保存到excel里面，谢谢！展开阅读全文
-
等级
本版专家分：13847勋章
-
-
红花
2016年3月 VB大版内专家分月排行榜第一
2015年1月 VB大版内专家分月排行榜第一
2014年12月 VB大版内专家分月排行榜第一
-
-
黄花
2015年4月 VB大版内专家分月排行榜第二
2015年3月 VB大版内专家分月排行榜第二
2014年11月 VB大版内专家分月排行榜第二
2014年10月 VB大版内专家分月排行榜第二
-
- 蓝花 2014年4月 VB大版内专家分月排行榜第三
-
-
请参考：（彩票有风险，投资须谨慎
）
Option Explicit
Sub test()
Dim iDic As New Dictionary, w1 As String, ww
Randomize ''随机初始化
''红色球1-33任意取6个
Do
w1 = Format$(CInt(Rnd * 33) + 1, "0#")
If Not iDic.Exists(w1) Then iDic(w1) = "0"
If iDic.Count = 6 Then Exit Do
Loop
''蓝色球取1个
w1 = Format$(Int(Rnd * 16) + 1, "0#")
''输出
Debug.Print Join(iDic.Keys, ",") & "--" & w1
iDic.RemoveAll ''清空字典
End Sub
-
等级
本版专家分：60397勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
你说的“不重合”是指随机产生的一注号码内没重复号的吧？
要保存到 Excel里，这个说得太含糊了……
是指定文档？还是产生一组号码后新建文档？
每次产生多少注号码？是固定的，还是某范围内随机的？还是产生前自己输入数量？
唉，还是先看看产生一注号码的吧：
Private Sub Command1_Click()
Dim sOut As String
Dim aBuf() As Long, SUM As Long
Dim i As Long, t As Long
SUM = 32: ReDim aBuf(SUM)
For i = 0 To SUM
aBuf(i) = i + 1
Next
Randomize: sOut = ""
For i = 1 To 6 ' 红色球
t = SUM * Rnd
sOut = sOut & Right$("0" & aBuf(t), 2) & " "
aBuf(t) = aBuf(SUM)
SUM = SUM - 1
Next
sOut = sOut & Right$("0" & CInt(1 + 15 * 0.98), 2)
MsgBox sOut
End Sub
-
等级
本版专家分：60397勋章
-
-
红花
2019年1月 VB大版内专家分月排行榜第一
2018年12月 VB大版内专家分月排行榜第一
2018年11月 VB大版内专家分月排行榜第一
2018年10月 VB大版内专家分月排行榜第一
2018年7月 VB大版内专家分月排行榜第一
2018年6月 VB大版内专家分月排行榜第一
2018年5月 VB大版内专家分月排行榜第一
2018年4月 VB大版内专家分月排行榜第一
2018年3月 VB大版内专家分月排行榜第一
2018年2月 VB大版内专家分月排行榜第一
2018年1月 VB大版内专家分月排行榜第一
2017年9月 VB大版内专家分月排行榜第一
2017年8月 VB大版内专家分月排行榜第一
2017年7月 VB大版内专家分月排行榜第一
2017年6月 VB大版内专家分月排行榜第一
2017年5月 VB大版内专家分月排行榜第一
2017年4月 VB大版内专家分月排行榜第一
2016年11月 VB大版内专家分月排行榜第一
2016年8月 VB大版内专家分月排行榜第一
2016年7月 VB大版内专家分月排行榜第一
2013年12月 VB大版内专家分月排行榜第一
2013年10月 VB大版内专家分月排行榜第一
2013年9月 VB大版内专家分月排行榜第一
2008年5月 VB大版内专家分月排行榜第一
-
-
黄花
2017年12月 VB大版内专家分月排行榜第二
2017年11月 VB大版内专家分月排行榜第二
2017年3月 VB大版内专家分月排行榜第二
2016年12月 VB大版内专家分月排行榜第二
2016年10月 VB大版内专家分月排行榜第二
2013年11月 VB大版内专家分月排行榜第二
-
-
蓝花
2019年5月 VB大版内专家分月排行榜第三
2016年3月 VB大版内专家分月排行榜第三
2012年9月 VB大版内专家分月排行榜第三
-
-
晕， CInt(1 + 15 * 0.98) 这个0.98忘记改成 Rnd 了。
-
等级
本版专家分：0
-
是想有个程序可以把所有的排列组合都可以生成到一个表里面，或者文本里面的。
- arcgis工具
应用工具CALCULATE AREA 或者使用VBA代码实现 新建字段并开启Advanced 写入代码，面积计算： Dim Output as double Dim pArea as Iarea Set pArea = [shape] 在最后的一个空格里面写入代码（即:字段名）pArea...
- Arcmap技巧总结
1. 要素的剪切与延伸 实用工具 TASK 任务栏 Extend/Trim feature 剪切所得内容与你画线的方向有关。 2. 自动捕捉跟踪工具 点击Editor工具栏中Snapping来打开Snapping Environment对话框 捕捉设置中有3个选项， ...
- Arcmap技巧总结(豆丁)
1. 要素的剪切与延伸 实用工具 TASK 任务栏 Extend/Trim feature 剪切所得内容与你画线的方向有关。 2. 自动捕捉跟踪工具 点击Editor工具栏中Snapping来打开Snapping Environment对话框 捕捉设置中有3个选项， ...
- 经纬度坐标定位某一点是否在某个多边形区域的算法！
感谢本篇算法的原作者，自己对代码做了点修改，但核心算法不变，同时提出了原作者没有特别说明的两个容易弄错，导致最后程序测试不正确的问题！原文：https://blog.csdn.net/u013239236/article/details/52213661 -...
- ArcMAP使用技巧小结
1. 要素的剪切与延伸 实用工具 TASK 任务栏 Extend/Trim feature 剪切所得内容与你画线的方向有关。 2. 自动捕捉跟踪工具 点击Editor工具栏中Snapping来打开Snapping Environment对话框 捕捉设置中有3个选项， ...
- AutoCAD 经典
AutoCAD 经典
- CISCO技术(1.7万)
0 base|以零为基底\r\n 0 disturbed zero output signal|干扰0输出信号\r\n 0parallel communication cable|平行通讯传输缆线\r\n 1 binary operation|二进制运算\r\n 1 di
- ArcGIS必会的几个工具的应用
本文分为两部分：第一部分：ArcGIS必会的几...第一个工具， 我们来看下 比较简单的 筛选工具的应用。筛选（ select ）的用法：从输入要素类或输入要素图层中提取要素（通常使用选择或结构化查询语言 (SQL) 表达式）...
- arcgis弧段怎么加很多点_关于ArcGIS的这62个常用技巧，你造吗？
一、计算面积 ( 可以帮我们计算小班面积 )添加 AREA 字段，然后右键点击字段列，然后点击 CALCULATE VALUES; --->...Dim Output as doubleDim pArea as IareaSet pArea = [shape]Output = pAr...
- arcgis 统一投影下范围不同_分享Arcgis中62个常用技巧系列二（2140技巧）
二十一、融合后全部打散ArcToolbox-> 数据管理 -> 属性 ->mergemultipart to singlepart二十二、图层 关系处理ArcToolbox-> 分析工具 -> 叠加 -> Erase ( 图层擦除指根据参照图层的范围大小，擦除...
- 数据挖掘技术
数据挖掘技术 哈尔滨商业大学 ...1、什么是大数据（Gig Data）：一种规模大到在获取、存储、管理、分析方面大大超出了传统数据库软件工具能力范围的数据集合，具有海量的数据规模、快速的数据流转、多样...
- arcgis gp 选择图层_这71个Arcgis常用技巧，你收藏了吗？
1、影像格式的转换例如把jpg格式转换为tiff格式。可以在arctoolbox中的conversiontools-->to Raster-->Raster to Other Format multiple)。2、矢量化准备矢量化前建立一个.mxd工程文件,该文件为索引文件，记录...
- arcgis gp 选择图层_【实用】62个关于ArcGIS的常用技巧
一、计算面积 ( 可以帮我们计算小班面积 )添加 AREA 字段，然后右键点击字段列，然后点击 CALCULATE VALUES; ---> 选择 ADVANCED －－》把...Dim Output as doubleDim pArea as IareaSet pArea = [shape]Output...
- arcgis 统一投影下范围不同_关于Arcgis这62个常用技巧，你造吗
一、计算面积 ( 可以帮我们计算小班面积 )添加 AREA 字段，然后右键点击字段列，然后点击 CALCULATE VALUES; ---> 选择 ADVANCED －－》把...Dim Output as doubleDim pArea as IareaSet pArea = [shape]Output...
- arcgis gp 选择图层_【干货】关于ArcGIS的这62个常用技巧，你造吗？
一、计算面积 ( 可以帮我们计算小班面积 )添加 AREA 字段，然后右键点击字段列，然后点击 CALCULATE VALUES; ---> 选择 ADVANCED －－》把...Dim Output as doubleDim pArea as IareaSet pArea = [shape]Output...
- 新手编程导论
第一部分 前 言 By Chenyi 眼前这本书充分体现了作者的所思、所想、所感，他用自己独特的眼光审视着计算机技术的世界，也用自己独特的思维逻辑对技术进行解读，并用自己特有的，呵呵，偶尔带有“四个逗号=一...
- arcgis坐标系统一_共享|ArcGIS中62个常用应用技巧大集合
01计算面积( 可以帮我们计算小班面积 )添加 AREA 字段，然后右键点击字段列，然后点击 CALCULATE VALUES; ---> 选择 ADVANCED －－》把下面...Dim Output as doubleDim pArea as IareaSet pArea = [shape]Output...
- 编程新手导论
(要懂得一点思想具备一点常识)《设计，编码，，与软工》（编程与思想）这一章解释了三种思想，原语，抽象，组合，，和软件开发的二个重要过程，，软件工程的相关概念，是编程入门的关键 (要懂得一点领域内的数学)...
- 编程新手导论（转载）
(要懂得一点思想具备一点常识)《设计，编码，，与软工》（编程与思想）这一章解释了三种思想，原语，抽象，组合，，和软件开发的二个重要过程，，软件工程的相关概念，是编程入门的关键 (要懂得一点领域内的数学)...
- Autocad技巧
AutoCAD经典疑难解答与技巧 答：磨刀不误砍柴工。计算机绘图跟手工画图一样，也要做些必要的准备。...答：最好使用1∶1比例画，输出比例可以随便调整。画图比例和输出比例是两个概念，输出时使用
- PowerPoint制作技巧四则
PowerPoint制作技巧四则MicroSoft PowerPoint是个很实用的多媒体演示软件，但在具体制作过程中，你会为有些创作构想得不到软件的支持而苦恼。其实，变通一下就会柳暗花明。一、使剪贴画灵活改变颜色 在演示文稿中...
- cad技巧2
35. 【如何保存图层】转：我是风中尘埃如想把图层,标注,打印都设置好了保存起来~!!方便下次做图如何操作我简单说一下新建一个CAD文档，把图层，标注样式等等都设置好后另存为DWT格式（CAD的模板文件）。...
- Excel 2016数据处理与分析实战秘籍
第5章 条件格式
- Premiere2019破解版
文档内包含pr2019版本的破解版，只需在解压后点击Setup.exe即可一键安装。
- 2020美赛C题题目.rar
Problem C: 电商里的数据财富 在电商市场中，亚马逊为消费者提供了对购买商品的评价（打分和评论）的服务。个人评级，又称为“星级评级”，意思是允许消费者使用1(低分差评，低满意度)到5(高分好评，高满意度)的等级来表达他们对产品的满意度。此外，消费者可以提交基于文本的信息，“评论”——表示对产品的进一步意见和信息。其他顾客可以在这些评论上打分，判断评论是否对他们有帮助，这又被称为“有用评分”，以帮助他们决定产品的购买决策。公司利用这些数据来洞察他们所参与的市场、参与的时机以及产品设计特性选择的潜在商机。
- PHP面向对象设计模式
本系列教程内容涵盖PHP常用的设计模式，旨在指导读者搭建易扩展的项目框架，高服用的代码，大程度的发挥面向对象思想的优势。 提升PHP程序员面向对象思想以及解决问题的能力，进而构建出高复用、易扩展的优秀框架。
- 2019美赛ABCDEF题题目（附C题数据）
2019美赛题目，完全是从官网下载，无翻译，可使用有道软件翻译浏览
- python爬虫20个案例
讲诉python爬虫的20个案例 。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
- Visio_2016
visio_2016下载安装，亲测可用，不需要破解，而且无秘钥。简单方便实用
- 2020美赛O奖论文.zip
包含2020美赛所有题目的所有O奖论文，A题8篇，B题5篇，C题6篇，D题7篇，E题5篇，F题6篇。