1、) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（）。A）12 B）13 C）14 D）15（24）在窗体上画一个命令按钮，其名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4For j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPrint a1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是（）。A）6
2、6 B）10 5 C）7 21 D）6 12（25）有如下程序：Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum + arr(i)End IfNext iPrint SumEnd Sub程序运行后，单击窗体，输出结果为（）。A）25 B）26 C）27 D）28（26）在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub
3、 Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc(A) + (i - 1)Next iFor Each b In aPrint b;NextEnd Sub程序运行后，单击命令按钮，输出结果是（）。A）ABCDE B）1 2 3 4 5C）abcde D）出错信息（27）以下关于函数过程的叙述中，正确的是（）。A）如果不指明函数过程参数的类型，则该参数没有数据类型B）函数过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D）函数过程形参的类型与函数返回值的类型没有关系（28）函
4、数过程F1的功能是：如果参数b为奇数，则返回值为1，否则返回值为0。以下能正确实现上述功能的代码是（）。A）Function F1(b As Integer)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionB）Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionC）Function F1(b As Integer)If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd FunctionD）Fu
5、nction F1(b As Integer)If b Mod 2 0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下关于KeyPress事件过程中参数KeyAscii的叙述中正确的是（）。A）KeyAscii参数是所按键的ASCII码B）KeyAscii参数的数据类型为字符串C）KeyAscii参数可以省略D）KeyAscii参数是所按键上标注的字符（30）设窗体上有一个名为Text1的文本框，并编写如下程序：Private Sub Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivat
6、e Sub Form_MouseUp(Button As Integer, _Shift As Integer, X As Single, Y As Single)Print 程序设计End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)Print Visual Basic;End Sub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是A）Visual Basic B）程序设计C）Visual Basic程序设计 D）a程序设计（31）假定有下表所列的菜单结构：标题 名称 层次显
7、示 appear 1（主菜单）大图标 bigicon 2（子菜单）小图标 smallicon 2（子菜单）要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“?”。以下正确的事件过程是（）。A）Private Sub bigicon_Click()bigicon.Checked = False End SubB）Private Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubC）Private Sub bigicon_Click()bigicon.Checked = TrueEnd SubD）Private S
8、ub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub（32）假定通用对话框的名称为CommonDialog1，命令按钮的名称为Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是（）。A）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrinterEnd SubB）Private Sub Command1_Click()CommonDialog1.DialogTitle = Ne
9、w TitleCommonDialog1.ShowFontEnd SubC）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowOpenEnd SubD）Private Sub Command1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowColorEnd Sub（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是（）。A）任何时刻最多只有一个窗体是活动窗体B）不能把标准模块设置为启动模块C
10、）用Hide方法只是隐藏一个窗体，不能从内存中清除该窗体D）如果工程中含有Sub Main过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下记录类型Type BooksName As String * 10TelNum As String * 20End Type要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是（）。A）Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Output As #1B.Name
11、= InputBox(输入姓名)B.TelNum = InputBox(输入电话号码)Write #1, B.Name, B.TelNumClose #1End SubB）Private Sub Command1_Click()Dim B As BooksOpen c:Person.txt For Input As #1B.Name = InputBox(输入姓名)B.TelNum = InputBox(输入电话号码)Print #1, B.Name, B.TelNumClose #1End SubC）Private Sub Command1_Click()Dim B As BooksOpen
12、 c:Person.txt For Output As #1Name = InputBox(输入姓名)TelNum = InputBox(输入电话号码)Write #1, BClose #1End SubD）Private Sub Command1_Click()Dim B As BookOpen c:Person.txt For Input As #1Name = InputBox(输入姓名)TelNum = InputBox(输入电话号码)Print #1, B.Name, B.TelNumClose #1End Sub（35）目录列表框的Path属性的作用是（）。A）显示当前驱动器或指定
13、驱动器上的某目录下的文件名B）显示当前驱动器或指定驱动器上的目录结构C）显示根目录下的文件名D）显示指定路径下的文件二、填空题（每空2分，共30分）请将每空的正确答案写在答题卡【1】【15】序号的横线上，答在试卷上不得分。（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是 【1】 。（2）算法复杂度主要包括时间复杂度和 【2】 复杂度。（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（4）一棵二叉树第六层（根结点为第一层）的
14、结点数最多为 【4】 个。（5）数据结构分为逻辑结构和存储结构，循环队列属于 【5】 结构。（6）设有以下函数过程：Function fun(m As Integer) As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数，则s的值为 【6】 。（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写
15、），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Sub Command1_Click( )Dim str As String, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens = 【7】End Ifc = Chr$(Asc(c) 【8】 )WendI
16、f s ThenText1 = sEnd IfEnd Sub（8） 在n个运动员中选出任意r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中3个文本框的名称依次是Text1、Text2、Text3。程序运行时在Text1、Text2中分别输入n和r的值，单击Command1按钮即可求出选法的个数，并显示在Text3文本框中(见下图)。请填空Private Sub Command1_Click( )Dim r As Integer, n As Integern = Text1r = Text2Text3 = fun(n) / fun(【9】 ) / fun(r)End S
17、ubFunction fun(n As Integer) as longDim t As Long【10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click( )Dim k As IntegerDim
18、 sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min = 【11】 For k = 【12】 To 6If max Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【13】 ) / 5End Sub（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本
19、框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Booleanfound = Falsen = Len(【14】 )k = 0While k List1.ListCount And Not foundIf Text1 = Left$(List1.List(k), n) ThenText2 = 【15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2
20、 = 查无此人End IfEnd Sub2005年9月二级VB笔试试题答案选择题【 1- 5】 CACDC 【 6-10】 DAABB 【11-15】 BCCDC 【16-20】 CABBA 【21-25】 DAADC 【26-30】 ADBAC 【31-35】 CCDAB 填空题【1】数据库系统 【2】空间 【3】驱动模块 【4】32 【5】存储结构 【6】30 【7】s&c 【8】-1 【9】n-r 【10】t=1 【11】text1(0) 【12】1【13】（sum-max-min）【14】text1.text 【15】list1.list(k)俗话说，“篱笆扎得紧，野狗野猫钻不进”。作
21、风“篱笆”，该如何扎严扎紧呢？善禁者，先禁其身而后人。年月，习近平在与河北省委领导班子成员座谈时说：“邓小平同志说过：在中国来说，谁有资格犯大错误？就是中国共产党。那么在党内，谁有资格犯大错误？我看还是高级干部。高级干部一旦犯错误，造成的危害大，对党的形象和威信损害大。”这道“篱笆”，首先从中央政治局“扎”起。自中央八项规定出台以来，中央政治局认真贯彻落实，在改进调查研究、精简会议活动、精简文件简报、规范出访活动、改进警卫工作、改进新闻报道、严格文稿发表、厉行勤俭节约等方面，为全党加强作风建设带了一个好头。习近平身体力行：先后十几次国内考察，不封路、不清场、不扰民。习近平对河北省委常委们说，作
22、风面前人人平等，你们要以普通党员身份把自己摆进去，马克思主义手电筒既照别人更照自己。河北省委常委班子专题民主生活会上，有人谈到越野车配备问题。习近平插话：“我看常委们不要配越野车，书记、省长也不要配。真要下乡，就临时调用。”他还说，中央下一步要就此作出规定。很快，河北省委常委们的越野车全部上交。清理超标办公用房，从书记、省长开始。清理“吃空饷”，纪委监察厅先清出个人。但立直标，终无曲影。教育实践活动开展半年多来，干部队伍风气为之一新。各地区各部门纷纷大幅精简会议、文件、考核评比；行政审批普遍提速三成以上；“三公”经费普遍压缩，节庆论坛展会、公费出国团组更是减少了半数以上老百姓拍手说，这回可是来
23、真的了！扎作风“篱笆”，须防微杜渐年月日，“严禁用公款送月饼送节礼”，中央一声令下，商场里高档月饼出现从未有过的滞销。以中央名义管公款月饼，细微之举，显见态度之真、决心之大！天后，习近平在河北省委常委班子专题民主生活会上说，那就是抓月饼里面隐藏的腐败嘛。虽然看起来好像事情不大，但针尖大的窟窿能透过斗大的风，一定要防微杜渐、一尘不染、两袖清风。抓了中秋节抓国庆节，抓了国庆节抓新年，抓了新年抓春节，抓了春节抓清明节、抓端午节，就这么抓下去，总会见效的，使之形成一种习惯、一种风气。抓滥用公款、抓借机敛财、抓冒吃空饷年，河北在全省开展正风肃纪专项行动，共查处违反中央八项规定精神的问题件，处分人。截至年
24、底，全国共查处违反中央八项规定精神的问题起，处理人，给予党纪政纪处分人。习近平说：“办好一件事后再办第二件事，让大家感到我们是能办成事的，而且是认真办事的。这样才能取信于民、取信于全党。”扎作风“篱笆”，要扎严制度的笼子在作风问题上，并非没有“篱笆”，但“四风”乃至腐败行为却屡禁不止，为什么？习近平打了个生动的比方：“牛栏关猫是关不住的，空隙太大，猫可以来去自如。”在教育实践活动中，建章立制，扎紧约束权力的“笼子”。在党员干部直接联系群众、畅通群众诉求反映渠道、厉行节约反对浪费、民主决策和工作落实、干部选拔任用和考核评价等方面，一批党内法规得以建立健全。“红线”划出来了，“高压线”架起来了。每
25、个人都感受到了身边的变化。西柏坡，记者与当地群众座谈。在景区开餐馆的陈素梅说：“公款买单、点大菜的人少了，自掏腰包、点家常菜的散客多了。”“去工商局办事，窗口单位工作人员态度和气了、耐心了。”这是梁家沟村生意人陈习飞的感受。西柏坡村村民闫志强说：“以前都是我们去找干部，现在干部主动来找我们了。”关于作风考题，年前，革命先辈曾留下那个时代的答案。七届二中全会针对党员干部作风的六条规定：一、不做寿；二、不送礼；三、少敬酒；四、少拍掌；五、不以人名作地名；六、不要把中国同志同马恩列斯平列。年月日，习近平在西柏坡这块展板前驻足良久，一一对照：“不做寿，这条做到了；不送礼，这个还有问题，所以反四风要解决
26、这个问题；少敬酒，现在公款吃喝得到遏制，关键是要坚持下去；少拍掌，我们也提倡；不以人名命名地名，这一条坚持下来了；第六条，我们党对此有清醒的认识”是的，在作风问题上，党始终努力保持清醒。从七届二中全会六条规定到中央八项规定，始终绷紧的是作风这根弦，始终保持的是赶考的心态。习近平告诫全党：作风问题关系人心向背，关系党的执政基础。如果解决不好，也有可能出现“霸王别姬”这样的时刻。这一告诫，出自对执政党命运的深刻思考；这一告诫，值得每个共产党人自律和警醒。考题之三：发展轨道正不正？政绩观正确不正确？要坚决把中央关于推动经济社会又好又快发展的要求落到实处，不要顾虑重重、瞻前顾后，更不要为生产总值增长率
27、、全国排位等纠结。要坚持不简单以国内生产总值增长率论英雄。习近平年月日，河北一天内集中爆破拆除家水泥企业。到年，河北将压减万吨钢铁、万吨水泥、万吨煤、万标准重量箱平板玻璃，大幅度砍掉产能。河北发展终于突破重围，开始历史性转轨。发展轨道正不正？政绩观正确不正确？这是一道关键的考题，又是一道复杂的考题。“以国内生产总值论英雄，你们已经排在全国第六位，假如过两天到第五位了，就能一俊遮百丑了吗？全国个污染最严重城市河北占了个。再不下决心调整结构，就无法向历史和人民交代。”在河北省委常委班子专题民主生活会上，习近平一针见血。正是为了全国国内生产总值排名，河北省一再增加钢铁、煤炭、水泥产能。甚至有人戏言，
28、钢产量“中国第一、河北第二、世界第三”。产能在不断增长，利润在不断缩水，污染在不断加重。河北省领导干部不是没有调整的想法和行动，他们在纠结，在犹豫习近平说，河北结构失调，污染严重，群众意见大，要过结构调整的坎，爬转型升级的坡。你们国内生产总值即便滑到第七、第八了，但在绿色发展方面搞上去了，在治理大气污染、解决雾霾方面作出贡献了，那就可以挂红花、当英雄！国内生产总值“紧箍咒”就这样解除了！河北解了套，全国也在松绑。这是一次发展思路的大转变，更是一次政绩观的再升华。“总书记的话，管根本、管长远。”河北省省长张庆伟说，“绿色发展，比追求国内生产总值要难得多，对领导干部素质要求高得多。”他们以这样的方
29、式成功转型被誉为“水泥之乡”的鹿泉，当年韩信“背水一战”的古战场，如今回响着转型发展的集结号。高峰期水泥产能万吨，如今要压掉五分之四；而电子信息产业、物流业、休闲服务业正在崛起。由此，年鹿泉工业用电量下降了亿度，财政收入却增加了亿元。是不是有虚报？有人怀疑。省里、市里派人来查，结果查出一个转型的好典型。尽管国内生产总值增长不再靠前，鹿泉却被评为“年河北省经济发展先进市”，成为石家庄市个市县区唯一一朵“红花”。“红花”盛开，是昙花一现，还是四季常鲜？轨道扭正，是坚持不懈，还是半途而废？在河北省委常委班子专题民主生活会上，习近平再次强调，要发扬钉钉子精神，踏石留印、抓铁有痕，过了一山再登一峰，跨过
30、一沟再越一壑，一张蓝图抓到底。年月日，习近平在中南海听取汇报时，对河北教育实践活动给予充分肯定，他同时说：“调整结构、治理污染，你们是立了军令状的。军中无戏言，到时候就要看结果。”就任总书记以来，面对经济下行压力、国外唱衰中国论调，习近平不为所动。他说，速度再快一点，非不能也，而不为也。我们坚定不移推进转型升级，宁可主动将增长速度降下来一些，也要从根本上解决长远发展问题。一切都源于共产党人全心全意为人民谋幸福的责任。数九寒冬，阜平县骆驼湾村。我们走进一年前习近平曾经来过的唐家小院。屋里没有生火，有点清冷，但炕头收拾得干干净净。一年前的情景又浮现在唐荣斌老人眼前：“那天，总书记就坐在这里，跟俺拉
31、家常。他叮嘱俺把小孙子的教育搞好，说希望在下一代。”唐荣斌一直记着总书记那句话：“只要有信心，黄土变成金！”阜平县委书记郝国赤告诉我们：“总书记来了一年，教育实践活动开展了大半年，咱这里变化不小，变化最大的是人，人的精神状态。”“只要有信心，黄土变成金。”在这个灰暗、冰冷、破旧的房子里，几乎什么都没有，可我们感到一种希望之火在燃烧。唐荣斌心脏不好，需做搭桥手术。看出我们的关切，老汉挥挥手：“总书记来了，心里亮堂了，生活就有盼头了！”接着，他就掰着指头摆他的希望：“与乡亲合伙贷款在山沟里养牛，母牛可以生牛犊，一头小牛犊能卖一万五千块钱”我们的领导干部，应该怎样加倍努力，才能让这希望之火越烧越旺？
32、这是最重要的考题，是共产党人必须答好的考题！考题之四：为了谁？依靠谁？我是谁？我们党来自人民、植根人民、服务人民，党的根基在人民、血脉在人民、力量在人民。失去了人民拥护和支持，党的事业和工作就无从谈起。习近平习近平到河北指导教育实践活动，期间重访塔元庄。他的一举一行、一言一笑，村民回忆起来，仍是那么清晰，仿佛就在昨天。这次重访，乡亲们并不意外。“他上一次来咱这儿是年，那时就说下了：过个三五年，等你们新楼盖好以后，我一定再来。村支书尹小平说。年月日上午，习近平出现在塔元庄街头，村民纷纷围了上来，大声招呼着。“老书记好！”一声特别的问候从人群中传来，习近平转过身，微笑着把手伸向这位村民。喊“老书记
33、”的是岁的章同兵，年前就见过当县委书记的习近平，还记得当时的招待饭是大饼、油条、豆腐脑。我们问，如果现在让你来招待 基础会计形成性考核册作业答案习题一短期借款期末余额：10000；低值易耗品期末余额：40000；现金本期借方发生额合计：15000；应收账款本期贷方发生额合计：3000；应付账款期初余额：600（借方）；实收资本本期贷方发生额合计：30000；银行存款期末余额：16000；其他应付款期末余额：2400。习题二1、借：银行存款 100000贷：实收资本 1000002、借：银行存款 50000贷：长期借款 500003、借：固定资产 100000贷：银行存款 1000004、借：原
34、材料 4500贷：银行存款 4000 应付账款 5005、借：现金 5000贷：银行存款 50006、借：营业费用 1530贷：银行存款 1500 现金 307、借：管理费用 1200贷：现金 12008、借：银行存款 20000贷：主营业务收入 200009、借：应收账款 400贷：主营业务收入 40010、借：营业费用 400 管理费用 50贷：银行存款 45011、借：主营业务成本 6000贷：原材料 600012、借：主营业务税金及附加 1200贷：应交税金应交营业税 1200借：应交税金应交营业税 1200 贷：银行存款 120013、借：现金 4000贷：银行存款 400014、借
35、：营业费用 4000贷：现金 400015、借：主营业务收入 20400贷：本年利润 2040016、借：本年利润 14380贷：主营业务成本 6000 主营业务税金及附加 5930营业费用 1250管理费用 1200习题三要求1、根据资料（一）在各帐户登记期初余额要求2、根据资料（二）的会计分录过入各有关帐户要求3、分别结出各帐户的本期发生额和期末余额注：为节省篇幅，本题三个要求都在涉及到的账户中一次完成借方 现金 贷方 借方 银行存款 贷方期初余额 2000 30 期初余额 50000 100000 5000 1200 100000 4000 4000 4000 50000 5000本期借
36、方发生额 本期贷方发生额 20000 1500 9000 5230 450期末余额 5770 1200 4000 本期借方发生额 本期贷方发生额 170000 116150 期末余额 103850借方 固定资产 贷方 借方 原材料 贷方期初余额 40000 期初余额 8000 6000 100000 4500 本期借方发生额 本期借方发生额 本期贷方发生额 100000 4500 6000期末余额 140000 期末余额 6500借方 长期借款 贷方 借方 实收资本 贷方 50000 期初余额 100000 本期贷方发生额 100000 50000 本期贷方发生额 100000 期末余额 50000 期末余额 200000
