📄 qqexpabs.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、VBScript。<br>
●用法：传回值 = Abs(数值)
<hr>
○VB与VBA：
<dl>
Private Sub Command1_Click()
<dd>Dim HerVal As Integer
<dd>HerVal = 345
<dd>MyVal = Abs(HerVal)
</dl>
End Sub<br>
●MyVal的值为345。
<p>
<dl>
Private Sub Command1_Click()
<dd>Text1.Text = "5679"
<dd>MyVal = Abs(Val(Text1.Text))
</dl>
End Sub<br>
●MyVal的值为5679
<p>
<dl>
Private Sub Command1_Click()
<dd>MyVal = Abs(12345)
<dd>Debug.Print Abs(-12345)
</dl>
End Sub<br>
●于Debug对话框内打出12345<font color="#000000"></font>
<hr>
○vbScript：
<dl>
<script language="vbscript">
<dd>Dim MyVal
<dd>MyVal = InputBox("请输入数值")
<dd>document.write Abs(MyVal)
</dl>
</script>
<p>
<hr>
<center><a href="exp.html" tppabs="exp.html">[回主页]</a></center><br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -