廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 4048 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
angel2005 手機
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x22
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
文章表情[Basic][範例] 樂透遊戲
這是本人設計的程式~有興趣可以下載看看~1~49碼的...本人最高中過4碼


此程式下載點
解壓縮密碼:痞子版權著作請勿非正常管道取得

Dim a(6), b(6)

Private Sub Command1_Click()
t = 1
For i = 1 To 6
Text1(i) = " "
Text2(i) = " "
Text1(i).BackColor = RGB(255, 255, 255)
Text2(i).BackColor = RGB(255, 255, 255)
Next i
For i = 1 To 6
333:
a(i) = Val(InputBox("請輸入1~49數字:"))
If t > 1 Then
For j = 1 To t
If a(i) = Text1(j) Then
MsgBox " 警告!" + Chr(13) +"你輸入數字有重複,請重新輸入!", 16,"警告"
Text1(i) = " "
GoTo 333:
End If
Next j
End If
If a(i) < 1 Or a(i) > 49 Then
MsgBox " 警告!" + Chr(13) + "你輸入數字 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



[ 此文章被angel2005在2005-05-22 23:14重新編輯 ]




愛=背叛+痛苦+心死+孤獨
獻花 x0 回到頂端 [樓 主] From:台灣中華電信 | Posted:2005-04-17 20:25 |
JasperRic
個人頭像
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x4 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

angel2005大大您好
小弟可以請教您Randomize亂數出現重複的數字如何解決?
可以教小弟寫法嗎?先謝謝你囉~~~


獻花 x0 回到頂端 [1 樓] From:台灣和信超媒體 | Posted:2005-05-31 04:45 |
JasperRic
個人頭像
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x4 鮮花 x0
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

angel2005大大不用了我找到相關資料了..... 表情


獻花 x0 回到頂端 [2 樓] From:台灣和信超媒體 | Posted:2005-05-31 14:02 |
ericbin
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x12 鮮花 x452
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

值得下載下來研究。
謝謝大大您~~~無私的分享~~~
辛苦了!!!


獻花 x0 回到頂端 [3 樓] From:台灣中華電信 | Posted:2006-07-21 18:35 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.055907 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言