qqexp015.html
来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 82 行
HTML
82 行
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>千千VB站 VB函数清单</title>
</head>
<body>
<marquee><b><blink>正负值</blink></b></marquee>
<hr>
<a name="abs"></a><br>
<font color="#000000"> ●Abs 计算绝对值</font><br>
<font color="#000000"></font>
<p><font color="#000000"> 用法：Abs(数值)</font><br>
<font color="#000000"></font> <font color="#000000"></font>
<p><font color="#000000"> 例：</font><br>
<font color="#000000"> Dim HerVal As Integer</font><br>
<font color="#000000"> HerVal = 345</font><br>
<font color="#000000"> MyVal = Abs(HerVal)</font><br>
<font color="#000000"> MyVal的值为345</font><font color="#000000"></font>
<p><font color="#000000"> Text1.Text =
"5679"</font><br>
<font color="#000000"> MyVal =
Abs(Val(Text1.Text))</font><br>
<font color="#000000"> MyVal的值为5679</font><font color="#000000"></font>
<p><font color="#000000"> MyVal = Abs(12345)</font><br>
<font color="#000000"> Debug.Print
Abs(-12345)</font><br>
<font color="#000000"> 於Debug对话框内打出12345</font><font color="#000000"></font>
<p>
<hr size="3" width="95%">
<br>
<a name="sgn"></a><br>
<font color="#000000"> ●Sgn 判段正负数</font><br>
<font color="#000000"> 用法：传回值 = Sgn(数值)</font><br>
<font color="#000000"></font> <font color="#000000"></font>
<p><font color="#000000"> 例：</font><br>
<font color="#000000"> Dim HerVal As Integer</font><br>
<font color="#000000"> HerVal = 798</font><br>
<font color="#000000"> MyVal = Sgn(HerVal)</font><br>
<font color="#000000"> MyVal的值为1</font><font color="#000000"></font>
<p><font color="#000000"> Text1.Text =
"-9"</font><br>
<font color="#000000"> MyVal =
Sgn(Val(Text1.Text))</font><br>
<font color="#000000"> MyVal的值为-1</font><font color="#000000"></font>
<p><font color="#000000"> MyVal = Sgn(12345)</font><br>
<font color="#000000"> MyVal的值为1</font><font color="#000000"></font>
<p><font color="#000000"> MyVal =
Sgn(-12345)</font><br>
<font color="#000000"> MyVal的值为-1</font><font color="#000000"></font>
<p><font color="#000000"> Debug.Print
Abs(-12345)</font><br>
<font color="#000000"> Debug对话框打出-1</font><br>
<font color="#000000"></font> <font color="#000000"></font>
<p><font color="#000000"> Sgn传回值：</font><br>
<font color="#000000"> -1 为负数</font><br>
<font color="#000000"> 0 为0</font><br>
<font color="#000000"> 1 为正数</font><br>
<font color="#000000"></font>
<p><font color="#000000"> ●运用：</font><br>
<font color="#000000"> Select Case Sgn(MyVal)</font><br>
<font color="#000000"> Case -1</font><br>
<font color="#000000">
MsgBox "MyVal是负数"</font><br>
<font color="#000000"> Case 0</font><br>
<font color="#000000">
MsgBox "MyVal是0"</font><br>
<font color="#000000"> Case 1</font><br>
<font color="#000000">
MsgBox "MyVal是正数"</font><br>
<font color="#000000"> End Select</font><br>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?