qqexp038.html

来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 101 行

HTML
101
字号
<html>

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

<body>

<marquee><blink><b>变数转换组</b></blink></marquee>
<hr>
<a name="ccur">●CCur。<br>
数值转货币。 EX:
<dl>
  Private Sub Command1_Click()
  <dd>MyVal = CCur(3123.45)
  <dd>Print MyVal
</dl>
Next End Sub
<p> 
<p></a><a name="cint"></a>&nbsp;&nbsp;&nbsp; ●CInt。<br>
小数转整数,采四舍五入的方式计算。<br>
Ex:<br>
MyVal = CInt(HerVal)<br>
MyVal = CInt(Val(Text1.text))<br>
MyVal = CInt(123.45)<br>
MyVal = CInt(-12345)<br>
Debug.Print CInt(-123.45)<br>
CInt(12345) 传回 12345<br>
CInt(12345.4) 传回 12345<br>
CInt(12345.5) 传回 12346<br>
CInt(-12345.4) 传回 -12345<br>
Cint(-12345.5) 传回 -12346
<p><a name="clng"></a>●CLng。<br>
小数转长整数,采四舍五入的方式计算。<br>
Ex:<br>
MyVal = CLng(HerVal)<br>
MyVal = CLng(Val(Text1.text))<br>
MyVal = CLng(123.45)<br>
MyVal = CLng(-12345)<br>
Debug.Print CLng(-123.45)<br>
CLng(12345) 传回 12345<br>
CLng(12345.4) 传回 12345<br>
CLng(12345.5) 传回 12346<br>
CLng(-12345.4) 传回 -12345<br>
CLng(-12345.5) 传回 -12346
<p><a name="cbyte">●CByte。<br>
数值转位元组。 EX:
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyVal As Byte
  <dd>MyVal = CByte(127)
  <dd>Print MyVal
</dl>
Next End Sub
<p></a><a name="cbool">●CBool。<br>
数值转布尔数。 EX:
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyVal As Boolean
  <dd>MyVal = CBool(-1)
  <dd>Print MyVal
</dl>
Next End Sub
<p></a><a name="csng">●CSng。<br>
数值转单精度浮点数(含小数点的数)。 EX:
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyVal As Single
  <dd>MyVal = CSng(3.14159)
  <dd>Print MyVal
</dl>
Next End Sub
<p></a><a name="cdbl">●CDbl。<br>
数值转双精度浮点数(含小数点的数)。 EX:
<dl>
  Private Sub Command1_Click()
  <dd>Dim MyVal As Double
  <dd>MyVal = CDbl(299792.458)
  <dd>Print MyVal
</dl>
Next End Sub
<p></a><a name="cvar">●CVar。<br>
数值转可变变量。 EX:
<dl>
  Private Sub Command1_Click()
  <dd>MyVal = CVar(299792.458)
  <dd>Print MyVal
</dl>
Next End Sub
<p></a>

</body>

</html>
 

</SCRIPT>     
 

⌨️ 快捷键说明

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