1樓：匿名使用者
1.dim salary as double ,tax as double
'給salary賦值，如：salary=val(text1.text)
select case salary
case is <3500
tax=0
case is <5000
tax=salary * 0.05
case is <6000
tax=salary * 0.1
case else
tax=salary * 0.15
end select
salary=salary -tax
'話說這麼扣稅不科學，真正應該是
差額扣稅的。如3500－5000這檔應該是：tax=(salary -3500 ) *.0.5
2.dim f as long
f=1for i=1 to n
f=f * i
next
print n;"!=";f
關於vba中select迴圈語句的問題，請高手幫我解答一下。
2樓：匿名使用者
首先，你的b設定為物件變數就是個錯誤
你看下這樣可以嗎？
private sub ***bobox2_change()dim a, c as integer
dim b as string
a = textbox5.value
b = ***bobox2.value
if b = "月" then
if a <= 6 then
c = 0.056
elseif a > 6 and a < 12 thenc = 0.06
end if
elseif b = "年" then
if a > 1 and a <= 3 thenc = 0.0615
elseif a > 3 and a <= 5 thenc = 0.064
elseif a > 5 then
c = 0.0655
end if
end if
listbox3.clear
listbox3.additem c
end sub
excel中vba程式設計case語句怎樣表示包含字元？
3樓：酒盡望天
select instr(case selection.cells(1).value,"圓形「)
case is <>0
4樓：匿名使用者
case like "*圓形*"
vb中如何使用select case語句
5樓：baby_原來
select case a
意思就是判斷a是什麼內容。然後根據不同內容執行不同的**。
如：select case a
case "李" '注：當a="李"時，執行下面這句：
msgbox "他是姓李的"
case "543" '注：當a="543"時，執行下面這句：
msgbox "哈哈，a的內容是543"
case else 'a為其它內容時，執行下面這句:
msgbox "a是什麼東東哦～"
end select '結束判斷
6樓：匿名使用者
給你個例子：
select case i
case is <50
print i
case 50 to 60
print i^2
case is >60
print "wrong!"
end select
7樓：匿名使用者
1. case is>50 ,is<60
2. select case 後面可以直接用1個變數，也可以用多個。
1個的情況
select case i
case is>50,is <60
case 1 to 20
case 12,15 ,16,18
多個的情況
select case str1 & ":\" & str2case "c:\windows" '這種情況下，str1="c",str2="windows"
case "d:\downloads" '這種情況下,str1="d",str2="downloads"
8樓：
語法select case testexpression[case expressionlist-n[statements-n]] . . .
[case else expressionlist-n[elsestatements-n]]
end select
部分 描述
testexpression 任意數值或字串表示式。
expressionlist-n 如 case 出現則必選。乙個或多個表示式的分界列表。
statements-n 當 testexpression 與 expressionlist-n 中的任意部分匹配時，執行的一條或多條語句。
elsestatements 當 testexpression 與 case 子句的任何部分不匹配時，執行的一條或多條語句。
9樓：匿名使用者
50 to 60 即可表示，另外，還可以用ls<=90,表示小於等於九十的數。
10樓：匿名使用者
select case i
case 50.1 to 59.9
vba中case語句可以同時選擇多個變數一起判斷嗎?
11樓：小柯師傅
如果是與的關係
巢狀判斷，優先順序高的放外層!
select case 變數1
case ***
select case 變數2
case ***
func
end select
end select
如果是或的關係
放else裡
select case 變數1
case ***
func
case else
select case 變數2
case ***
func
end select
end select
函式就可以
12樓：匿名使用者
新可以的, 我給你發下這個的具體用法你看下就明白了
本示例使用 select case 語句來判斷變數的值。示例中第二個 case
子句包含了變數值，故只有此區塊內的語句會被完成到。
dim number
number = 8 ' 設定變數初值。
select case number ' 判斷 number 的值。
case 1 to 5 ' number 的值在 1 到 5 之間，包含1 和 5 。
debug.print "between 1 and 5"
' 下乙個 case 子句是本示例中唯一判斷值為 true 的子句。
case 6, 7, 8 ' number 的值在 6 到 8 之間。
debug.print "between 6 and 8"
case 9 到 10 ' number 的值為 9 或 10。
debug.print "greater than 8"
case else ' 其他數值。
debug.print "not between 1 and 10"
end select
13樓：御炎佔曼安
select
case
ture
是什麼意思?
難道你寫了乙個
select
case
true
?永遠成立的意思?
vba中for next迴圈語句有哪些？
14樓：巴黎歐萊雅
for 迴圈變數＝初值 to 終值 step 步長。
for next迴圈語句指的迴圈是指重複地執行某項動作（語句塊）。
來看一下for—next 的句式：
for 迴圈變數＝初值 to 終值 step 步長迴圈體1
[exit for]
迴圈體2
next 迴圈變數
解釋：從開始到結束，反覆執行for和next之間的指令塊，除非遇到exit for語句，將提前跳出迴圈。其中，步長和exit for語句以及next後的迴圈變數均可省略，步長省略的時候預設為1。
exit for 語句是強制終止迴圈的語句，執行它後將退出迴圈，執行next後面的語句。
迴圈變數是乙個變數，可以在迴圈體中對其進行修改，但一般就避免在迴圈體中對其修改。
求excel用vba的if條件語句與for迴圈語句的基本語法，不要複製貼上，要最簡單說明下就行了
15樓：陽光上的橋
最簡單的來兩句，不明白請追問~~~
for的用法是這樣的：
for i=1 to n
......語句......
next i
這樣的功能是，使裡面的 語句 執行n次，每次i的值都不同，分別是1~n，用來完成固定次數的重複。
if的用法是這樣的：
if 條件 then
.......語句1.......
else
......語句2......
end if
這樣的功能是判斷條件是否滿足，如果滿足就執行 語句1，否則執行 語句2
以上例子中的語句、語句1、語句2都可以是乙個或者多個語句，往往是一段。
16樓：匿名使用者
if語句有兩種用法，語句式和塊式：
語句式：
if 條件 then 條件為真的執行結果 [else 條件為假時的執行結果]
'號中間的可以視情況省略
如：if range("a1")=1 then range("b1")=range("a1")+100 else range("b1")=range("a1")-50
意思就是：如果a1為1時，b1=a1+100，否則，b1=a1-50
語句式使用時，中間不能有回車符號，但可以使用 _（即：空格+_+回車），如上可以寫成：
if range("a1")=1 then range("b1")=range("a1")+100 _
else range("b1")=range("a1")-50
塊式：if 條件 then
條件為真時執行的語句(可以多行)
[else
條件為假時執行的語句（可以多行）]
end if
'用括起來的，如果沒有，可以省略，但塊式，必須if。。。。then 。。。。end if 匹配，否則，將出現語法錯誤。
塊式還有一種用法：
if 條件1 then
條件1為真時執行的語句
elseif 條件2 then
條件2為真時執行的語句
elseif 條件3 then
條件3為真時執行的語句
……else
上述條件均不具備時，執行的語句
end if
尤其要注意的是，採用塊式後一種，各條件之間必須是相同專案的比較，並且條件之間的邏輯必須閉合，否則就可能會出現計算錯誤。
if 還有一種函式方式的用法：
iif(條件,為真時返回的結果,為假時返回的結果)
'用法與工作表函式if()一樣。
for的語法：
for 自定義變數=初始值 to 終止值 [step 步長]
自定義變數每增加（或減少）乙個步長要執行的語句（可以多句）
[exit for]
next
如果初始值《終止值，且步長為1，則step 步長可以省略
步長可以是正數（初始值必須小於等於終止值），或者負數（起始值必須大於等於終止值)
eixt for 表示可以根據執行結果隨時退出迴圈。
for。。。。next必須配對使用，不能簡化
一般地，for ....next 和 if語句組合使用
access2019中iif語句的使用中的問題
把 8 其中的 有問bai題 改du 成 0.08 即可 即 iif 死亡zhi率 0.08,受精蛋數dao量內 進母 雞羽容數 進母雞羽數 0.92 2,2 受精蛋數量 進母雞羽數 淘汰母雞羽數 access vba中,if語句的疑問 我覺得條件 成立,就可以了,你的 用了兩次條件成立。if ms...
access程式設計中if語句中me等級value什麼意思
在access 中，me可以理解為代表窗體 或報表 自身，me.等級.value 就是本窗體 或報表 中，等級 乙個控制項的名稱，可能是文字框或下拉框等.的值。祝你成功！access 中if語句 怎樣用 if 條件 資料 then 當條件和資料相等輸出的類容 else 不相等輸出的類容 end if...
VBA程式設計中關於工作表自動迴圈執行的問題
解0人 簡單問題被你搞複雜了吧？sub 工作表 dim x,y,z z worksheets.count for x 1 to z if worksheets x name 某某 then 不是某某 時才執行下面，否則就不執行嘛 操作end if next end sub dim x y as wo...