必胜高考网_全国高考备考和志愿填报信息平台

必勝高考網 > 計算機類 > 計算機等級 > 資訊 >

2014年9月計算機二級Access考前預測試卷(2)

時間: 家輝2 資訊

  (31)在窗體中添加一個名稱為Command1的命令按鈕,然后編寫如下程序:

  Public x As Integer

  Private Sub Command1_Click()

  x=10

  Call s1

  Call s2

  MsgBox x

  End Sub

  Private Sub s1()

  x=x+20

  End Sub

  Private Sub s2()

  Dim x As Integer

  x=x+20

  End Sub

  窗體打開運行后,單擊命令按鈕,則消息框的輸出結果為

  A)10 B)30 C)40 D)50

  (32)下列過程的功能是:通過對象變量返回當前窗體的Recordset屬性記錄集引用,消息框中輸出記錄集的記錄(即窗體記錄源)個數。

  Sub GetRecNum()

  Dim rs As Object

  Set rs = Me.Recordset

  MsgBox ______

  End Sub

  程序空白處應填寫的是

  A)Count

  B)rs.Count

  C)RecordCount

  D)rs.RecordCount

  (33)在窗體中添加一個名稱為Command1的命令按鈕,然后編寫如下事件代碼:

  Private Sub Command1_Click()

  Dim a(10,10)

  For m=2 To 4

  For n=4 To 5

  a(m,n)=m*n

  Next n

  Next m

  MsgBox a(2,5)+a(3,4)+a(4,5)

  End Sub

  窗體打開運行后,單擊命令按鈕,則消息框的輸出結果是

  A)22 B)32 C)42 D)52

  (34)設有如下程序

  Private Sub Command1_Click( )

  Dim sum As Double, x As Double

  sum = 0

  n = 0

  For i=1 To 5

  x = n / i

  n = n + 1

  sum = sum + x

  Next i

  End Sub

  該程序通過For循環來計算一個表達式的值,這個表達式是

  A)1+1/2+2/3+3/4+4/5

  B)1+1/2+1/3+1/4+1/5

  C)1/2+2/3+3/4+4/5

  D)1/2+1/3+1/4+1/5

  (35)在窗體中使用一個文本框(名為n)接受輸入的值,有一個命令按鈕run,事件代碼如下:

  Private Sub run_Click( )

  result = ""

  For i= 1 To Me!n

  For j = 1 To Me!n

  result = result + "*"

  Next j

  result = result + Chr(13) + Chr(10)

  Next i

  MsgBox result

  End Sub

  打開窗體后,如果通過文本框輸入的值為4,單擊命令按鈕后輸出的圖形是

  A)* * * *

  * * * *

  * * * *

  * * * *

  B) *

  * * *

  * * * * *

  * * * * * * *

  C) * * * *

  * * * * * *

  * * * * * * * *

  * * * * * * * * * *

  D) * * * *

  * * * *

  * * * *

  * * * *

  二、填空題

  請將每一個空的正確答案寫在答題卡序號的橫線上,答在試卷上不給分。

  (1)棧底至棧頂依次存放元素A、B、C、D,在第五個元素E入棧前,棧中元素可以出棧,則出棧序列可能是【1】。

  (2)在最壞情況下,堆排序需要比較的次數為【2】。

  (3)已知二叉樹后序遍歷序列是dabec,中序遍歷序列是debac,它的前序遍歷序列是【3】。

  (4)從工程管理角度,軟件設計一般分為兩步完成,它們是【4】。

  (5)用二維表的形式來表示實體之間聯系的數據模型叫做【5】。

  (6)在學生成績表中,如果需要根據輸入的學生姓名查找學生的成績,需要使用的是 【6】 查詢。

  (7)數據訪問頁有兩種視圖,它們是頁視圖和 【7】 視圖。

  (8)如果希望按滿足指定條件執行宏中的一個或多個操作,這類宏稱為 【8】 。

  (9)某窗體中有一命令按鈕,在窗體視圖中單擊此命令按鈕打開一個報表,需要執行的宏操作是 【9】 。

  (10)執行下面的程序,消息框里顯示的結果是 【10】 。

  Private Sub Form_Click()

  Dim Str As String,k As Integer

  Str="ab"

  For k=Len(Str) To 1 Step -1

  Str=Str & Chr(Asc(Mid(Str,k,1))+k)

  Next k

  MsgBox Str

  End Sub

  (11)在窗體中添加一個命令按鈕(名為Command1)和一個文本框(名為Text1),然后編寫如下事件過程:

  Private Sub Command1_Click()

  Dim x As Integer, y As Integer, z As Integer

  x=5:y=7:z=0

  Me!Text1=""

  Call p1(x,y,z)

  Me!Text1=z

  End Sub

  Sub p1(a As Integer, b As Integer, c As Integer)

  c=a+b

  End Sub

  打開窗體運行后,單擊命令按鈕,文本框中顯示的內容是 【11】 。

  (12)窗體中有兩個命令按鈕:"顯示"(控件名為cmdDisplay)和"測試"(控件名為cmdTest)。以下事件過程的功能是:單擊"測試"按鈕時,窗體彈出一個消息框,如果單擊消息框的"確定"按鈕,隱藏窗體上的"顯示"命令按鈕;單擊"取消"按鈕關閉窗體。請按照功能要求,將程序補充完整。

  Private Sub cmdTest_Click()

  Answer = 【12】

  If Answer=vbOK Then

  cmdDisplay.Visible = 【13】

  Else

  Docmd.Close

  End If

  End Sub

  (13)下列子過程的功能是:將當前數據庫文件中"學生表"的學生"年齡"都加1。請在程序空白的地方填寫適當的語句,使程序實現所需的功能:

  Private Sub SetAgePlus1_Click()

  Dim db As DAO.Database

  Dim rs As DAO.Recordset

  Dim fd As DAO.Field

  Set db = CurrentDb()

  Set rs = db.OpenRecordset("學生表")

  Set fd = rs.Fields("年齡")

  Do While Not rs.EOF

  rs.Edit

  fd = 【14】

  rs.Update

  【15】

  Loop

  rs.Close

  db.Close

  Set rs = Nothing

  Set db = Nothing

  End Sub

