《Access数据库》复习.ppt

模块 【解析】DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) DateDiff 函数语法中有下列命名参数： 部分 描述 interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔 interval 参数的设定值如下： 设置 描述 yyyy 年 q 季 m 月 y 一年的日数 d 日 w 一周的日数 ww 周 h 时 n 分钟 s 秒 模块 在窗体中有一个命令按钮Commandl，编写事件代码如下： Private Sub Command1_CliCk() 　 Dim s As Integer 　 s＝P(1)＋P(2)＋P(3)＋P(4) 　 debug.Print S End SUb Public Function P(N As Integer) 　 Dim Sum As Integer 　 Sum＝0 　 For i＝1 To N 　 Sum＝Sum＋i 　 Next i 　 P＝Sum End Function 打开窗体运行后，单击命令按钮，输出结果是 A)15 B)20 C)25 D)35 参考答案：[B] 【解析】考察循环结构。当N＝1时，p(1)＝1；当N＝2时，p(2)＝3；当N＝3时，p(3)＝6；当N＝4时，p(4)＝10；所以s＝20。 模块 在窗体上有一个命令按钮Commandl，编写事件代码如下：　　 Private Sub Command1_Click()Dim a(10), p(3) As Integerk = 5For i = 1 To 10　a(i) = i * iNext iFor i = 1 To 3　p(i) = a(i * i)Next iFor i = 1 To 3　k = k + p(i) *2Next iMsgBox k 　　 End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是【1】。 参考答案： 201 模块 在窗体文本框Text l中输入“456AbC”后，立即窗口上输出的结果是【2】。　　 Private Sub Textl_KeyPress(KeyAscii As Integer)Select Case DeyAscii　Case 97 To 122　　Debug.Print Ucase(Chr(KeyAscii));　Case 65 To 90　　Debug.Print Lcase(Chr(KeyAscii));　Case 48 To 57　　Debug.Print Chr(KeyAscii); 　Case Else　　KeyAscii = 0End Select　 End Sub 参考答案： 456aBc 模块 一下列程序的功能是求方程：x2十y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。 Private Sub Commandl_Click（）Dim × as integer,y as integerFor x= -34 To 34　For y= -34 To 34　　If【1】Then 　　 Debug .Print x,y　　End If Next y　 Next x End Sub 参考答案： x^2+y^2=1000 模块 下列程序的功能是求算式：1+1/2 ! +1/3!+1/4!+……前10项的和（其中n!的含义是n的阶乘）。请在空白处填入适当的语句，使程序完成指定的功能。　 Private Sub Commandl_Click（）Dim i as integer,s as single,a as singlea=1:s=0For i=1 To 10　a=【2】 　　 s=s+aNext iDebug .Print “1+1/2!十1/3!+. …=”;s End Sub 参考答案： a/i 模块 下列程序的功能是找出被5、7除，余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。　　 Private Sub Form_Click()　Dim Ncount %, n% n=1：Ncount=0 do 　 n =