❶ 易語言怎麼寫1 -33數字中、標簽中、隨機顯示6個數字型大小碼和1-16個數字顯示1個號碼
.版本 2.程序集 窗口程序集1.子程序 _按鈕1_被單擊
.局部變數 隨機數, 整數型
.局部變數 i
.局部變數 紅球, 整數型, , "0"
.局部變數 a, 整數型編輯框1.內容 = 「」
編輯框2.內容 = 「」
清除數組 (紅球)
.計次循環首 (33, a)
加入成員 (紅球, a)
.計次循環尾 ()置隨機數種子 ().計次循環首 (6, i) 隨機數 = 取隨機數 (1, 取數組成員數 (紅球))
編輯框1.加入文本 (到文本 (紅球 [隨機數]) + 「,」)
刪除成員 (紅球, 隨機數, )
.計次循環尾 ()
編輯框2.內容 = 到文本 (取隨機數 (1, 16))
.子程序 __啟動窗口_創建完畢
❷ 易語言指定數字中取隨機,求源碼
.版本 2
.程序集 窗口程序集1
.子程序 __啟動窗口_創建完畢
列表框1.加入項目 (「海南」, )
列表框1.加入項目 (「山東」, )
列表框1.加入項目 (「福建」, )
列表框1.加入項目 (「深圳」, )
.子程序 _加入按鈕_被單擊
.局部變數 a, 整數型
.局部變數 找到, 邏輯型
找到 = 假
.計次循環首 (列表框1.取項目數 (), a)
.如果真 (列表框1.取項目文本 (a - 1) = 編輯框1.內容)
信息框 (「已有」 + 編輯框1.內容 + 「此項目,不能加入!」, 0, )
找到 = 真
跳出循環 ()
.如果真結束
.計次循環尾 ()
.如果真 (找到 = 假)
列表框1.加入項目 (編輯框1.內容, 列表框1.取項目數 () )
.如果真結束
.子程序 _按鈕2_被單擊
置隨機數種子 ()
編輯框2.內容 = 列表框1.取項目文本 (取隨機數 (0, 列表框1.取項目數 () - 1))
❸ 一個雙色球隨機選號的php腳本程序。功能是按要求隨機生成並顯示若干組號碼完全不能相同的雙色球號碼。
<?php
$numbers=range(1,33);
shuffle($numbers);
$result=array_slice($numbers,0,7);
foreach($resultas$n)printf("%02d",$n);
echo"<br>";
?>
❹ VB編程:在文本框里輸入6位數的彩票號碼,按下「開獎」按鈕後,6個標簽中會顯示隨機數號碼,對比開獎
❺ 易語言誰幫我製作一個隨機抽選名字或數字的源碼
把姓名或數字 逐個放到一個一維數組中
然後置隨機種子取隨機數,然後根據這個隨機數 將數組中的值 取出 放到你要顯示的組件中(如編輯框)。
.版本 2
.程序集 窗口程序集1
.程序集變數 姓名數組, 文本型, , "0"
.程序集變數 點擊數, 整數型
.子程序 _按鈕1_被單擊
.局部變數 隨機數, 整數型
.局部變數 n, 整數型
' 循環加入不同姓名
.計次循環首 (10, n)
加入成員 (姓名數組, 「張三」 + 到文本 (n))
.計次循環尾 ()
' 置隨機種子並 取出數組范圍內的隨機數
置隨機數種子 (取秒 (取現行時間 ()) + 點擊數)
隨機數 = 取隨機數 (1, 取數組成員數 (姓名數組))
' 將內容列印到編輯框中
編輯框1.內容 = 姓名數組 [隨機數]
' 增加隨機種子的隨機性
點擊數 = 點擊數 + 1
補充
問:可以啊,但是為什麼隨機抽取的名字後面都加數字?
答:我是給你舉個例子所以加入了後面帶數字的名字
其實實際中 這些名字一般是由操作者加入的 ,不是程序設計時添加的。
❻ 跪求C++產生1-100隨機數的源代碼
#include <iostream>
#include <ctime>
#include <cstdlib>
using namespace std;
void main()
{
srand((unsigned)time(0));//函數是隨機數發生器的初始化函數,以系統時間作為種子
int ran_num;
int t=0;
int strNum[100];
for(int i=0;i<100;i++)
{
ran_num=rand()%100; //產生100以內的隨機數
strNum[t]=ran_num;
cout<<ran_num<<" "; //ran_num這個隨機數是根據系統時間產生的
t++;
if (t%10==0)
{
cout<<endl;
}
}
for(int i=0;i<100;i++)
{
cout<<strNum[i]<<" ";
}
system("pause");
}
//運行一下啊,保證沒有問題!
❼ 急 求c語言隨機抽取姓名源碼
#include<stdio.h>
#include<stdlib.h>
#include<time.h>
struct
{
charstr[20];//名字
intno;//號碼
}a[99]={{"",0}};//初始化
intmain()
{
FILE*fp;
charch;
inti,n=0,choice,who;
fp=fopen("name.txt","r");
if(fp==NULL)
{
printf("cannotopenthefile ");
return1;
}
while((ch=fgetc(fp))!=EOF)
{
if(ch==' ')n++;//一行一個名字,計算人數
}
rewind(fp);
for(i=0;i<n;i++)
{
a[i].no=i;//每人對應的號碼
fscanf(fp,"%s ",a[i].str);
}
srand(time(NULL));
for(i=1;i<n;i++)
{
printf("============= 1.抽取0.退出 ============= ");
scanf("%d",&choice);
if(choice==1)
{
loop:
who=rand()%n+1;
if(a[who].no==0)gotoloop;
puts(a[who].str);
a[who].no=0;//抽取過的標志為0
}
elsebreak;
}
fclose(fp);
return0;
}
❽ 求一個按鍵精靈隨機數字的源代碼
Dim MyValue, Response
Randomize '初始化隨機數生成器。
Do Until Response = vbNo
MyValue = Int((999999 * Rnd) + 1) ' 產生 1 到 999999 之間的隨機數。
MsgBox "隨機數:"&MyValue
Loop