2010年3月全国计算机二级ACCESS笔试题目解释

31)在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下：

Private Sub Command1_Click() --定义一个单击事件Click,就是形成一个单击按钮，点击触发以下事件;

Dim i,j,x --声明3个变量 i,j,x

For i = 1 To 20 step 2 --使用FOR 循环，首先给I 赋予初值 1 ，然后 给出I 的范围是1 到 20 定义一个步长 STEP；

x = 0 --给X 赋予初值等于0;

For j = To 20 step 3 --同样使用FOR 循环，使J 给出一个范围 默认值为0 ，就是说J 的值是0 到20 并定义步长 STEP；

x = x + 1--定义X值，X+1的值赋给X ，这也就是X++ 的意思，自增循环；

Next j --处理J，使得J 自循环 范围为 0-20；

Next i --处理I，使得I 自循环 范围为 1-20；

Textl.Value=Str(x) --给X 定义类型为STR 字符型 并成为变量 根据上述运行结果判断X 的值，因为X 初始值为0 但是X 并没有定义范围和步长，所以X 的值只做了一次，故为1;

End Sub --结束循环;

打开窗体运行后，单击命令按钮，文本框中显示的结果是

A)1 --X 的结果为1 ;

B)7

C)17

D)400

(32)在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private Sub Commandl_Click() ----定义一个单击事件Click,就是形成一个单击按钮，点击触发以下事件;

Dim y As Integer --声明变量 Y 并给它定义INTEGER引用类型;

y = 0 --给变量Y 赋初值 等于0;

Do --继续运行;

y = InputBox("y=")--变量Y 输出到COMMADN1 这个命令窗口上；就是现在Y 的值 也就是等于0；

If (y Mod 10) + Int(y / 10) = 10 Then Debug.Print y; 使用IF 假如 Y 取模 结果是10 这个好理解 就是一个数除以另一个数 余数为10 然后加上（这个INT 是取整的意思） Y 除以10 结果
等于10 然后输出Y 的结果，理解 就是这个 "假如 Y 除以一个数 结果为10 的话 用这个数 加上 Y 除以10 这样的结果取整后 等于10，这样输出"; Y MOD 10 + Y/10=10;

Loop Until y = 0 --Y 从 0 开始循环;

End Sub --结束,手动按照要求输入以下的数，符合上述要求的就输出;

打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是

A)37 55 64 28 19 19

B)10 50 20

C)10 50 20 0

D)37 55 64 28 19----按照上述的要求求的结果为 37,55,64,28,19 这就像一道 求Y 值的公式 逆向推回去就行,首先用把值代入公式 例如 37/10 取值是3.7 前面取模后值为 所以 37/3.7 摸是10;

(33)在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private Sub Command1_Click()------定义一个单击事件Click,就是形成一个单击按钮，点击触发以下事件;

Dim x As Integer, y As Integer --声明 变量X,Y 并指定类型为引用类型；

x = 12: y = 32 --给X 赋初值 等于12，Y 赋初值 等于32；

Call Proc(x, y) --计算函数X,Y 的值；

Debug.Print x; y--计算后输出X,Y的值；

End Sub--结束运行；

Public Sub Proc(n As Integer, ByVal m As Integer)--把X 的值给予 N ，Y 的值给予M 定义引用类型；

n = n Mod 10--N 取模 等于 10 后 赋给 N ；

m = m Mod 10--M 取模 等于 10 后 赋给 M ；

End Sub--结束

打开窗体运行后，单击命令按钮，立即窗口上输出的结果是

A)2 32

B)12 3

C)2 2

D)12 32

34)在窗体上有一个命令按钮Commandl，编写事件代码如下：

Private Sub Commandl_Click()----定义一个单击事件Click,就是形成一个单击按钮，点击触发以下事件;

Dim d1 As Date --声明D1 为日期型

Dim d2 As Date --声明D2 为日期型

dl = #12/25/2009# --给D1 赋值 12/25/2009;

d2 = #1/5/2010# --给D2 赋值 1/5/2010;

MsgBox DateDiff(” ww”, d1, d2) 结算他们相差的整年数; 2010/5/1 减去 2009/12/25 并输出 整年;

End Sub

打开窗体运行后，单击命令按钮，消息框中输出的结果是

A)1

B)2---结果是2年;

C)10

D)11