【新手入門】之一：If分支語句

roych · 發(fā)表于 2012-2-13 00:48:41

   看了ycxchen在篩選語句問題提及的問題，決定花些時間開始對所有新手進行掃盲，所以這一系列帖子會臨時置頂。后面盡可能每周完成一個帖子。
   同樣地，因為是掃盲，所以這些可能不值一哂的問題或者答案，高手們路過就好了，不過不介意大家出題接龍。
   好了，廢話少說，先拋出今天的題目(大家可以先在模塊里進行調試，并想想為什么）：
   1、2個y是一樣的嗎？如果不一樣，y都等于多少呢？
   代碼1：

Sub test()
Dim x, y
x = 2
If x > 0 Then y = 3 * x
y = 2 * x + 1
Debug.Print y
End Sub

復制代碼

代碼2：

Sub test()
Dim x, y
x = 2
y = 2 * x + 1
If x > 0 Then y = 3 * x
Debug.Print y
End Sub

復制代碼

2、立即窗體里打印出來的x和y哪個大？

Sub test()
Dim x, y, t
x = 7
y = 2
If x > y Then t = x: x = y: y = t
Debug.Print x, y
End Sub

復制代碼

游客，如果您要查看本帖隱藏內(nèi)容請回復

JosephTan · 發(fā)表于 2012-2-13 06:46:17

怎么都沒有end if這樣編譯應該不能成功.

efcndi · 發(fā)表于 2012-2-13 08:24:03

看看

roych · 發(fā)表于 2012-2-13 10:11:49

JosephTan 發(fā)表于 2012-2-13 06:46
怎么都沒有end if這樣編譯應該不能成功.

單句是不用End If的。

yanwei82123300 · 發(fā)表于 2012-2-13 11:37:37

謝謝幫助！進階

yanwei82123300 · 發(fā)表于 2012-2-13 11:43:30

roych 老師您寫的代碼，我在哪里能夠測試呢？謝謝

roych · 發(fā)表于 2012-2-13 13:38:34

本帖最后由 roych 于 2012-2-13 13:40 編輯

yanwei82123300 發(fā)表于 2012-2-13 11:43
roych 老師您寫的代碼，我在哪里能夠測試呢？謝謝

新建模塊，復制粘貼后即可測試（別忘了打開立即窗口）。

yanwei82123300 · 發(fā)表于 2012-2-13 14:09:34

roych老師請問我打開立即窗體后再按哪一個鍵去執(zhí)行呢?謝謝

yanwei82123300 · 發(fā)表于 2012-2-13 14:12:19

本帖最后由 yanwei82123300 于 2012-2-13 14:13 編輯

看看圖片

roych · 發(fā)表于 2012-2-13 15:15:53

yanwei82123300 發(fā)表于 2012-2-13 14:12
看看圖片

執(zhí)行前先按下Ctrl+G以顯示立即窗口。

帳號		自動登錄	找回密碼
密碼			注冊

群介紹
Access培訓群 (792054000)
Access免費培訓群2 (792054000)
Access經(jīng)典源碼培訓群 (77130759)
Access源碼技巧群 (138920637)
access vba (307776555)

主題相關群

地區(qū)相關群[您還沒設置居住地]

[模塊/函數(shù)] 【新手入門】之一：If分支語句

評分

本帖被以下淘專輯推薦:

點評

本帖子中包含更多資源

本帖子中包含更多資源

群介紹
主題無相 (隨機顯示版	同地區(qū)群塊其他地區(qū))