📄 12429.html

📁 以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.

💻 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 + -