如何製作彩票選號軟體

Ⅰ 下面是一個「彩票選號小助手」的Visual Basic（VB）的程序代碼。下面是設計界面，求高人逐字逐句解釋代碼

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 < p『
Randomize Timer
r = Rnd() * (6 - i) + i』讓r在i到6-i間隨機取值
lblNum(r + base).Caption = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))
DoEvents『轉讓控制權，以便讓操作系統處理其它的事件
Loop
Loop
start = False『start屬性變為false
cmdStart.Enabled = True』開始按鈕可用
cmdAuto.Enabled = True『自動按鈕可用
cmdStart.SetFocus『開始按鈕得到焦點
End Sub

Private Sub Form_Load()』窗體載入事件
cmdStop.Enabled = False『停止按鈕不可用
For i = 0 To 34
lblNum(i).Caption = ""
Next』把34個數值全清空
End Sub

Private Sub lblNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)『lblNum的滑鼠按下事件
Dim r As Integer
If (Not start) And (Not auto) Then』如果沒開始，沒點自動
r = Index Mod 7『index意思是第幾個，從0開始，比如第一行的第二個index就是1，第二行的第一個index就是7. mod 7 就是對7 取余取出來的數值表示他是這一行的第幾個。
manu = True』令menu為真
Do While manu
lblNum(Index) = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))
DoEvents『轉讓控制權，以便讓操作系統處理其它的事件
Loop
End If
End Sub

Private Sub lblNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
manu = False『滑鼠松開時，menu為假，停止上面滑鼠按下事件當中的循環。
End Sub

就這些了，望採納

Ⅱ 安卓手機怎麼製作自動投注呢

這樣做的好處：點亮我的微笑，榴花般的雙眸。

Ⅲ 1、編一個福利彩票電腦選號的程序

福利彩票選號的Matlab模擬程序

%
axes('position',[0.1,0.8,0.8,0.1]);
text(0,0,'模擬3D彩票','fontsize',18);
axis off;

axes('position',[0.6,0.8,0.3,0.2],'Visible','off');
bb=text(0.1,0.5,'0','fontsize',24);q=0;

axes('position',[0.3,0.23,0.6,0.1]);
tt=text(0,0,'please press "space" to stop!',...
'fontsize',18);
axis off;

axes('position',[0.1,0.4,0.2,0.3]);
t1=text(0.3,0.5,'3','fontsize',60);
box on;
set(gca,'xtick',[],'ytick',[]);
set(gca,'xticklabel',[],'yticklabel',[]);

axes('position',[0.4,0.4,0.2,0.3]);
t2=text(0.3,0.5,'3','fontsize',60);
box on;
set(gca,'xtick',[],'ytick',[]);
set(gca,'xticklabel',[],'yticklabel',[]);

axes('position',[0.7,0.4,0.2,0.3]);
t3=text(0.3,0.5,'3','fontsize',60);
box on;
set(gca,'xtick',[],'ytick',[]);
set(gca,'xticklabel',[],'yticklabel',[]);
set(gcf,'doublebuffer','on');
k=1;DD=[];
fid = fopen('save_data.txt','wt');

while k
s=get(gcf,'currentkey');
if strcmp(s,'space');
clc;k=0;
end
d=fix(rand(1,3)*10*(1-eps));
a=num2str(d(1));
b=num2str(d(2));
c=num2str(d(3));
set(t1,'string',a);
set(t2,'string',b);
set(t3,'string',c);
set(tt,'color',rand(1,3));
q=q+1;set(bb,'string',num2str(q));
p=num2str(d);
fprintf(fid,'%c',p);
fprintf(fid,'%c\n',' ');
DD=[DD;d];
pause(0.2);
end
fclose(fid);
figure(gcf);
figure;
plot(1:size(DD,1),DD(:,1),'rs','MarkerFaceColor','r');
legend('first');
figure;
plot(1:size(DD,1),DD(:,2),'gs','MarkerFaceColor','g');
legend('second');
figure;
plot(1:size(DD,1),DD(:,3),'bs','MarkerFaceColor','b');
legend('third');
dos('save_data.txt');
delete save_data.txt

Ⅳ 用循環鏈表方式製作福利彩票(36選7)的選號器

