5817.html

来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 23 行

HTML
23
字号
<html>
  <head>
    <title>Re: 随机取得物件</title>
  </head>
  <body bgcolor="#FFFFFF" vlink="#808080">
    <center>
      <h1>Re: 随机取得物件</h1>
    </center>
<hr size=7 width=75%>

<hr size=7 width=75%><p>
Posted by <a href="mailto:harlem73@ms26.hinet.net">哈林</a> on September 20, 1998 at 16:25:23:<p>
In Reply to: <a href="5816.html">随机取得物件</a> posted by 北极熊 on September 20, 1998 at 15:19:56:<p>
Dim Vrnd AS LONG<br>Dim GetString AS STRING<p>Private Sub Command1_Click()<br>  Randomize<br>  Vrnd = (Int(10) * Rnd)<br>  GetString = Text1(Vrnd).Text<br>End Sub<p>你要的字串就在GetString里~<p>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 5817-->
</ul><!--end: 5817-->
<br><hr size=7 width=75%><p>

</body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?