我做了个选号程序，需要源代码可以HI我。#p#1，代码中有错误 for x=j+1 to 31 》》》》for x=k+1 to 31----------
我做了个选号程序，需要源代码可以HI我。#p#1，代码中有错误 for x=j+1 to 31 》》》》for x=k+1 to 31----------
3条回答
2023-07-26 12:47 .采纳回答
写代码求哈（原问题中for x=j+1 to 31要改成for x=k+1 to 31）：
Private Sub Command3_Click() Dim n As Long, m As Long Dim i%, j%, k%, x%, y%, z% Dim a%, b%, c%, d%, e%, f%
a = 3: b = 8: c = 12: d = 15: e = 19: f = 26 For i = 1 To 28 For j = i + 1 To 29 For k = j + 1 To 30 For x = k + 1 To 31 For y = x + 1 To 32 For z = y + 1 To 33 n = n + 1 If i = a And j = b And k = c And x = d And y = e And z = f Then m = n Next Next Next Next Next Next Print n, m End Sub
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://hwaiwenda.com/data/attach/logo/logo.png', '推荐 的问题《双色球彩票用变量表示的算法或公式？》','https://hwaiwenda.com/answer/30075/65519.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
写代码求哈（原问题中for x=j+1 to 31要改成for x=k+1 to 31）：
Private Sub Command3_Click()
Dim n As Long, m As Long
Dim i%, j%, k%, x%, y%, z%
Dim a%, b%, c%, d%, e%, f%
a = 3: b = 8: c = 12: d = 15: e = 19: f = 26
For i = 1 To 28
For j = i + 1 To 29
For k = j + 1 To 30
For x = k + 1 To 31
For y = x + 1 To 32
For z = y + 1 To 33
n = n + 1
If i = a And j = b And k = c And x = d And y = e And z = f Then m = n
Next
Next
Next
Next
Next
Next
Print n, m
End Sub
一周热门 更多>