<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 編程開發 > vb >
      • vb教程之用VB編寫接近實際的抽獎程序

      • 2017-09-21 22:35 來源:未知
        近來彩票風行全國,普通人將他作為改變生活的希望,國家將他作為創收的一個項目。筆者設計了一個頗有味道的彩票程序,希望能幫助您重獎,如果您中獎請通知我,呵呵。 

        '本程序以"江蘇風采福利彩票"(36選7)為例 

        '由于福利彩票是從36個球中選出7個球,有一些資料上介紹是用隨機函數產生一個數,為了避產生重復的數故而進行比較,重復時舍棄重選。或者做7個變量使它們不同。 

        '本程序特點接近實際,ListBox作為數據容器,每產生一個數將其移去(RemoveItem方法)。產的數放在數組中,最后再排序。 

        '在窗體中放置兩個命令按鈕(CmdRnd,CmdExit);包含5個元素的控件數(text1(0)~text1(4));一個組合框控件List1,將其Visible屬性設置為False。 

        '注:可以用ComboBox控件代替ListBox控件,只要將程序中的ListBox控件(list1)改 
      為ComboBox控件(combo1)即可。 

        '聲明 

        Private Const AllData = 36 '總數為36 

        Private Const Choose = 7 '要選出的數為7個 

        Dim Num(Choose - 1) As Byte '數組用來存放選出的數 

        Private Sub CmdRnd_Click() '產生隨機數 

        Dim i, j, RndData 

        For j = 0 To 4 '產生5組數據 

         For i = 1 To AllData 

          List1.AddItem i 

         Next i 

         For i = 0 To Choose - 1 

          Randomize '初始化隨機數的種子數 

          RndData = Int(((AllData - i) * Rnd) + 1) 

          Num(i) = List1.List(RndData - 1) 

          List1.RemoveItem (RndData - 1) 

         Next i 

         PopSort '調用冒泡排序 

         Text1(j) = " " 

         For i = 0 To Choose - 1 

          If Num(i) < 10 Then 

           Text1(j) = Text1(j) & "0" & Num(i) & " " '小于10的數在前面補“0” 

          Else 

           Text1(j) = Text1(j) & Num(i) & " " 

          End If 

         Next i 

         List1.Clear '清除總數容器 

        Next j 

        End Sub 

        Sub PopSort() '冒泡排序 

          Dim i, j, Temp As Byte 

          For i = Choose - 1 To 1 Step -1 

           For j = Choose - 1 To 1 Step -1 

            If i >= Choose - 1 - j Then 

             If Num(j) < Num(j - 1) Then 

               Temp = Num(j - 1) 

               Num(j - 1) = Num(j) 

               Num(j) = Temp 

             End If 

            End If 

           Next j 

          Next i 

         End Sub 

        Private Sub CmdExit_Click() '退出程序 

         Unload Me 

        End 

       End Sub
      相關教程
      江苏快3 巢湖 | 湛江 | 吉林长春 | 嘉峪关 | 襄阳 | 梧州 | 吕梁 | 海宁 | 盘锦 | 招远 | 阳江 | 德清 | 阿里 | 汉中 | 吐鲁番 | 东营 | 廊坊 | 五指山 | 海拉尔 | 包头 | 海宁 | 禹州 | 黑龙江哈尔滨 | 邳州 | 榆林 | 常德 | 朝阳 | 海东 | 南通 | 崇左 | 石嘴山 | 宿州 | 滕州 | 嘉兴 | 庆阳 | 喀什 | 秦皇岛 | 忻州 | 大理 | 濮阳 | 昭通 | 三亚 | 阿拉尔 | 天门 | 武安 | 日喀则 | 梧州 | 吉林长春 | 邹城 | 怒江 | 嘉善 | 日喀则 | 海南 | 慈溪 | 宜春 | 白沙 | 天水 | 临汾 | 禹州 | 宣城 | 黄冈 | 宿州 | 乐清 | 偃师 | 百色 | 厦门 | 定州 | 陇南 | 伊犁 | 毕节 | 蚌埠 | 唐山 | 灵宝 | 阳春 | 莒县 | 凉山 | 遂宁 | 澳门澳门 | 赣州 | 五指山 | 东海 | 仙桃 | 湘西 | 巴音郭楞 | 陕西西安 | 沧州 | 昌吉 | 鹰潭 | 雅安 | 诸暨 | 兴安盟 | 荣成 | 咸阳 | 大连 | 五指山 | 云浮 | 双鸭山 | 钦州 | 湘潭 | 吉林长春 | 天水 | 铁岭 | 图木舒克 | 邢台 | 南京 | 来宾 | 曲靖 | 潮州 | 黔东南 | 湖州 | 安康 | 瑞安 | 汕尾 |