1樓：匿名使用者
根據表示式的值有條件地執行一組語句。
語法：if condition then [statements][else elsestatements]
或者，可以使用塊形式的語法：
if condition then
[statements]
[elseif condition-n then
[elseifstatements] ...
[else
[elsestatements]]
end if
if...then...else 語句的語法具有以下幾個部分：
部分描述：
condition 必要引數。一個或多個具有下面兩種型別的表示式：
數值表示式或字串表示式，其運算結果為 true 或 false。如果 condition 為 null，則 condition 會視為 false。
typeof objectname is objecttype 形式的表示式。其中的 objectname 是任何物件的引用，而 objecttype 則是任何有效的物件型別。如果 objectname 是 objecttype 所指定的一種物件型別，則表示式為 true，否則為false。
statements 在塊形式中是可選引數；但是在單行形式中，且沒有 else 子句時，則為必要引數。一條或多條以冒號分開的語句，它們在 condition 為 true 時執行。
condition-n 可選引數。與 condition 同。
elseifstatements 可選引數。一條或多條語句，它們在相關的 condition-n 為 true 時執行。
elsestatements 可選引數。一條或多條語句，它們在前面的 condition 或 condition-n 都不為 true 時執行。
2樓：匿名使用者
sub macro1()
' macro1 macro
' keyboard shortcut: ctrl+shift+wif range("b1").value = range("c1") then range("a1").
value = "right" else range("a1").value = "wrong"
end sub
錄製一個巨集，然後把
if range("b1").value = range("c1") then range("a1").value = "right" else range("a1").
value = "wrong"
拷到內容裡就可以了
快捷鍵ctrl+shift+w執行
3樓：匿名使用者
'函式不能用sub，要用function
public function 判斷對錯() '最好不用中文if b1 = c1 then
判斷對錯 = "right"
else
判斷對錯 = "wrong"
end if
end function
'呼叫時用
'a=判斷對錯(數字1,數字2)
'如果是正確，a=right不然是wrong，能追加點分？
4樓：匿名使用者
if b1 = c1 then
a1 = "right"
else
a1 = "wrong"
end if
else後不要分號。
5樓：大笨熊
dim b1 as string
dim c1 as string
dim a1 as string
b1 = "dfasdf"
c1 = "dsdf"
if b1 = c1 then
a1 = "right"
else
a1 = "wrong"
end if
vb中的if語句
6樓：荀曾顏念雁
檢測事件是在文字框中的change事件中判斷，也就是說只要文字框有改變就檢測！
如果把其中的
and改寫成
or就可以判斷其中一個文字是否為空！
private
subtext1_change()
'判斷文字框最快的速度還是判斷它的長度是否為0iflen(text1.text)=0
andlen(text2.text)=0
then
image5.visible
=false
else
image5.visible
=true
endif
endsub
private
subtext2_change()
iflen(text1.text)=0
andlen(text2.text)=0
then
image5.visible
=false
else
image5.visible
=true
endif
endsub
完美財經網
7樓：檢霽杜鵾
if《條件》then
《語句》
《語句》
...end
if與c語言不同,(vb)的條件語句更符合英語的語法,如果then後面所跟的語句只有一條,可以寫成:
if《條件》
then
不用end
if有時還用到:
if《條件》then
《語句》
else
《語句》
endif
還可以在else裡再巢狀if語句,如
if《條件》
then
《語句》
else
if《語句》
else
《語句》
endif
8樓：樂觀的召喚師
每一層要用end if來結束本層判斷。
9樓：取名字嚴重難
private sub text1_keypress(keyascii as integer)
select case len(text1.text)case 0
if keyascii < 49 or keyascii > 57 then keyascii = 0
case 1
if keyascii < 48 or keyascii > 57 then
if keyascii <> 8 thenkeyascii = 0
end if
end if
case else
if keyascii = 8 then
else
keyascii = 0
end if
end select
end sub
我這個測試了效果很好 在顯示前做判斷
10樓：錯覺
dim a
a=int(a)
a=inputbox("輸入數值")
if a <100
moveto 文字的座標
else
moveto 非文字的座標
endif
11樓：
input "n"
if n＜100
list n
else
wait
12樓：匿名使用者
private sub text1_lostfocus()
if text1.text = "" or isnumeric(text1.text) = false or val(text1.
text) >= 100 then text1.setfocus
end sub
關於vb裡的len函式是什麼，關於vb中的len函式
len在vb裡就是測量一個字串中含有字元的數量。例如len abc1234 的值是7，len 他今年14歲 的值是6。len x 返回字串變數x的長度，即x含有字元的個數 如果x 1234 則len x 4,len x 2 2 注意，x必須為字串變數 或字串常量 第一個答案是2,是因為n 是inte...
關於團結的總結語句關於團結的語句
52張天真的笑臉，52顆靈動的心，組成了七年級十四班這個大家庭。在這個溫馨可愛的集體裡，我們沐浴愛的春風，我們遨遊知識的海洋，我們體驗成功的喜悅，我們編織美麗的夢想 我們在老師引導下，將努力學會學習，學會自主，學會關愛，學會珍惜 在人生新的起跑線上，將會留下我們堅實的腳印。在生機勃勃的春天裡，將錄下...
關於描寫人物的語句，關於描寫人物的語句
手忙腳亂 小心翼翼 眉開眼笑 談笑封侯 啼笑皆非 謔浪笑敖 喜眉笑眼 笑面夜叉 喜笑顏開 語言描寫 語言描寫包括人物的獨白和對話。獨白是反映人物心理活動的重要手段。對話可以是兩個人的對話，也可以是幾個人的相互交談。描寫人物的語言，不但要求作到個性化，而且還要體現出人物說話的藝術性。語言描寫是塑造人物...