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

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

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 主站蜘蛛池模板: 礼仪庆典公司,礼仪策划公司,庆典公司,演出公司,演艺公司,年会酒会,生日寿宴,动工仪式,开工仪式,奠基典礼,商务会议,竣工落成,乔迁揭牌,签约启动-东莞市开门红文化传媒有限公司 | ge超声波测厚仪-电动涂膜机-电动划格仪-上海洪富 | 活性炭-蜂窝-椰壳-柱状-粉状活性炭-河南唐达净水材料有限公司 | 岛津二手液相色谱仪,岛津10A液相,安捷伦二手液相,安捷伦1100液相-杭州森尼欧科学仪器有限公司 | 磁力抛光机_磁力研磨机_磁力去毛刺机-冠古设备厂家|维修|租赁【官网】 | 焊缝跟踪系统_激光位移传感器_激光焊缝跟踪传感器-创想智控 | 反渗透阻垢剂-缓蚀阻垢剂厂家-循环水处理药剂-山东鲁东环保科技有限公司 | 罐体电伴热工程-消防管道电伴热带厂家-山东沃安电气 | 东莞市踏板石餐饮管理有限公司_正宗桂林米粉_正宗桂林米粉加盟_桂林米粉加盟费-东莞市棒子桂林米粉 | 中开泵,中开泵厂家,双吸中开泵-山东博二泵业有限公司 | 中式装修设计_全屋定制家具_实木仿古门窗花格厂家-喜迎门 | 矿用履带式平板车|探水钻机|气动架柱式钻机|架柱式液压回转钻机|履带式钻机-启睿探水钻机厂家 | 杭州网络公司_百度SEO优化-外贸网络推广_抖音小程序开发-杭州乐软科技有限公司 | 蔡司三坐标-影像测量机-3D扫描仪-蔡司显微镜-扫描电镜-工业CT-ZEISS授权代理商三本工业测量 | 400电话_400电话申请_888元包年_400电话办理服务中心_400VIP网 | 哈希余氯测定仪,分光光度计,ph在线监测仪,浊度测定仪,试剂-上海京灿精密机械有限公司 | 股票入门基础知识_股票知识_股票投资大师_格雷厄姆网 | 好杂志网-首页| 基本型顶空进样器-全自动热脱附解吸仪价格-AutoHS全模式-成都科林分析技术有限公司 | 隐形纱窗|防护纱窗|金刚网防盗纱窗|韦柏纱窗|上海青木装潢制品有限公司|纱窗国标起草单位 | 氟塑料磁力泵-不锈钢离心泵-耐腐蚀化工泵厂家「皖金泵阀」 | 三防漆–水性三防漆–水性浸渍漆–贝塔三防漆厂家 | 伶俐嫂培训学校_月嫂培训班在哪里报名学费是多少_月嫂免费政府培训中心推荐 | 首页-恒温恒湿试验箱_恒温恒湿箱_高低温试验箱_高低温交变湿热试验箱_苏州正合 | 济南货架定做_仓储货架生产厂_重型货架厂_仓库货架批发_济南启力仓储设备有限公司 | 双吸泵,双吸泵厂家,OS双吸泵-山东博二泵业有限公司 | 北京成考网-北京成人高考网 | 体检车_移动CT车_CT检查车_CT车_深圳市艾克瑞电气有限公司移动CT体检车厂家-深圳市艾克瑞电气有限公司 | 洛阳网站建设_洛阳网站优化_网站建设平台_洛阳香河网络科技有限公司 | 伶俐嫂培训学校_月嫂培训班在哪里报名学费是多少_月嫂免费政府培训中心推荐 | 圈酒招商网【jiushuitv.com】_酒水招商_代理_加盟平台 | 陕西高职单招-陕西高职分类考试网| 冷凝水循环试验箱-冷凝水试验箱-可编程高低温试验箱厂家-上海巨为(www.juweigroup.com) | 郑州外墙清洗_郑州玻璃幕墙清洗_郑州开荒保洁-河南三恒清洗服务有限公司 | SMN-1/SMN-A ABB抽屉开关柜触头夹紧力检测仪-SMN-B/SMN-C-上海徐吉 | 螺杆真空泵_耐腐蚀螺杆真空泵_水环真空泵_真空机组_烟台真空泵-烟台斯凯威真空 | 全自动端子机|刺破式端子压接机|全自动双头沾锡机|全自动插胶壳端子机-东莞市傅氏兄弟机械设备有限公司 | 聚合甘油__盐城市飞龙油脂有限公司 | 新型游乐设备,360大摆锤游乐设备「诚信厂家」-山东方鑫游乐设备 新能源汽车电池软连接,铜铝复合膜柔性连接,电力母排-容发智能科技(无锡)有限公司 | 东莞压铸厂_精密压铸_锌合金压铸_铝合金压铸_压铸件加工_东莞祥宇金属制品 | SRRC认证_电磁兼容_EMC测试整改_FCC认证_SDOC认证-深圳市环测威检测技术有限公司 |