#include <stdio.h>
#include <stdlib.h>

void main()
{
int result[7] = {0};
int num = 0;
int i = 0;
srand((unsigned)time(0));//初始化隨機種
while (i < 7)
{
int j = 0;
num = rand() % 36 + 1;//得到1-36的隨機數
/* 判斷是否已經存在 */
while (j < 7)
{
if (result[j] == num)
{
break;
}
j++;
}
/* 如果不存在保存數字 */
if (j == 7)
{
result[i] = num;
i++;
}
}
i = 0;
/* 列印 */
while (i < 7)
{
printf("%d \n",result[i++]);
}
}

Ⅳ 跪求用VB程序設計《彩票選號小助手》小程序，，跪求幫忙，，，，感激不盡

選號的網頁多得很，不知你為何要做這個玩意，還不如直接用excel隨機選。
先留個腳印

Ⅵ 用VB寫個彩票選號程序,求思路!

把下面的代碼復制到記事本中，改名為form1.frm，再用vb6打開編譯即可使用。希望你能喜歡，不足之處可以提出來。
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 5 'Sizable ToolWindow
Caption = "彩票選號程序"
ClientHeight = 3855
ClientLeft = 60
ClientTop = 330
ClientWidth = 6600
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3855
ScaleWidth = 6600
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口預設
Begin VB.Frame Frame4
Caption = "號碼框"
Height = 2415
Left = 3600
TabIndex = 11
Top = 1320
Width = 2895
Begin VB.CommandButton Command6
Caption = "輸入號碼"
Height = 255
Left = 1560
TabIndex = 19
Top = 720
Width = 1095
End
Begin VB.CommandButton Command5
Caption = "試試運氣"
Height = 495
Left = 120
TabIndex = 16
Top = 1440
Width = 2535
End
Begin VB.TextBox xx
Height = 270
Left = 1560
TabIndex = 14
Top = 1080
Width = 1095
End
Begin VB.TextBox sx
Height = 270
Left = 120
TabIndex = 13
Top = 1080
Width = 1095
End
Begin VB.Label Label5
Caption = "范圍："
Height = 255
Left = 120
TabIndex = 18
Top = 720
Width = 615
End
Begin VB.Label Label4
Caption = "機選號碼："
Height = 255
Left = 120
TabIndex = 17
Top = 2040
Width = 2535
End
Begin VB.Label Label3
Caption = "~"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 135
Left = 1320
TabIndex = 15
Top = 1200
Width = 255
End
Begin VB.Label Label2
Caption = "我的號碼："
Height = 255
Left = 120
TabIndex = 12
Top = 360
Width = 2655
End
End
Begin VB.Frame Frame3
Caption = "統計框"
Height = 975
Left = 3600
TabIndex = 8
Top = 240
Width = 2895
Begin VB.CommandButton Command3
Caption = "點我統計！"
Height = 615
Left = 120
TabIndex = 9
Top = 240
Width = 2655
End
End
Begin VB.Frame Frame2
Caption = "查找框"
Height = 2415
Left = 120
TabIndex = 3
Top = 1320
Width = 3375
Begin VB.CommandButton Command4
Caption = "清除"
Height = 255
Left = 2400
TabIndex = 10
Top = 2040
Width = 855
End
Begin VB.CommandButton Command2
Caption = "查找"
Height = 255
Left = 2520
TabIndex = 7
Top = 240
Width = 735
End
Begin VB.ListBox List1
Height = 1320
ItemData = "Form1.frx":0000
Left = 120
List = "Form1.frx":0002
TabIndex = 5
Top = 600
Width = 3135
End
Begin VB.TextBox Text1
Height = 270
Left = 120
TabIndex = 4
Top = 240
Width = 2295
End
Begin VB.Label Label1
Caption = "總共：0項"
Height = 255
Left = 120
TabIndex = 6
Top = 2040
Width = 2175
End
End
Begin VB.Frame Frame1
Caption = "輸入框"
Height = 1095
Left = 120
TabIndex = 0
Top = 120
Width = 3375
Begin VB.TextBox Text2
Height = 270
Left = 120
TabIndex = 2
Top = 240
Width = 3135
End
Begin VB.CommandButton Command1
Caption = "輸入並確定"
Height = 375
Left = 120
TabIndex = 1
Top = 600
Width = 3135
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim N As Long
Dim NR As String
Dim ZS As Long
Dim CS As Long
Dim mynum As Long
Private Sub Command1_Click()
Open "C:\1.TXT" For Append As #1
Print #1, Val(Text2.Text)
Close #1
Label2.Caption = "我的號碼：" & Val(Text2.Text)
mynum = Val(Text2.Text)
Text2.Text = ""
End Sub

