qqexp044.html
来自「包含大量VB常用函数 大概一百几十个左右 每个函数都有比较详细的说明 希望大家喜」· HTML 代码 · 共 46 行
HTML
46 行
<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>
●Choose。<br>
<dl>
Private Sub Cmd1_Clcik()
<dd>
<dl>
For I = 1 To 7
<dd>Print Choose(I, "Sunday", "Monday",
"Tuesday", "Wednesdya", "Thursday",
"Friday", "Saturdau")
</dl>
Next
</dl>
End Sub<br>
●结果会依序打出Sunday ..... Saturday。
<p>●一般来说,这个函数要写在Function里才有价值。
<p>
<dl>
Function WhatDay(Indx As Integer) As String
<dd>WhatDay = Choose(Indx, "Sunday", "Monday",
"Tuesday", "Wednesdya", "Thursday",
"Friday", "Saturdau")
</dl>
End Function<br>
<dl>
Private Sub Cmd1_Clcik()
<dd>Print WhatDay(1)
</dl>
End Sub<br>
<p>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?