Office中国论坛/Access中国论坛

标题: 【新手入门】之一：If分支语句 [打印本页]

作者: roych 时间: 2012-2-13 00:48
标题: 【新手入门】之一：If分支语句
   看了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
怎么都没有end if这样编译应该不能成功.

作者: efcndi 时间: 2012-2-13 08:24
看看

作者: roych 时间: 2012-2-13 10:11

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

单句是不用End If的。

作者: yanwei82123300 时间: 2012-2-13 11:37
谢谢帮助！进阶

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

作者: roych 时间: 2012-2-13 13:38
本帖最后由 roych 于 2012-2-13 13:40 编辑

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

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

[attach]48319[/attach]

作者: yanwei82123300 时间: 2012-2-13 14:09
roych老师请问我打开立即窗体后再按哪一个键去执行呢?谢谢

作者: yanwei82123300 时间: 2012-2-13 14:12
本帖最后由 yanwei82123300 于 2012-2-13 14:13 编辑

看看图片

作者: roych 时间: 2012-2-13 15:15

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

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

作者: yanwei82123300 时间: 2012-2-13 15:44
请问如何执行谢谢

作者: yanwei82123300 时间: 2012-2-13 15:50
是按F5键吗？谢谢

作者: 阳春面 时间: 2012-2-13 15:52
学习，老师辛苦

作者: ycxchen 时间: 2012-2-13 16:13
顶顶顶！

作者: roych 时间: 2012-2-13 17:18

yanwei82123300 发表于 2012-2-13 15:50
是按F5键吗？谢谢

嗯。其实如果不喜欢用Debug.Print，也可以用Msgbox来处理的。只是我更习惯于用Debug.Print而已，因为它特别是对SQL语句的检验会方便。

作者: Grant 时间: 2012-2-13 23:35
Debug.Print 我喜欢

作者: renyucai1963 时间: 2012-2-14 07:33
学习的。

作者: 82077802 时间: 2012-2-14 08:20
谢谢帮助！进阶

作者: yanghua1900363 时间: 2012-2-14 08:24
先扫盲了

作者: renyucai1963 时间: 2012-2-15 15:12
{:soso_e100:}报道学习。

作者: aioliadl 时间: 2012-2-16 12:08
学习学习

作者: renyucai1963 时间: 2012-2-17 09:01
{:soso_e100:}报到，学习。

作者: renyucai1963 时间: 2012-2-19 09:26
{:soso_e100:}报到，学习。

作者: renyucai1963 时间: 2012-2-20 10:19
{:soso_e100:}报到，学习.

作者: 阳城 时间: 2012-2-20 10:41
谢谢老师的无私！！

作者: 阳城 时间: 2012-2-20 10:44
roych 老师可以结合实例讲解一些代码？那样更形象点！！！谢谢

作者: roych 时间: 2012-2-20 14:57

阳城发表于 2012-2-20 10:44
roych 老师可以结合实例讲解一些代码？那样更形象点！！！谢谢

里面的代码就是实例啊。可以打开立即窗口来测试的。

作者: wang1950317 时间: 2012-2-20 20:17
学习学习！

作者: yori2007 时间: 2012-4-1 22:49

作者: 大懒猫68 时间: 2012-4-2 00:01
1111111111111111111

作者: l3396949 时间: 2012-4-2 08:34
学习中！~~！~

作者: shuix 时间: 2012-4-4 08:36
感谢楼主分享

作者: 快乐向前走 时间: 2012-5-25 11:30
好好阿红

作者: jinzhanxi 时间: 2012-7-30 09:05
谢谢分享

作者: 若离ヘ不弃° 时间: 2012-8-14 11:21
学习

作者: lin2003_lin 时间: 2012-8-17 00:33
看看

作者: smilingkiss 时间: 2013-1-31 22:20
学习中

作者: wangjianxiao 时间: 2013-2-2 17:35
运行结果怎么与我认为的不一致，代码1为5，代码3为2,7

作者: wangjianxiao 时间: 2013-2-2 18:45
又掌握了一点，谢谢

作者: 你是坏蛋 时间: 2013-2-2 20:23
看看

作者: 1085491621 时间: 2013-2-2 20:39

顶一下

作者: 123shusheng 时间: 2013-2-6 21:31
学习，学习

作者: 飞不动的鹰 时间: 2013-2-22 21:52

:lol:lol

作者: 5574916 时间: 2013-2-22 22:36
长知识了，谢谢分享哦！

作者: 微微森林 时间: 2013-3-28 17:28
学习了。

作者: 游戏人生 时间: 2013-3-28 21:02
学习

作者: daisyjane 时间: 2013-9-22 11:33
很想看看

作者: 愚加熊 时间: 2014-4-25 11:03

谢谢

作者: 愚加熊 时间: 2014-4-25 11:05
谢谢

作者: msyangyi 时间: 2014-5-26 12:50
一步一个脚印

作者: wzh 时间: 2014-5-29 06:30
看看看！！！

作者: cwh886 时间: 2014-10-1 17:25
学习

作者: 枯木一线 时间: 2014-10-8 12:30
学习一下

作者: 枯木一线 时间: 2014-10-9 15:34
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

这段代码比较经典，包含了流程控制（if语句）和赋值

作者: 2677598003 时间: 2014-11-21 04:41
学习

作者: gxstudent 时间: 2014-12-22 22:00
学习

作者: 天涯沦落20131 时间: 2014-12-24 13:21
123

作者: 桑松木 时间: 2014-12-27 11:56
学习学习

作者: sanjian 时间: 2014-12-28 09:42
学习了

作者: fffox 时间: 2015-1-7 18:51
代码1：y=5。代码2：y=6。打印出7,2

作者: qiongna 时间: 2015-1-25 22:24
学习了

作者: xyangjie 时间: 2015-4-15 17:07

作者: lbl521 时间: 2015-6-15 15:30
XIANGLEIJIAE

作者: shsun 时间: 2015-6-25 17:03
好好学学

作者: Alashome 时间: 2015-6-30 08:27
good

作者: djl52102 时间: 2015-8-15 22:29
测试了一下，还是不懂

作者: bamboo123 时间: 2015-9-3 00:44
RE: 【新手进阶】之一：If分支语句 [修改]

作者: yll_rizhao2012 时间: 2015-9-15 08:55
我是小白,想学习不知从何入手

作者: roych 时间: 2015-9-15 16:23

yll_rizhao2012 发表于 2015-9-15 08:55
我是小白,想学习不知从何入手

基础操作可以买一本书自行学习，语句讲解则可以参考淘贴的新手入门系列

作者: songgpljh 时间: 2015-10-10 11:32
学习一下

作者: xzh8803 时间: 2015-10-21 13:31
asfad a afdasd

作者: WFH6898 时间: 2015-11-11 18:08
基础，好好学习

作者: tofms 时间: 2015-11-20 09:19
从头学习一下

作者: 0520john 时间: 2016-1-4 15:53
学习

作者: 老四123 时间: 2016-1-5 20:22
好好学习

作者: cshiq 时间: 2016-1-17 05:30
【新手进阶】之一：If分支语句

作者: nowtoo 时间: 2016-1-17 22:59
学习一下

作者: layaman_999 时间: 2016-1-18 00:04
kankan

作者: Dozen 时间: 2016-2-18 22:42
学习了

作者: socar_bbman 时间: 2016-2-22 00:16
学习学习学习

作者: ifend 时间: 2016-3-29 14:45

作者: chemi_lai 时间: 2016-3-30 22:18
精简易懂

作者: 叫你不听话~~ 时间: 2016-3-31 12:59
学习

作者: 神经挺住 时间: 2016-4-15 12:44
学习

作者: Superleistung 时间: 2016-4-15 15:16
推算下，做个mark：
代码1 debug.print 出来应该是y=5
代码2 debug出来y=6
第三段代码出来应该是 x=2, y=7

作者: datouda 时间: 2016-4-16 08:17
好东西提供了一个学习的思路

作者: 13580397403 时间: 2016-4-19 00:24
谢谢分享

作者: pycqldt 时间: 2016-4-22 23:21
从头学起

作者: 522650696 时间: 2016-4-26 21:52
这个挺好理解呀

作者: 鄱湖人2012 时间: 2016-5-6 19:57
学习

作者: XWQ2000 时间: 2016-5-20 20:20
dddddddddddddddd

作者: adobe 时间: 2016-5-22 17:17
11111111111111111

作者: 鱼色 时间: 2016-5-24 15:27

作者: ajch 时间: 2016-6-3 21:11
学习了学习了

作者: 无所事事 时间: 2016-6-6 07:58
学习学习，感谢分享

作者: buchunmu 时间: 2016-6-7 00:10
看看答案

作者: ardu95 时间: 2016-6-12 06:27
新手入门

作者: cfncmjh 时间: 2016-6-24 15:31
FJJJJJJJJJJJJJJJJJ

作者: 山之冬 时间: 2016-7-1 11:11
学习。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)