A)#2012-1-23#-#2011-2-3# B)year(#2011-2-3#)C)DateValue(\ 【例】 下列表达式中，能正确表示条件\和y都是奇数\的是C
A)x Mod 2=0 And y Mod 2=0 B)x Mod 2=0 Or y Mod 2=0
C)x Mod 2=1 And y Mod 2=1 D)x Mod 2=1 Or y Mod 2=1 【例】 在VBA中，能自动检查出来的错误是A
A)语法错误 B)逻辑错误 C)运行错误 D)注释错误 【例】 下列给出的选项中，非法的变量名是C
A)Sum B)Integer_2 C)Rem D)Form1
【例】 如果在被调用的过程中改变了形参变量的值，但又不影响实参变量本身，这种参数传递方式称为A
A)按值传递 B)按地址传递 C)ByRef传递 D)按形参传递 【例】 表达式\的功能是B
A)将变量A保留小数点后1位 B)将变量A四舍五入取整 C)将变量A保留小数点后5位 D)舍去变量A的小数部分
【例】VBA语句\NewArray(10) as Integer\的含义是B
A)定义10个整型数构成的数组NewArray B)定义11个整型数构成的数组NewArray C)定义1个值为整型数的变量NewArray(10) D)定义1个值为10的变量NewArray 【例】 运行下列程序段，结果是B
For m=10 to 1 step 0 k=k+3 Next m
A)形成死循环 B)循环体不执行即结束循环 C)出现语法错误 D)循环体执行一次后结束循环
【例】 下列表达式计算结果为数值类型的是A
A)#5/5/2010#-#5/1/2010# B)\ C)102＝98＋4 D)#5/1/2010#＋5
【例】 要将一个数字字符串转换成对应的数值，应使用的函数是A A)Val B)Single C)Asc D)Space 【例】下列变量名中，合法的是C
A)4A B)A－1 C)ABC_1 D)private
【例】 若变量i的初值为8，则下列循环语句中循环体的执行次数为C Do While i<＝17 i＝i＋2 Loop
A)3次 B)4次 C)5次 D)6次 【例】 InputBox函数的返回值类型是B
A)数值 B)字符串 C)变体 D)视输入的数据而定 【例】下列能够交换变量X和Y值的程序段是C
A)Y＝X：X＝Y B)Z＝X：Y＝Z：X＝Y C)Z＝X：X＝Y：Y＝Z D)Z＝X：W＝Y：Y＝Z：X＝Y
【例】 在VBA中要将数值表达式的值转换为字符串，应使用函数 str() 。 【例】 在VBA中要判断一个字段的值是否为Null，应该使用的函数是 ISNULL 。 【例】函数表达式题目： 1. int(-2.8)+fix(2.8) 2. 10\\3+-8 mod 3 3. year(#2011/12/12#)-month(#2011/10/10#)+day(#2012/1/1#)
4. left(―南京财经大学‖，2)+mid(―南京财经大学‖，3,2)+right（‖南京财经大学‖,2） 5. instr（3，“ab12abc34abc”,‖a‖,1） 6. 已知2011年12月31日是星期六，weekday(#2011/12/31#) 7. val(―-12e2abcd‖)+len(―南京财经大学‖) 8. chr（asc(―A‖)+5）
【例】1. 运行下列程序，结果是( ) f=13 Private Sub Command32_Click() f0=1：fl=1：k=1 Do While k<=5 f=f0+f1 f0=f1 f1=f k=k+1 Loop
// MsgBox \& f End Sub
【例】2. 有如下事件程序，运行该程序后输出结果是( ) x=1， y=0
Private Sub Command33_Click()
Dim x As Integer，y As Integer x=1：y=0
Do Until y<=25 y=y + x * x x=x + 1 Loop MsgBox \& x & \， y=\& y End Sub
【例】3. 下列程序的功能是计算Sum=1+(1+3)+(1+3+5)+??+(1+3+5+??+39) Private Sub Command34_Click() t=0 m=1 sum=0 Do
t=t+m sum=sum+t m= m+2 Loop While m<=39 MsgBox %um=\sum End Sub
【例】4. 运行下列程序，输入如下两行： Hi，
I am here．
弹出的窗体中的显示结果是 Hi， Private Sub Command11_Click() Dim abc As String，sum As String sum=\Do abc=InputBox(\输入abc\
If Right(abc，1)=\Then Exit Do sum=sum+abc Loop MsgBox sum End Sub
【例】5. 运行下列程序，窗体中的显示结果是：x= 21 。 Option Compare Database Dim x As Integer Private Sub Form_Load() x=3
End Sub
Private Sub Command11_Click()
Static a As Integer Dim b As Integer b=x＾2 fun1 x，b fun1 x，b MsgBox \& x End Sub
Sub fun1(ByRef y As Integer，ByVal z As Integer) y = y+z z = y-z End Sub
【例】6. 数据库中有\学生成绩表\，包括\姓名\、\平时成绩\、\考试成绩\和\期末总评\等字段，现要根据\平时成绩\和\考试成绩\对学生进行\期末总评\。规定：\平时成绩\加\考试成绩\大于等于85分，则期末总评为\优\，\平时成绩\加\考试成绩\小于60分，则期末总评为\不及格\，其他情况期末总评为\合格\。
下面的程序按照上述要求计算每名学生的期末总评。请在空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command0_Click()
Dim db As DAO.Database Dim rs As DAO.Recordset
Dim pscj，kscj，qmzp As DAO.Field Dim count As Integer Set db=CurrentDb() Set rs=db.OpenRecordset(\学生成绩表\Set pscj=rs.Fields(\平时成绩\Set kscj=rs.Fields(\考试成绩\Set qmzp=rs.Fields(\期末总评\count=0 Do While Not rs.EOF rs.edit
If pscj+kscj>=85 Then
// qmzp=\优\
ElseIf pscj+kscj<60 Then qmzp=\不及格\Else
qmzp=\合格\End If rs.Update count=count+1 rs.movenext Loop rs．Close db.Close
Set rs=Nothing Set db=Nothing
MsgBox \学生人数：\& count End Sub
【例】7. 窗体中有命令按钮Command1，事件过程如下： Public Function f(x AS Integer)As Integer Dim y As Integer x＝20 y＝2 f＝x*y End Function
Private Sub Commandl_Click() Dim y As Integer Static x As Integer x＝10 y＝5 y＝f(x)
Debug.Print x；y End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是( ) 20 40
【例】8. 窗体中有命令按钮Command1和文本框Text1，事件过程如下： Function result(ByVal x As Integer)As Boolean If x Mod 2＝0 Then result＝True Else
result＝False End If End Function Private Sub Commandl_Click()
x＝Val(InputBox(\请输入一个整数\
If result(x) Then Text1＝Str(x) & \是偶数.\ Else
Text1＝Str(x) & \是奇数.\ End If End Sub
【例】9.窗体有命令按钮Command1和文本框Text1，对应的事件代码如下： Private Sub Command1_Click() For i＝1 To 4 x＝3 For j＝1 To 3 For k＝1 To 2 x＝x＋3 Next k Next j Next i Textl.Value＝Str(x) End Sub
运行以上事件过程，文本框中的输出是( ) 21
例】10. 窗体中有命令按钮run34，对应的事件代码如下： Private Sub run34_Enter() Dim num As Integer，a As Integer，b As Integer，i As Integer For i＝1 To 10
num＝InputBox(\请输入数据：\，\输入\ If Int(num/ 2)＝num/ 2 Then a＝a＋1 Else
b＝b＋1 End If Next i
MsgBox (\运行结果：a＝\& Str(a) & \，b＝\& Str(b)) End Sub
运行以上事件过程，所完成的功能是( )对输入的10个数据分别统计奇数和偶
// 数的个数
【例】11. 运行下列程序，输入数据8、9、3、0后，窗体中显示结果是( ) 20 Private Sub Form_click()
Dim sum As Integer，m As Integer sum＝0
Do m＝InputBox(\输入m\ sum＝sum＋m Loop Until m＝0 MsgBox sum End Sub
【例】12. 下列程序的功能是求方程：x2＋y2＝1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。
Private Sub Commandl_Click() Dim x as integer，y as integer For x＝ －34 To 34 For y＝－34 To 34
If x*x+y*y=1000 Then Debug.Print x，Y End If Next y Next x End Sub
【例】13. 下列程序的功能是求算式：1＋1/2！＋1/3！ ＋1/4！ ＋……前10项的和(其中n！的含义是n的阶乘)。请在空白处填入适当的语句，使程序完成指定的功能。 Private Sub Commandl_C1ick()
Dim i as integer，s as single，a as single a＝1：s＝0 For i＝1 To 10 a＝ a/i s＝s＋a Next i Debug.Print \＋1/ 2！ ＋l/ 3！＋……＝\；s End Sub
【例】14. 在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。
Private Sub Commandl2_Click() max＝0 maxn＝0 For i＝1 To 10
num＝Val(InputBox(\请输入第\& i & \个大于0的整数：\ If max MsgBox(\最大值为第\& maxn & \个输入的\& max) End Sub 【例】15. 数据库的\职工基本情况表\有\姓名\和\职称\等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。 Private Sub Command5_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim zc As DAO.Field Dim Countl As Integer，Count2 As Integer，Count3 As Integer Set db＝CurrentDb() Set rs＝db.OpenRecordset(\职工基本情况表\ Set zc＝rs.Fields(\职称\ Countl＝0：Count2＝0：Count3＝0 Do While Not rs.eof Select Case zc Case Is＝\教授\ Countl＝Count1＋1 Case Is＝\副教授\ Count2＝ // Count2＋1 Case Else Count3＝Count3＋1 End Select rs.movenext Loop rs.Close Set rs＝Nothing Set db＝Nothing MsgBox \教授：\& Countl & \，副教授：\& Count2 & \，其他：\& Count3 End Sub 【例】16. 在窗体上有一个命令按钮Command1和一个文本框Textl,编写事件代码如下： Private Sub Commandl_Click() Dim i,j,x For i=i To 20 step 2 x=0 For j=i To 20 step 3 x=x+1 Next j Next i Textl.Value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框中显示的结果是( )1 【例】17. 在窗体上有一个命令按钮Command1,编写事件代码如下： Private Sub Commandl_Click() Dim y As Integer y=0 Do y=InputBox(\ If(y Mod 10)+Int(y／10)=10 Then Debug.Print y; Loop Until y=0 End Sub 打开窗体运行后,单击命令按钮,依次输入10、37、50、55、64、20、28、19、-19、0,立即窗口上输出的结果是( )3755642819 【例】19. 在窗体中有一个命令按钮Commandl和一个文本框Textl，编写事件代码如下： Private Sub Commandl_Click() For I＝1 To 4 X＝3 For j＝1 To 3 For k＝1 To 2 x＝x＋3 Next k Next j Next I Text1.value＝Str(X) End Sub 打开窗体运行后，单击命令按钮，文本框Textl输出的结果是( )21 编写程序 '1、用循环结构编程计算下列数列前10项之和，并按下图所示输出计算的结果。 ' 1 + ( - 3 / 4) + ( 5 / 9 ) + ( - 7 / 16 ) + ( 9 / 25 ) + ( - 11 / 36 ) + …… Sub p02() Dim s As Single，i As Integer S=0 For i = 1 To 10 s = s + (-1) ^ (i + 1) * ((2 * i - 1) / (i * i)) Next i MsgBox \+ ( - 3 / 4) + ( 5 / 9 ) + ( - 7 / 16 ) + ( 9 / 25 ) + ...的前十项之和为 \& Chr(13) & s End Sub ' //
整理过的Access2010《数据库基础及应用》综合练习题