Private Sub Command2_Click()
CS = CS + 1
Open "C:\1.TXT" For Input As #1
Do While Not EOF(1)
Line Input #1, NR
NR = Trim(NR)
If NR = Text1.Text Then List1.AddItem NR: N = N + 1
Loop
Close #1
List1.AddItem "------------第" & CS & "次------------"
Label1.Caption = "總共：" & N & "項"
N = 0
NR = ""
End Sub

Private Sub Command3_Click()
Open "C:\1.TXT" For Input As #1
Do While Not EOF(1)
Line Input #1, NR
NR = Trim(NR)
If NR = NR Then ZS = ZS + 1
Loop
Close #1
MsgBox "共有" & ZS & "項"
ZS = 0
End Sub

Private Sub Command4_Click()
List1.Clear
End Sub

Private Sub Command5_Click()
Label4.Caption = "機選號碼：" & Int(Rnd * Val(sx.Text)) + Val(xx.Text)
End Sub

Private Sub Command6_Click()
mynum = InputBox("輸入號碼：")
Label2.Caption = "我的號碼：" & mynum
End Sub

Private Sub Form_Load()
N = 0
End Sub

Ⅶ 彩票萬能碼的製作方法 特別是福彩15選5和體彩20選5的萬能碼如何製作

這 可 以 的
敢 放 心
gft./www.xdez.net?yshp
方法/步驟:
1、首先在電腦上安裝一下蘋果iTunes軟體，將手機數據線鏈接到電腦USB介面上，打開iTunes將手機中數據傳入到iTunes軟體裡面。
2、在iTunes欄目裡面按顯示，勾選顯示邊欄。
3、就會在iTunes左邊上顯示一個邊欄出來，然後按一下應用程序
4、在應用程序裡面點更新按鈕，就可以看見裡面需要更新的一些軟體。
5、選取微信，單擊滑鼠的右鍵，按一下更新應用程序。它就會在iTunes裡面自動下載最新版本微信軟體，下載時稍微等待一會兒。
6、直到下載完畢後，按一下邊欄上顯示iphone進入到應用程序裡面
7、點擊裡面微信，按下「更新」及下方「應用」按鈕，稍微等待一下，當同步更新完畢後，就可以拔掉數據線。

Ⅷ 雙色球超級選號軟體 2008 V1.0是怎麼做出來的 才20KB。

那破軟體一看就是給彩票小白用的，沒技術含量，虧你還這么膜拜它，汗之......

Ⅸ 如何用易語言編彩票選號

繪制6個標簽，2個按鈕，1個時鍾
復制以下代碼就可以了：

.版本 2

.程序集 窗口程序集1

.子程序 _按鈕1_被單擊

時鍾1.時鍾周期 ＝ 80

.子程序 _按鈕2_被單擊

時鍾1.時鍾周期 ＝ 0

.子程序 _時鍾1_周期事件

標簽1.標題 ＝ 到文本 (取隨機數 (1, 33))
標簽2.標題 ＝ 到文本 (取隨機數 (1, 33))
標簽3.標題 ＝ 到文本 (取隨機數 (1, 33))
標簽4.標題 ＝ 到文本 (取隨機數 (1, 33))
標簽5.標題 ＝ 到文本 (取隨機數 (1, 33))
標簽6.標題 ＝ 到文本 (取隨機數 (1, 33))

Ⅹ 請問怎怎麼用電腦自己製作彩票系統

先學計算機語言，學三五年後再讓程序設計高手帶你兩年，之後你可以嘗試設計一些簡單的軟體，如果軟體設計出來沒什麼問題，就可以設計彩票系統了。