📄 12429.html
字号:
<html>
<head>
<title>气死我了，快拉兄弟一把！</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>气死我了，快拉兄弟一把！</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:emwang@hotmail.com">八戒</a> on April 28, 1999 at 01:33:41:<p>
八戒刚出家，第一次来，给各位问好！<p>八戒想发□，用VB做个六合彩的?测器。用个Label array分别□示7个从1 - 49的数。但数字不能□复(repeat)，即每个数只能用一次。<p>写了段code, 不知为何，数字不□复没能实现。哪位大师给看看是什么毛病？<p>The code is as following:<p>Private Sub Command1_Click()<br> Dim iLuckyNumber As Integer<br> Dim i As Integer<br> Dim j As Integer<br> <br> For i = 0 To 6<br> Label1(i) = "" 'clear all numbers to zero at beginning"<br> Next i<p> <br> For i = 0 To 6 'allocate numbers to 7 labels<br> <br> Do While iLuckyNumber < 1 Or iLuckyNumber > 49 'number must be between 1 and 49<br> iLuckyNumber = Int(Rnd * 100)<br> Loop<br> <br> For j = 0 To i 'compare iLuckyNumber with numbers on previous labels<br> If iLuckyNumber = Val(Label1(j).Caption) Then 'if new number is the same as previous, reset i=i-1 to do it again<br> i = i - 1<br> End If<br> Next j<br> <br> Label1(i).Caption = iLuckyNumber<br> iLuckyNumber = 0<br> <br> Next i<br> Randomize<br> <br>End Sub<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 12429-->
<!--top: 12564--><li><a href="12564.html">Re: 气死我了，快拉兄弟一把！</a> <b>Knight</b> <i>10:05:31 5/03/99</i>
(<!--responses: 12564-->0)
<ul><!--insert: 12564-->
</ul><!--end: 12564-->
<!--top: 12443--><li><a href="12443.html">Re: 气死我了，快拉兄弟一把！</a> <b>纪文和</b> <i>14:10:42 4/28/99</i>
(<!--responses: 12443-->1)
<ul><!--insert: 12443-->
<!--top: 12452--><li><a href="12452.html">Re: 气死我了，快拉兄弟一把！</a> <b>八戒</b> <i>22:16:41 4/28/99</i>
(<!--responses: 12452-->0)
<ul><!--insert: 12452-->
</ul><!--end: 12452-->
</ul><!--end: 12443-->
</ul><!--end: 12429-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -