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
關於for next語句的問題，VB的for next語句問題
濤濤和俊俊 n 0for i 1 to 3 for j i to1 step 1 n n 1 next j,i print n i j 比如這個題目的i,j結束迴圈時是3，1 是在這個基礎上再 1既退出迴圈後是4，0,確實是要在迴圈過後加1,因為只有條件為假的時候，才退出迴圈 第二個問題回答 迴圈過...
關於SQL語句的批量update的寫法，求解
update 表明 set 列名 要改的值 where id in 陣列裡存的值 如果資料不是很多，估計只能使用for迴圈來實現插入。 update tablename set status 1 where id 1 or id 2 or id 3 or id 4 update tablename ...
MY SQL 語句寫法，SQL語句的寫法
select case when select ifnull 分組標記，from 表名 t2 where t2.編號 t1.編號 1 t1.分組標記 then else t1.分組標記 end as 標記，t1.編號，t1.名稱，t1.規格。from 表名 t1 order by t1.編號。wit...