【新手入门】之一：If分支语句

roych · 发表于 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

复制代码

游客，如果您要查看本帖隐藏内容请回复

JosephTan · 发表于 2012-2-13 06:46:17

怎么都没有end if这样编译应该不能成功.

efcndi · 发表于 2012-2-13 08:24:03

看看

roych · 发表于 2012-2-13 10:11:49

JosephTan 发表于 2012-2-13 06:46
怎么都没有end if这样编译应该不能成功.

单句是不用End If的。

yanwei82123300 · 发表于 2012-2-13 11:37:37

谢谢帮助！进阶

yanwei82123300 · 发表于 2012-2-13 11:43:30

roych 老师您写的代码，我在哪里能够测试呢？谢谢

roych · 发表于 2012-2-13 13:38:34

本帖最后由 roych 于 2012-2-13 13:40 编辑

yanwei82123300 发表于 2012-2-13 11:43
roych 老师您写的代码，我在哪里能够测试呢？谢谢

新建模块，复制粘贴后即可测试（别忘了打开立即窗口）。

yanwei82123300 · 发表于 2012-2-13 14:09:34

roych老师请问我打开立即窗体后再按哪一个键去执行呢?谢谢

yanwei82123300 · 发表于 2012-2-13 14:12:19

本帖最后由 yanwei82123300 于 2012-2-13 14:13 编辑

看看图片

roych · 发表于 2012-2-13 15:15:53

yanwei82123300 发表于 2012-2-13 14:12
看看图片

执行前先按下Ctrl+G以显示立即窗口。

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 【新手入门】之一：If分支语句

评分

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)