1樓：千日紅網路
function my_weekday(str)if getstring(str)="nothing"thenstr=now()
end if
temp_day=weekday(str)select case temp_day
case 1
my_weekday = "星期日"
case 2
my_weekday = "星期一"
case 3
my_weekday = "星期二"
case 4
my_weekday = "星期三"
case 5
my_weekday = "星期四"
case 6
my_weekday = "星期五"
case 7
my_weekday = "星期六"
end select
end function
vb 中的select case語句怎麼用？
2樓：匿名使用者
select case a
意思就是判斷a是什麼內容。然後根據不同內容執行不同的**。
如：select case a
case "李" '注：當a="李"時，執行下面這句：
msgbox "他是姓李的"
case "543" '注：當a="543"時，執行下面這句：
msgbox "哈哈，a的內容是543"
case else 'a為其它內容時，執行下面這句:
msgbox "a是什麼東東哦～"
end select '結束判斷
3樓：蒼好星駿
select
case
icase
i的值執行語句
case
i的值執行語句
case
i的值執行語句
case
i的值執行語句
......
endcase
vb問題！請教大蝦一下
看了下,好像這樣才是樓主的意思 共需一個text控制元件和一個button控制元件 dim i as integer dim findstr as long 全域性變數 findstr為查詢到的位置 i為字串長度 private sub form load text1.text 比如查詢你好再點選按...
幫忙做一下VB題，救急，多謝了
1 有如下程式 for j 10 to 6 step 1k j next j print k j end執行時輸出的結果是c 6 5 2 有如下程式 a 12345 b abcde for j 1 to 5 c c left a 1 right b 1 next j print c end執行時輸出...
哪位高手指點我一下VB語句啊
文字框的內容轉化要加個val函式，dim a b c a val textbox1 b val textbox2 c val textbox3 textbox4 a b c 注意b不能為0，如果有要求可以這樣寫 dim a b c a val textbox1 b val textbox2 c va...