2022年Access编程主要类型题目[定 .pdf

《2022年Access编程主要类型题目[定 .pdf》由会员分享，可在线阅读，更多相关《2022年Access编程主要类型题目[定 .pdf（7页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、编程主要类型题目(下篇 ) 1、在窗体中有一个名为Command12 的命令按钮， Click 事件的代码如下：该事件所完成的功能是：接受从键盘输入的10 个大于0 的整数，找出其中的最大值和对应的输入位置。请依据上述功能要求将程序补充完整。Private Sub Command12_Click( ) max=0 max_n=0 For i=1 To 10 num=Val(InputBox( 请输入第 & i & 个大于0 的整数： ) If (nummax)Then max= （1）max_n= （2）End If Next i MsgBox( 最大值为第 & max_n& 个输入的 & m

2、ax) End Sub 解析：本题考查最大值和最小值算法，本题曾经多次被考查到，max 为最大值， max_n 为最大值的位置程序核心为if(nummax) max=num 如果输入的数比最大值大，它就是最大值所以（1）num (2) i 2、在窗体中有一个名为Command12 的命令按钮， Click 事件功能是：接收从键盘输入的10 个大于 0 的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。Private Sub Command12_Click （）max=0 maxn=0 for i=1 To 10 num=Val（InputBox （

3、,请输入第 “&i&” 个大于 0 的整数： “ ） ）If （1） Then max=num maxn=（2）End If Next i MsgBox （” 最大值为第 “&maxn& ”个输入的 “&max ）End Sub 本题同上一题(1) nummax (2)i 3、某次大奖赛有7 个评委同时为一位选手打分，去掉一个最高分和一个最低分，其余5 个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。Sub command1_click( ) Dim mark!, aver!, i%,max1!,min1! aver = 0 For i = 1 To 7 Mark = InputB

4、ox(“请输入第 ” & i & “位评为的打分 ”)If i = 1 then max1 =mark : min1=mark Else If mark max1 then 【1】End If End If 【2】Next i aver = (aver - max1- min1)/5 MsgBox aver End Sub 本题第一处空填max1=mark 同前面的题目第二处空填 aver=aver+mark 求总分4、窗体中有命令按钮run34,对应的事件代码如下：Private Sub run34_Enter（）Dim num As Integer,a As Integer,b As In

5、teger,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 运行以上事件过程，所完成的功能是A）对输入的10 个数据求累加和B）对输入的10 个数据求各自的余数，然后再进行累加C）对输入的10 个数据分别统计奇数和偶数的个数D）对输入的10 个数据分别统计整数和非整数的个数解析：本题得关键语句在if int(nu

6、m/2)=num/2 then 这个条件只有偶数才能成立，所以本题选择C 5、窗体中有命令按钮Commandl 和文本框Text1,事件过程如下：Function result （ByVal x As Integer ）As Boolean If Mod 2=0 Then result=True Else result=False End If End Function Private Sub Commandl_Click （）x=Val （InputBox （“ 请输入一个整数” ） ）If (1) Then Text1=Str（ x）&“是偶数 . ”Else Text1=Str（ x）&

7、“是奇数 . ”End If End Sub 运行程序，单击命令按钮，输入19,在 Text1 中会显示 “19 是奇数 ”.那么在程序的空白处应填写名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 7 页 - - - - - - - - - A）result（ x）=“ 偶数 ”B） result（x）C）resuIt（ x）=“ 奇数 ”D）NOT result （x）本题中 result 函数返回真和贾其中偶数为真，奇数为假所以选择B 6、下列程序的功能是找出被5、7

8、 除，余数为1 的最小的5 个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Form_Click() Dim Ncount %, n% do n = n + 1 If （1） Then Debug.Print n Ncount =Ncount + 1 End If Loop Until Ncont = 5 End Sub 本题填入得是被5、7 除，余数为1 的条件所以答案为n mod 5=1 and n mod 7=1 7、窗体中有两个命令按钮：“显示”（控件名为cmdDisplay ）和“测试” （控件名为cmdTest） 。当单击“测试”按钮时，执

9、行的事件功能是：首先弹出消息框，若单击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub cmdTest_Click() Answer= _ ( 隐藏按钮 ?,vbOKCancel + vbQuestion, Msg) If Answer = vbOK Then Me ! cmdDisplay.Visible= _ End If End Sub （1） Msgbox 是弹出消息框(2 ) false Visible 属性是可见的意思，设置为否就是不可见了8、一下列程序的功能是求方程：x2十 y2=10

10、00 的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Commandl_Click （）Dim as integer,y as integer For x= -34 To 34 For y= -34 To 34 If【 10】Then Debug .Print x,y End If Next y Next x End Sub 本题只填入x2十 y2=1000 的写法所以答案为x2+y2=1000 9、体中有一个名称为run35 的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0 到 100 分之间，则要求重新输入；如果输入的成绩正确，则进入后续

11、程序处理。 run35 命令按钮的Click 的事件代码如下：Private Sub run35_Click( ) 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 7 页 - - - - - - - - - Dim flag As Boolean result=0 flag=True Do While flag result=Val(InputBox( 请输入学生成绩:, 输入 ) If result=0 And result 1 时则按照递推公式可以得到数列：1, 1,

12、 2, 3, 5, 8, 13, 21, 34, 55, 。现要求从键盘输入 n 值，输出对应项的值。例如当输入n 为 8 时，应该输出34。程序如下，请补充完整。Private Sub run11_Click( ) f0=1 f1=1 num=Val(InputBox( 请输入一个大于2 的整数 : ) For n=2 To （1）f2=（2）f0=f1 f1=f2 Next n MsgBox f2 End Sub 解析：输入n 值，输出对应项的值，所以第一处为num ，f(n)=f(n-1)+f(n-2) 所以第二处为f0+f1 答案 : (1) num (2) f0+f1 11、子过程T

13、est 显示一个如下所示4 4 的乘法表。1*1=1 1*2=2 1*3=3 1*4=4 2*2=4 2*3=6 2*4=8 3*3=9 3*4=12 4*4=16 请在空白处填入适当的语句使子过程完成指定的功能。Sub Text() Dim i, j As Integer For i=1 To 4 For j=1 To 4 If （1） Then Debug.Print i & * & j &= & i * j & Space(2), 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第

14、 4 页，共 7 页 - - - - - - - - - End If Next j Debug.Print Next i End Sub 解析本题中i 为行 j 为列观察出规律i=j 时输出所以填入i=j 12、以下程序的功能是在立即窗口中输出100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click() Dim i%, j%, k%, t % ,t 为统计素数的个数Dim b As Boolean For i = 100 To 200 b = True k = 2 j = Int(S

15、qr(i) Do While k = j And b If I Mod k = 0 Then b = 【 1】End If k = 【 2】Loop If b = True Then t = t + 1 Debug.Print i End If Next i Debug.Print t=; t End Sub 解析：本题考查素数的判断，b 是判断是否，开始假定是的，if 有一个被整除就不是的,所以第一处填false K=2 开始到k=j 时做所以第二处填k+1 13、对窗体test 上文本框控件txtAge 中输入的学生年龄数据进行验证。要求：该文本框中只接受大于等于 15 且小于等于30 的

16、数值数据，若输入超出范围则给出提示信息。该文本控件的BeforeUpdate 事件过程代码如下，请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub txtAge_BeforeUpdate(Cancel As Integer) If Me!txtAge = or _ (Me ! txtAge) Then 数据为空时的验证MsgBox 年龄不能为空 !, vbCritical, 警告 Cancel = True 取消 BeforeUpdate 事件E1seIf IsNumeric (Me!txtAge) = False Then 非数值数据输入的验证MsgBox 年龄必须输

17、入数值数据!, vbCritical, 警告 Cancel = True 取消 BeforeUpdate 事件E1seIf Me!txtAge 30 五、 timer考点1、现有一个登录窗体如下图所示。打开窗体后输入用户名和密码，登录操作要求在20 秒内完成，如果在20 秒内没有完成登录操作，则倒计时到达0 秒时自动关闭登录窗体，窗体的右上角是显示倒计时的文本框Itime 。事件代码如下，要求填空完成事件过程。Option Compare Database Dim flag As Boolean Dim i As Integer Private Sub Form_Load( ) flag =

18、【1】 Me.TimerInterval = 1000 i = 0 End Sub Private Sub Form_Timer( ) If flag = True And i 20 Then Me!ITime.Caption = 20 - i i = 【2】 Else DoCmd.Close End If End Sub Private Sub OK_Click( ) 登录程序略如果用户名和密码输入正确，则：flag = False End Sub 答案 :(1) flag=True (2) i+1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - -

19、 - - - - - 名师精心整理 - - - - - - - 第 6 页，共 7 页 - - - - - - - - - （2）有“数字时钟”窗体如下：在窗口中有按钮“ 开/ 关 时钟”，单击该按钮可以显示或隐藏时钟。其中按钮的名称为“开关”，显示时间的文本框名称为“时钟”，计时器间隔已设置为500。请在空白处填入适当的语句，使程序可以完成指定的功能。 Dim flag As Integer Private Sub Form_Load() flag=1 End Sub Private Sub Form_Timer() “计时器触发”事件过程时钟 =Time 在“时钟”文本框中显示当前时间 End Sub Private Sub 开关 _Click() “开关”按钮的单击事件过程 If (1) Then 时钟 .Visible = False flag=0 Else 时钟 .Visible=True flag=1 End If End Sub End Sub 答案： (1) flag=1 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 7 页，共 7 页 - - - - - - - - -