📄 qqexperase.html

📁 包含大量VB常用函数大概一百几十个左右每个函数都有比较详细的说明希望大家喜欢它啦

💻 HTML

字号:

<html>

<head>
<title>千千VB站 函数方法</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body background="picbkgd.gif" tppabs="picbkgd.gif">

<marquee><b><blink>重新初始化数组</blink></b></marquee>
<hr>
●适用于VB、VBA。<br>
●用法：Erase 数组<br>
<hr>
○VB、VBA：<br>
<dl>
  Private Sub Command1_Click()
  <dd>Dim A(100000) As Long
  <dd>Dim DyA() As Long
  <dd>Dim StrA(1000) As Long
  <dd>
    <dl>
      For N = 0 To 100000
      <dd>A(N) = N
        <p>　
    </dl>
    Next
  <dd>Erasr A 'A的每一个元素都被清除，都等于0
    <p>　
  <dd>ReDim DyA(10000)
  <dd>Erase DyA '整个DyA所占用的记忆体空间都被释放
    <p>　
  <dd>
    <dl>
      For N = 0 To 1000
      <dd>StrA(N) = &quot;这是一个元素里的字串&quot;
    </dl>
    Next
  <dd>Erase StrA 'StrA每个元素都被清除成 &quot;&quot; (空字串)
</dl>
End Sub<br>
<p>　
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>

</body>

</html>

 
</SCRIPT>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -