彩票选号小助手设计运用到的知识点

Private Sub cmdStart_Click()

Dim i As Integer"定义i为整形变量

For i = 0 To 4"i从0 到 4 进行5次循环

If option1(i).Value Then"如果选中了第i+1注（单选框第一到第五注是option1(0) 到option1(4))

Exit For"如果满足，退出for循环

End If"结束判断

Next"for循环的结束语句

base = i * 7"上面利用一个循环把你选中的第几注赋值给了i 此时把i*7赋值给变量base cmdStop.Enabled = True"把停职按钮的可用性变为true 即让停止按钮可用

cmdStart.Enabled = False"让开始按钮不可用

cmdAuto.Enabled = False"让自动按钮不可用

cmdStop.SetFocus"让停止按钮获得焦点（就是那一圈围着按钮的特别细的虚线）

start = True"令变量start的逻辑属性为真

Do While start"这是一个do loop循环 如果start为真就一直循环

Randomize Timer"让随机数每次都不一样，

i = Rnd() * 6"让i取1到6的随机数

lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))

"这里lblNum(i + base).Caption 指的是第几个幸运号码框，base是之前判定了的你选的第几注乘以了6（每行6个），也就是从第几行开始，i是随机的，后面的代码trim是去掉两边的空格，str是把内容改为字符串格式，int是取整，后面那个没看太懂，个人觉得这块有错，

DoEvents"转让控制权，以便让操作系统处理其它的事件

If auto Then"如果auto为真（就是点了自动按钮）

If Timer - sTime > sDiff Then"这缺少相应的在通用声明区的定义语句，看不太懂

Exit Do"跳出do loop循环

End If"结束判断

End If"结束判断

Loop

End Sub

Private Sub cmdStop_Click（)"停止按钮的单击事件

cmdStop.Enabled = False"停止按钮不可用

i = 0"让i=0

Do While True"do loop循环，这个循环判定条件一直是真，通过内部的结束循环语句来结束循环

lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10)）））"同之前的

i = i + 1"i从0开始依次累加

If i = 7 Then

Exit Do"如果i=7 结束循环

End If

p = Rnd / 5"在0 到0.2中随机取值

N = Timer"n为系统计时器数值

Do While Timer - N

Option Explicit Private Sub Command1_Click() Dim i As Integer, j As Integer, d As Integer Dim a As String d = 1 For i = 0 To 34 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i"1-7排序并去初重复 aa: For i = 1 To 6 For j = 0 To i If Val(Text1(j).Text) > Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 0 To 6 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 1 For i = 0 To 6 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i GoTo aa End If Next j"7-14排序并去处重复 bb: For i = 8 To 13 For j = 7 To i If Val(Text1(j).Text) < Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 7 To 13 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 15 For i = 7 To 13 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i GoTo bb End If Next j"14-21排序并去处重复 cc: For i = 15 To 20 For j = 14 To i If Val(Text1(j).Text) < Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 14 To 20 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 29 For i = 14 To 20 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i GoTo cc End If Next j"21-28排序 dd: For i = 22 To 27 For j = 21 To i If Val(Text1(j).Text) < Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 21 To 27 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 43 For i = 21 To 27 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i GoTo dd End If Next j"28-35排序并去处重复 ee: For i = 29 To 34 For j = 28 To i If Val(Text1(j).Text) < Val(Text1(i).Text) Then a = Text1(i).Text Text1(i).Text = Text1(j).Text Text1(j).Text = a End If Next j Next i For j = 28 To 33 If Val(Text1(j).Text) = Val(Text1(j + 1).Text) Then d = 55 For i = 28 To 34 Text1(i).Text = Mid$(GenNnm, d, 2) d = d + 2 Next i GoTo ee End If Next j End Sub Function GenNnm() As String Dim str1 As String Dim i As Integer, Num As Integer Dim usechar As String usechar = "" str1 = "" Randomize For i = 1 To 36 Num = Len(usechar) * Rnd + 1 If Num Mod 2 = 1 Then str1 = str1 + Mid(usechar, Num, 2) Else str1 = str1 + Mid(usechar, Num - 1, 2) End If Next i GenNnm = str1 End Function Private Sub Command2_Click() Dim i As Integer For i = 0 To 34 Text1(i).Text = "" Next i End Sub Private Sub Command3_Click() Unload Me frmLoad.Show End Sub Private Sub Form_Load() Option5.Value = True End Sub Private Sub Option1_Click() Dim i As Integer For i = 7 To 34 Text1(i).Visible = False Next i For i = 0 To 34 Text1(i).Text = "" Next i End Sub Private Sub Option2_Click() Dim i As Integer For i = 14 To 34 Text1(i).Visible = False Next i For i = 0 To 13 Text1(i).Visible = True Next i For i = 0 To 34 Text1(i).Text = "" Next i End Sub Private Sub Option3_Click() Dim i As Integer For i = 21 To 34 Text1(i).Visible = False Next i For i = 0 To 20 Text1(i).Visible = True Next i For i = 0 To 34 Text1(i).Text = "" Next i End Sub Private Sub Option4_Click() Dim i As Integer For i = 28 To 34 Text1(i).Visible = False Next i For i = 0 To 27 Text1(i).Visible = True Next i For i = 0 To 34 Text1(i).Text = "" Next i End Sub Private Sub Option5_Click() Dim i As Integer For i = 0 To 34 Text1(i).Visible = True Next i For i = 0 To 34 Text1(i).Text = "" Next i End Sub。

