📄 qqexp044.html
字号:
<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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -