VBA编程入门.ppt

1、 Microsoft Accsee插入模块运行子过程/用户窗体设计模式中断重新设计 工程资源管理器 对象浏览器属性窗口工程窗口工程窗口选择对象选择对象属性窗口属性窗口选择对象选择对象的属性的属性代码代码窗口窗口选择选择事件事件 73 x 语句组语句组2语句组语句组1TF语句组语句组2条件条件语句组语句组1FT条件条件语句组语句组TF条件条件语句组语句组TF语句语句2条件条件语句语句1TF条件条件语句语句1Private Sub p1()Private Sub p1()Dim x As Integer,y As Integer Dim x As Integer,y As Integer x=In

2、putBox x=InputBox(“(“请输入请输入x x值值”)IfIf x=0 x=0 ThenThen y=2 y=2*x+1 x+1 ElseElse y=1 y=1 MsgBox MsgBox y:&y y:&yEnd SubEnd Subyxxxxxxxsincos231030 T x yT z 为最小数T 使得 x yFFF x yzx y x 与 y 交换y z y 与 z 交换x y x 与 y 交换 If xy Then t=x:x=y:y=t .例：例：计算累加程序计算累加程序 S=1+2+3+4S=1+2+3+4.+x,.+x,并输出结果。并输出结果。例：计算累乘程序例：计算累乘程序 S=1S=1*2 2*3 3*4 4X X 4)1(3213Int 表 达 式 列 表 1 F T F T E x it D o 语 句 块 语 句 块 E x it D o 语 句 块 语 句 块 表 达 式 列 表 1 图 D o L oop W h ile 图 D o W h ile L oop u