投票结果公布！！爱四季第二代移动硬盘外置电池仓设计...

孟泽小鱼

本次投票结果：第3种设计胜出

3

感谢大家对此次投票活动的参与和支持，四季宏胜公司也将采纳大家的投票建议，对爱四季第二代智能移动硬盘的电池仓更进一步设计。
中奖大名单：
一等奖1名：    
   小村三月
二等奖3名：
  baiyuming
  65368573
  devotion
恭喜以上获奖者！！
请以上获奖者以回帖方式留下您的联系方式（包括收件人、联系电话、收件地址和邮编号码），奖品将在回帖48小时寄出。 回帖已设定为仅作者可见，无需担心信息泄露。

（本次抽奖，使用随机抽取代码,采取两轮随机抽取。第一轮从37名参与者中抽取4名中奖者，第二轮从这4名中奖者中抽取一等奖1名，其余为二等奖。）
代码:
Sub GetRnd()
    m = [a1].End(4).Row '获取A列中A1开始单元格的最大行数m
    arr = [a1].Resize(m) '读取A列数据到数组arr

    n = 4 '指定要提取的数据个数n
    If n > m Then MsgBox "n>m Err!": Exit Sub
    Randomize '随机种子初始化 以保证每次得到不同的随机序列
    For i = 1 To n '遍历提取n个数据
     r = Int(Rnd * (m - i + 1)) + i '从剩余数据中得到随机位置r (注意里面剩余数计算用m 不是n)
        t = arr(r, 1): arr(r, 1) = arr(i, 1): arr(i, 1) = t
        '用临时变量t进行随机位置和当前位置的交换 保证得到随机不重复乱序结果
    Next
    [b1].Resize(n) = arr '输出结果到工作表
      m = [b1].End(4).Row '获取B列中A1开始单元格的最大行数m
    arr = [b1].Resize(m) '读取B列数据到数组arr
      n = 1 '指定要提取的数据个数n
    If n > m Then MsgBox "n>m Err!": Exit Sub
    Randomize '随机种子初始化 以保证得到不同的随机序列
      [c1].Resize(n) = arr '输出结果到工作表
End Sub




福利再度来袭！！  欢迎大家来投票，参与就有机会获得丰厚奖品！

爱四季第二代智能移动硬盘的3种外置电池仓设计方案，您喜欢哪一种呢？

先了解一下优缺点：

第一种 插槽式（锂聚合物电池）：

1

优点：体积小，便于携带。
缺点：电池容量较小，2000mAh-3000mAh，连接硬盘可工作2-3小时。

第二种 插槽式（18650电池）：

2

优点：体积小，便于携带；电池可拆卸更换，电池仓可插拔。
缺点：厚度大，电池容量较小，2600mAh-3000mAh，连接硬盘可工作2-3小时。

第三种 背夹式（锂聚合物电池）：

优点：电池容量大8000mAh-10000mAh连接硬盘可工作11-14小时。
缺点：体积大。

（注：三种都可设计通用接口，作为移动电源使用，为手机、平板充电）
奖品：
一等奖： 三星Class 10 32G TF卡 套装 （包含32G TF卡+读卡器+SD卡套 各1个）
二等奖：（二选一）     ①手环数据线+SD卡套 各1个        ②硬盘包1个


抽奖规则：

1.投票结束之后，将从所有投票者中随机抽取一等奖1名，二等奖3名。
（本次抽奖，使用随机抽取公式INDIRECT("a"&INT(RAND()*参与者数量+1))和INDIRECT("a"&INT(RAND()*4+1))，采取两轮随机抽取。第一轮从所有参与者中抽取4名中奖者，第二轮从这4名中奖者中抽取一等奖1名，其余3位为二等奖。）


2.中奖结果将在投票结束后12小时内公布。届时，请中奖者与我们联系。

=============================================================================


OK，快叫上大家的好朋友，一起来投票吧 ！

登陆后，在这里投票↓