大樂透威力彩賓果賓果今彩539三星彩四星彩 最新開獎號碼! 樂透首頁 加入會員 會員登入 我的最愛 常見問題 公益團體  
 
[手機APP] 奧索樂透助手 [店家專用] Bingo TV播放系統 [店家專用] 綜合彩券TV播放系統  
 討論版列表 » 威力彩討論版 » [求助] (10-12) 威力彩的VB排列設定 回應本話題 發表新話題


共有 1 記錄 / 共計 1
 [求助] (10-12) 威力彩的VB排列設定
Adam7891
新制會員

送禮轉帳給該會員
性  別: 女
命中機率: 0%
註冊時間: 2017/10/09
總發文數: 1
總回應數: 0
手機號碼: 已驗證
 發表於 2017/10/09 22:48  
你好,小弟希望能看到所有威力彩的排列組合,以下是我嘗試修改的數值,希望能讓一格顯是6+1個號碼,但現在只能讓每一格顯示第一區1~38號,無法顯示第二區1~8號,請教該如何修改,才能讓每一格顯示"1,2,3,4,5,6,8"、"21,22,23,24,25,26,1"這種排列組合呢,謝謝。

Private Sub CommandButton1_Click()
Dim a(38) As String, i As Integer

For i = 1 To 38
a(i) = i
Next
Test a, "", 1, 0, 1, 1
End Sub
Sub Test(a() As String, S As String, p As Integer, t As Integer, r As Long, c As Long)
Dim i As Integer

If t = 6 Then
Cells(r, c) = Left(S, Len(S) - 1)
r = r + 1
If r > 983025 Then r = 1: c = c + 1
Exit Sub
End If
For i = p To UBound(a)
Test a, S & a(i) & ",", i + 1, t + 1, r, c
Next
End Sub









系統提示:回文是基本的美德以及對發文者的支持與鼓勵哦! 立即回文





共有 1 記錄 / 共計 1
 討論版列表 » 威力彩討論版 » [求助] (10-12) 威力彩的VB排列設定 回應本話題 發表新話題
 發 表 您 的 回 應
您尚未登入會員!
請先登入會員才能發表或回應話題哦!

立即登入


奧索網路平台LINE LineID:@auzo | 樂透首頁 | 隱私權政策 | 常見問題 | 公益團體 | 贊助商: Bimmer8.com |
本站數據資訊僅供參考,實際資料以 台灣彩券 公佈為準!(未滿18歲者,不得購買或兌領彩券!)
本站所引用的各項公益彩券商標或名稱,其版權分別屬於各註冊公司所有。
(LINE客服)服務時間:週一 ~ 週五 09:00-18:00 | (線上客服)服務時間:週一 ~ 週六 09:00-24:00
法律顧問: 承理法律事務所 | 專利事務: 寬宇國際智權顧問 | Powered By 奧索網路科技
奧索網路平台為HiNet資安艦隊成員