55806 主站蜘蛛池模板: ★店家乐|服装销售管理软件|服装店收银系统|内衣店鞋店进销存软件|连锁店管理软件|收银软件手机版|会员管理系统-手机版,云版,App | 微型实验室真空泵-无油干式真空泵-微型涡旋耐腐蚀压缩机-思科涡旋科技(杭州)有限公司 | 佛山市钱丰金属不锈钢蜂窝板定制厂家|不锈钢装饰线条|不锈钢屏风| 电梯装饰板|不锈钢蜂窝板不锈钢工艺板材厂家佛山市钱丰金属制品有限公司 | 氧化铝球_高铝球_氧化铝研磨球-淄博誉洁陶瓷新材料有限公司 | 千淘酒店差旅平台-中国第一家针对TMC行业的酒店资源供应平台 | 净化车间装修_合肥厂房无尘室设计_合肥工厂洁净工程装修公司-安徽盛世和居装饰 | 盘扣式脚手架-附着式升降脚手架-移动脚手架,专ye承包服务商 - 苏州安踏脚手架工程有限公司 | 电机保护器-电动机综合保护器-浙江开民 | 依维柯自动挡房车,自行式国产改装房车,小型房车价格,中国十大房车品牌_南京拓锐斯特房车 - 南京拓锐斯特房车 | 佛山商标注册_商标注册代理|专利注册申请_商标注册公司_鸿邦知识产权 | 大_小鼠elisa试剂盒-植物_人Elisa试剂盒-PCR荧光定量试剂盒-上海一研生物科技有限公司 | 不干胶标签-不干胶贴纸-不干胶标签定制-不干胶标签印刷厂-弗雷曼纸业(苏州)有限公司 | 亚克隆,RNAi干扰检测,miRNA定量检测-上海基屹生物科技有限公司 | 河南卓美创业科技有限公司-河南卓美防雷公司-防雷接地-防雷工程-重庆避雷针-避雷器-防雷检测-避雷带-避雷针-避雷塔、机房防雷、古建筑防雷等-山西防雷公司 | 搬运设备、起重设备、吊装设备—『龙海起重成套设备』 | 德州万泰装饰 - 万泰装饰装修设计软装家居馆 | 光泽度计_测量显微镜_苏州压力仪_苏州扭力板手维修-苏州日升精密仪器有限公司 | 电动卫生级调节阀,电动防爆球阀,电动软密封蝶阀,气动高压球阀,气动对夹蝶阀,气动V型调节球阀-上海川沪阀门有限公司 | 泰来华顿液氮罐,美国MVE液氮罐,自增压液氮罐,定制液氮生物容器,进口杜瓦瓶-上海京灿精密机械有限公司 | 大鼠骨髓内皮祖细胞-小鼠神经元-无锡欣润生物科技有限公司 | 引领中高档酒店加盟_含舍·美素酒店品牌官网 | 电梯装饰-北京万达中意电梯装饰有限公司 | led冷热冲击试验箱_LED高低温冲击试验箱_老化试验箱-爱佩百科 | 爱佩恒温恒湿测试箱|高低温实验箱|高低温冲击试验箱|冷热冲击试验箱-您身边的模拟环境试验设备技术专家-合作热线:400-6727-800-广东爱佩试验设备有限公司 | 外观设计_设备外观设计_外观设计公司_产品外观设计_机械设备外观设计_东莞工业设计公司-意品深蓝 | 破碎机锤头_耐磨锤头_合金锤头-鼎成机械一站式耐磨铸件定制服务 微型驱动系统解决方案-深圳市兆威机电股份有限公司 | 杭州营业执照代办-公司变更价格-许可证办理流程_杭州福道财务管理咨询有限公司 | 桐城新闻网—桐城市融媒体中心主办 | 标准件-非标紧固件-不锈钢螺栓-非标不锈钢螺丝-非标螺母厂家-三角牙锁紧自攻-南京宝宇标准件有限公司 | 广州印刷厂_广州彩印厂-广州艺彩印务有限公司 | 知网论文检测系统入口_论文查重免费查重_中国知网论文查询_学术不端检测系统 | 菲希尔FISCHER测厚仪-铁素体检测仪-上海吉馨实业发展有限公司 | HYDAC过滤器,HYDAC滤芯,现货ATOS油泵,ATOS比例阀-东莞市广联自动化科技有限公司 | 环讯传媒,永康网络公司,永康网站建设,永康小程序开发制作,永康网站制作,武义网页设计,金华地区网站SEO优化推广 - 永康市环讯电子商务有限公司 | 塑料造粒机「厂家直销」-莱州鑫瑞迪机械有限公司 | 烘箱-工业烘箱-工业电炉-实验室干燥箱 - 苏州华洁烘箱制造有限公司 | 北京律师咨询_知名专业北京律师事务所_免费法律咨询 | 烟气换热器_GGH烟气换热器_空气预热器_高温气气换热器-青岛康景辉 | YAGEO国巨电容|贴片电阻|电容价格|三星代理商-深圳市巨优电子有限公司 | 成都思迪机电技术研究所-四川成都思迪编码器 | 集菌仪厂家_全封闭_封闭式_智能智能集菌仪厂家-上海郓曹 |