请先登录 | 注册
IPSC1978.GICP.NET
022 - select case 条件用法 - 文章首页→返回版区
■标题:022 - select case 条件用法
■作者:IPSC [2025/3/26 15:48:59]




[vb]




Dim Tm As Long

Tm=DateTime.GetHour (DateTime.now)

Select True

Case (Tm<=11)

MP.Load(File.DirAssets,"morning.wav")

Case (Tm>=12 And Tm<=18)

MP.Load (File.DirAssets,"afternoon.wav")

Case Else

MP.Load (File.DirAssets, "evening.wav")

End Select

MP.Play






[/vb]



【回复/版区/上篇/下篇/发贴/仅文字/HTML】
【倒序/最近21条回复】(暂无)
(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
82 毫秒 .