7781.html

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

HTML
51 行
字号 
<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:honey0@tcts1.seed.net.tw">Honey</a> on November 28, 1998 at 23:56:11:<p>
In Reply to: <a href="7777.html">!!!!!!这.....!!!!!!</a> posted by 北极熊 on November 28, 1998 at 21:42:25:<p>
我提供你一段程式给你参考,<br>第一种对于相近字串变化比较大<br>试试看吧,& 有什么问题在提出来吧<br>很抱歉之前回答的过于草率,别介意喔<p>在Form上放一个text1,label1,label2,command1<br>在text1输入字串<p>Private Sub Command1_Click()<br>Dim LngI As Long, LngK As Long<br>Dim LngT As Long<p>Label1.Caption = ""<br>Label2.Caption = ""<br>Text1.Text = "017" & Text1.Text<br>LngK = Len(Text1.Text)<br>For LngI = 1 To LngK<br>LngT = Asc(Mid(Text1.Text, LngI, 1))<br>LngT = 123 * LngT ^ 2 + 13 * LngT + 7<p>Label1.Caption = Chr(Fix((LngT * LngK / _<br>LngI)Mod _<br>128)) & _<br>Label1.Caption<p>Label2.Caption = LngT Mod 131 & _<br>Label2.Caption<p>Next<br>End Sub<p>若数字要化成字串可用Chr函数<br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 7781-->
<!--top: 7820--><li><a href="7820.html">Re: 插花一下，如何还原呢？</a> <b>小马</b> <i>13:35:26 11/30/98</i>
(<!--responses: 7820-->4)
<ul><!--insert: 7820-->
<!--top: 7884--><li><a href="7884.html">Re: 插花一下，如何还原呢？</a> <b>Honey</b> <i>17:03:17 12/01/98</i>
(<!--responses: 7884-->3)
<ul><!--insert: 7884-->
<!--top: 7891--><li><a href="7891.html">Re: 插花一下，如何还原呢？</a> <b>小马</b> <i>19:04:25 12/01/98</i>
(<!--responses: 7891-->2)
<ul><!--insert: 7891-->
<!--top: 7893--><li><a href="7893.html">你想学破解呀</a> <b>Honey</b> <i>21:41:17 12/01/98</i>
(<!--responses: 7893-->1)
<ul><!--insert: 7893-->
<!--top: 7917--><li><a href="7917.html">不想！！</a> <b>小马</b> <i>13:35:35 12/02/98</i>
(<!--responses: 7917-->0)
<ul><!--insert: 7917-->
</ul><!--end: 7917-->
</ul><!--end: 7893-->
</ul><!--end: 7891-->
</ul><!--end: 7884-->
</ul><!--end: 7820-->
<!--top: 7787--><li><a href="7787.html">怎么会介意？谢谢都来不及呢！</a> <b>北极熊</b> <i>12:04:27 11/29/98</i>
(<!--responses: 7787-->1)
<ul><!--insert: 7787-->
<!--top: 7802--><li><a href="7802.html">还有一种方式</a> <b>Honey</b> <i>21:51:31 11/29/98</i>
(<!--responses: 7802-->0)
<ul><!--insert: 7802-->
</ul><!--end: 7802-->
</ul><!--end: 7787-->
</ul><!--end: 7781-->
<br><hr size=7 width=75%><p>

</body></html>

7781.html - 源码说明

本页面展示了「VB技巧问答10000例 VB技巧问答10000例」中的 7781.html 源码文件，采用 HTML 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与10000相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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