access vba程序 懂的进来看看撒 ^_^

来源:百度知道 编辑:UC知道 时间:2024/05/04 05:47:14
在窗体上添加一个名为Command1的命令按钮,然后编写如下程序:
Function m(x As Integer, y As Integer) As Integer
m=IIf(x>y,x,x)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=1
b=2
MsgBox m(a,b)
End sub
打开窗体运行后,单击命令按钮,休息框中输出的结果为??

执行下面的程序段后,x 的值为:
x=5
For I=1 to 20 Step 2
x=x+I\5
Next I

IIf(expr, truepart, falsepart)
参数:
expr 用来判断真伪的表达式。
truepart 如果expr为True,则返回这部分的值。
falsepart 如果expr为False,则返回这部分的值。

第一题,我对你的题目表示怀疑,m=IIf(x>y,x,x),即不管 x>y 是否成立,都返回x的值。既然这样,m函数直接返回x就好了嘛,这个条件表达式就显得有些多余。如果真是这样,那消息框中输出的结果就是a的值,为1。
我觉得原题似乎是,m=IIf(x>y,x,y) 或者 m=IIf(x>y,y,x),反正x>y表达式是False,总是返回IIf函数中后面一个值。

第二题,I的范围从1到20,步进值是2,所以最多只能到19。I\5为取整运算。
程序跑下来结果x为21。