（十一）Select....Case条件控制语句

最新推荐文章于 2024-08-04 19:39:35 发布

FixedStarHaHa

最新推荐文章于 2024-08-04 19:39:35 发布

阅读量264

点赞数

分类专栏： QTP

本文链接：https://blog.csdn.net/jiangshangchunjiezi/article/details/80633619

版权

QTP 专栏收录该内容

34 篇文章 0 订阅

订阅专栏

这里写图片描述

Option Explicit
Dim vday
vday =Weekday(Date)
Select Case vday
Case 1
    Msgbox "今天是周日"
Case 2
    Msgbox "今天是周一"
Case 3
    Msgbox "今天是周二"
Case 4
    Msgbox "今天是周三"
Case 5
    Msgbox "今天是周四"
Case 6
    Msgbox "今天是周五"
Case Else  
    Msgbox "今天是周六"

End Select