Private Sub command1_Click()N = -1For i = 0 To 4N = N + 1If option1(i).Value = True Then Exit ForEnd IfNext iDim a(1 To 7) As IntegerFor i = 0 To NFor j = 1 To 7Randomizea(j) = Int(Rnd * 35 + 1)"随机生成号码Next jFor k = 1 To 7For m = k + 1 To 7If a(k) = a(m) Then v = Int(Rnd * 35 + 1)Do While v = a(1) Or v = a(2) Or v = a(3) Or v = a(4) Or v = a(5) Or v = a(6) Or v = a(7)v = Int(Rnd * 35 + 1)Loop a(k) = v"发现重复的号码，重新生成End IfNext mNext kFor k = 1 To 7For m = k + 1 To 7If a(k) > a(m) ThenX = a(k)a(k) = a(m)a(m) = XEnd IfNext mNext kText1(i) = Format(a(1), "00")Text2(i) = Format(a(2), "00")Text3(i) = Format(a(3), "00")Text4(i) = Format(a(4), "00")Text5(i) = Format(a(5), "00")Text6(i) = Format(a(6), "00")Text7(i) = Format(a(7), "00")Next i"设置输出格式End Sub。

#include #include #include #include #include#includeusing namespace std;int obj[7];int select[7];vector bingo,b1;vector::iterator it;int rnd(int s[7],vector &b){ int i,j; for( i = 0;i < 7;i++ ) { s[i]=rand()%33+1；//取1-33的随机数 } for(i=0;i<7;i++) { for(j=i+1;j<7;j++) { if (s[i]==s[j]) //判断产生的随机数是否有重复 return 1；//如发生重复返回1 } } for(i=0;i<7;i++) b.push_back (s[i])； //进栈 sort(b.begin (),b.end（)）；//对产生随机数排序return 0;}int trap（)//用于手选号码的错误判定{ for(int i=0;i<7;i++) { for(int j=i+1;j<7;j++) { if (b1[i]==b1[j])//判定是否有重复 return 1;}if((b1[i]<1)||(b1[i]>33)）//判定是否超出数据范围 return 1; }return 0;}int hand（)//手选号码{for(int i=0;i<7;i++){cout<<"请输入第"<>select[i];b1.push_back(select[i]); cout<

"<l;switch(l){case "1":hand();lucky();cout<>t;result(t);break;case "4":cout<<"十赌九输啊！快走吧，再晚了就改不上2路汽车了。

"< 5.彩票选号技巧

秘诀？那当然没有，只是有点小窍门而已：1.选近期出现频率高的号；

2.看走势图，找对称性；

3.这条纯粹靠自己了，就是选择你认为可能会爆发的冷号。

就这么多了。其实中奖是靠运气的，也不用靠那个发家，不可靠。每次只买10元以下的就行了。就当一个希望。我就这么想的。

选号的诀窍就是：1.买近几期较频繁的号； 2.看走势图的对称性买号； 3.冷号，偶有冷号爆发，看准冷号； 至于算法，我不是很支持，那些专家每期鉴号。鉴出来10+个，能中3个就不错了。其实中奖，运气才是最关键的。

#include <stdio.h>

#include <stdlib.h>

#include <time.h>

main()

{

int a[7], i, k=1;

srand(time((NULL));

a[0]=rand()%36+1;

while(k<7)

{

a[k]=rand()%36+1;

for(i=1;i<=k;i++)

if(a[k]=a[i])

a[k]=rand()%36+1;

k++;

}

for(i=0;i<=6;i++)

printf("%d",a[i]);

}

下一章>>>更多精彩