第一篇：VB笔试复习题
学参教育东北林业大学考研网http://
笔试复习题
笔试占总分的50％、平时占10％、上机占40％。
笔试时间为1小时。四道大题为：程序填空、程序运行结果、程序段功能、编程题
复习范围
随机整数[A,B]
公式：Int(Rnd*(B-A+1)+A)1． 循环
（1）打印三角形 方法一：用单重循环 Private Sub Form_Click()For i = 1 To 8
Print Tab(151, “*”)Next i End Sub
方法二：用多重循环 Private Sub Form_Click()For i = 1 To 8 Print Tab(151 Print “*”;Next j Print Next i End Sub
（2）求积数部分和
P88 例4.18p268习题3Private Sub Form_Click()Dim s!,i%,t!i=1:t=2:s=
1Do while 1/t>0.0001
s=s+1/t i=i+1 t=t+iLoop
Print “共计算”;i-1;“项”Print “s=”;s End Sub
（3）求100到200之间的所有素数。Private Sub Form_Click()Dim t As Boolean
For x = 101 To 200 Step 2 t = True
For i = 2 To xx * 100)/ 10)z = iy * 10
If i = x * x * x + y * y * y + z * z * z ThenPrint i, End If Next i End Sub
(6)最大值、最小值。2． 数组(1)排序
P106 例5.5 从小到大排序
Private Sub Form_Click()
学参教育东北林业大学考研网http://
Dim a()As Integer n = Val(InputBox(“n”))ReDim a(1 To n)As Integer Randomize For i = 1 To n
a(i)= Int(Rnd * 101 + 100)Print a(i);
If i Mod 10 = 0 Then Print Next i
For i = 1 To n1
s(i, j)= s(i1)+ s(i2 * i + 4 * j);s(i, j);Next j
Picture1.Print Next i End Sub 3． 过程
（1）s=4!+5!+6!
Private Sub Form_Click()Print fax(4)+ fax(5)+ fax(6)End Sub
Private Function fax(k As Integer)As Single t = 1
For i = 2 To k t = t * i Next i fax = t
End Function
（2）回文数P2784
Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then
If Not IsNumeric(Text1)Then
MsgBox “输入非数字串，重新输入”Text1.Text = “"Text1.SetFocusElse
If IsH(Text1)Then
Picture1.Print Text1;” ★ “Else
Picture1.Print Text1End IfText1 = ”"End IfEnd If End Sub
Function IsH(ss As String)As BooleanDim i%, Ls%IsH = Truess = Trim(ss)Ls = Len(ss)
For i = 1 To Ls 2
If Mid(ss, i, 1)<> Mid(ss, Ls + 1-i, 1)ThenIsH = FalseExit FunctionEnd IfNext i End Function
4． 文件(要求掌握随机文件)讲稿中例题
第二篇：VB复习题(含答案)
综 合 测 试 题
一、单选题
1.窗体的标题栏显示内容由窗体对象的(D)属性决定。
A.BackColor
B.BackStyle
C.Text
D.Caption 2.下列不能作为VB中的变量名的符号是(C)。
A.A45
B.P12
C.89Ta
D.x 3.只能删除字符串尾部空格的函数是(B)。
A.Ltrim
B.Rtrim
C.Trim
D.Mid 4.如果在菜单栏中添加１条分隔线，则应将其Caption属性设置为(D)。
A.＝
B.*
C.&
D.-5.用下面语句定义的数组的元素个数是(D)。
Dim A(-3 To 5)As Integer A.6
B.7
C.8
D.9 6.设a=2，b=3，c=4，d=5，下列表达式的值是(B)。
a>b And c<=d Or 2*a>c A.True
B.False
C.-1
D.1 7.下列关于控件画法的叙述错误的是(D)。
A.单击一次工具箱中的控件图标，只能在窗体上画出一个相应的控件
B.按住CTRL键后单击一次工具箱中的控件图标，可以在窗体上画出多个相同类型的控件
C.双击工具箱中的控件图标，所画控件的大小和位置是固定的D.我们使用的控件只能是工具箱中的标准控件
8.应用程序设计完成后，应将程序保存，保存的过程是（D)。
A.只保存窗体文件即可
B.只保存工程文件即可
C.先保存工程文件，之后保存窗体文件
D.先保存窗体文件(或标准模块文件)，之后还要保存工程文件 9.假定有一个菜单项，名为MenuItem，为了在运行时使该菜单项失效(变灰)，应使用的语句为（A)。
A.MenuItem.Enabled=False
B.MenuItem.Enable=True C.MenuItem.Visible=True
D.MenuItem.Visible=False 10.在一个语句内写多条语句时，每个语句之间用(B)符号分隔。
A.，B.：
C..D.；
11.已知A$=”abcdefghijklmn”,则表达式Left$(A$,4)+Mid$(A$,4,2)的值为(B A.abcdef
B.abcdde
C.abccde
D.abcdefg 12.赋值语句:a=123+MID(”123456”,3,2)执行后,a变量中的值是(D)。
A.”1234”
B.123
C.12334
D.157 13.下面程序运行后，显示的结果是(B)。Dim x X=true If x Then Print x+1 A.1
B.0
C.true
D.显示出错信息 14.下面程序段，显示的结果是(A)。
Dim x X=1 X=int(Rnd)+5 Select Case x
Case 5
Print“优秀”
Case 4
Print“良好”
Case 3
Print“通过”
Case Else
Print“不通过” End Select A.优秀
B.良好
C.通过
D.不通过)。
15.VB 提供了结构化程序设计的三种的基本机构，三种基本结构是(D)。
A.递归结构、选择结构、循环结构 B.选择结构、过程结构、顺序结构 C.过程结构、输入、输出结构、转向结构 D.选择结构、循环结构、顺序结构
16.下列循环语句能够正常结束循环的是(C)。
A.I=5 Do
I=I+1 Loop until I<0 B.I=1 Do
I=I+2 Loop until I=10 C.I=10 Do
I=I-1 Loop until I<0 D.I=6 Do
I=I-2 Loop until I=1 17.以下程序输出结果是(A)。
Option Base 1 Private Sub Command1_click()Dim a%(3, 3)For i = 1 To 3 For j = 1 To 3 If j > 1 And i > 1 Then a(i, j)= a(a(i1), a(i, j-1))+ 1 Else a(i, j)= i * j End If Print a(i, j);“";Next j Print Next i End Sub A.1 2 3
B.1 2 3
C.1 2 3
D.1 1 1 3 1 2 3
4 6
2 2 2 3 2 3
6 9
3 3 18.定时器的Interval属性以（C)为单位指定Timer事件之间的时间间隔。
A．分
B．秒
C．毫秒
D．微秒
19.可以惟一标识控件数组中的每一个控件的属性是(A)。
A．Name
B．Caption
C．Index
D．Enabled 20.在下列关于通用对话框的叙述是错误的是(B)。
A.CommonDialog1.ShowFont显示字体对话框
B.在打开或另存为对话框中，用户选择的文件名可以经FileTitle属性返回
C.在文件找开或另存为对话框中，用户选择的文件名及其路径可以经FileName属性返回
D.通用对话框可以用来制作和显示帮助对话框 21.InputBox函数返回值的类型为(B)。
A.数值 B.字符串
C.变体 D.数值或字符串(视输入的数据而定)22.下面关系表达式的值为真的是(C)。
A.”A“>”a“ B.”9“>”a“ C.”That“>”Thank" D.12>12.1 23.为了把焦点移到某个指定的控件，所使用的方法是（A)。
A.SetFocus B.Visible C.Refresh D.GetFocus 24.设a=6，则执行x=IIF(a>5,-1,0)后，x的值为（D)。
A.5 B.6 C.0 D.-1 25.以下语句错误的是(B)。
A.If a=1 And b=2 then C=3 End If B.If a=1 Then C=2 ElseIf a=2 Then C=3 C.c=IIF(a=1,2,3)D.If a=1 Then C=2 ElseIf a=2 Then C=3 End If 26.有如下程序：
Sub sub1(x,y)X=2*x Y=3*y End sub Private sub command1_click()A=1:b=1 Call sub1(a,b)Print “A=”;a;”,B=”;b
End sub 程序运行后的输出结果是（B)。
A.A＝1，B＝B.A＝2，B＝3 C.A＝1，B＝3 D.A＝2，B＝1
二、填空题
1.Visual Basic中工程文件的扩展名是(vbp)；窗体文件的扩展名是(frm)。2.为了使标签能自动调整大小以显示全部文本内容，应把标签的(autosize)属性设置为True。
3.能将字符串中的小写字母转换成大写字母的函数是（ucase)。4.数学表达式 3x+2^3，写成VB表达是（3*x+2^3)。
5.过程和函数中的参数的传递方式有(byval)和(byref)两种。
6.若要终止窗体的运行，可使用(unload)命令；若要将窗体Form1显示出来，可使用方法(Form1.show)来实现。
三、写成程序结果
1.在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()b=1 a=2 Do While b<10 B=2*a+b Loop Print b End Sub 程序运行后，输出的结果是（）。2.有如下程序：
Private Sub Command1_Click()S=0 Do s=(s+1)*(s+2)N=N+1 Loop Until s>=10 Print N；s End Sub 运行后的输出结果是(2 12)。3.有如下函数过程
Function gys(byval x as integer, byval y as integer)as integer do while y<>0 remainder=x/y x=y y=remainder loop gys=x End function 以下是调用该函数的事件过程，该程序的运行结果是什么(Private sub command7_click()Dim a as integer Dim b as integer A=10 B=2 X=gys(a, B)Print x End sub)。
第三篇：政工师笔试复习题
政工师笔试复习题
1、党章对党的群众路线的表述：“党在自己的工作中实行群众路线，一切为了群众，一切依靠群众，从群众中来，到群众中去，把党的正确主张变为群众的自觉行动。”
2、党的群众路线教育实践活动的指导思想是什么？
答：高举（中国特色社会主义伟大旗帜），坚持以（马克思列宁主义）、（毛泽东思想）、（邓小平理论）、（“三个代表”）重要思想、（科学发展观）为指导，紧紧围绕（保持党的先进性和纯洁性），以（为民务实清廉）为主要内容，以（县处级以上领导机关、领导班子和领导干部）为重点，切实加强(全体党员马克思主义群众观点)教育，把(贯彻落实中央八项规定)作为切入点，进一步突出(作风)建设，坚决反对(形式主义、官僚主义、享乐主义和奢靡之风)，着力解决(人民群众反映强烈的突出问题)，提高(做好新形势下群众工作)的能力，保持(党同人民群众的血肉联系)，发挥(党密切联系群众)的优势，为推动(经济持续健康发展)、(全面建成小康社会)、(实现中华民族伟大复兴的中国梦)提供坚强保证。
3、在全党深入开展党的群众路线教育实践活动的重大意义是(实现党的十八大确定的奋斗目标)的必然要求，是(保持党的先进性和纯洁性、巩固党的执政基础和执政地位)的必然要求，是(解决群众反映强烈的突出问题)的必然要求。
4、开展党的群众路线教育实践活动的总要求是要落实(“照镜子、正衣冠、洗洗澡、治治病”)的总要求
5、开展党的群众路线教育实践活动必须突出(“为民务实清廉”)这个主题；必须紧紧围绕(“保持党的先进性和纯洁性”)这条主线。
6、教育实践活动的主要目标任务是什么？
答：教育引导党员干部(树立群众观点)，弘扬(优良作风)解决(突出问题)，保持(清廉本色)，使(干部作风)进一步转变，(干群关系)进一步密切，(为民务实清廉)形象进一步树立。
7、开展教育实践活动要求牢牢把握的基本原则是：（正面教育）（批评和自我批评）（讲求实效）（分类指导）（领导带头）
8、在新的历史条件下，我们党面临“四大考验”是（执政）（改革开放）（市场经济）（外部环境）
9、在新的历史条件下，我们党面临“四大危险”是（精神懈怠）（能力不足）(脱离群众)（消极腐败）
10、党的作风建设包括（思想作风）（学风）（工作作风）（领导作风）（干部生活作风）建设。
11、党的群众路线教育实践活动主要任务聚焦到（作风建设）上
12、深入开展党的群众路线教育实践活动要解决的突出问题是要着力解决（形式主义）(官僚主义)(享乐主义)和(奢靡之风)“四风”问题。
13、党的作风状况，关系党的形象，关系人心向背，还关系着(党的生死存亡)，关系(国家的前途命运)。
14、党的群众路线包括哪两层含义？
答：一是(人民群众)是历史的创造者；二是党必须(倾听群众的意见)、(了解群众的要求)、(集中群众的智慧)，形成(正确的理论和政策)，然后，再(宣传群众)、(发动群众)、(组织群众)，在人民群众的实践中实现(人民群众的根本利益)。
15、这次党的群众路线教育实践活动为什么聚焦到“四风”方面？
答：因为这“四风”是违背我们党的性质和宗旨的，是当前群众深恶痛绝、反映最强烈的问题，也是损害党群干群关系的重要根源。党内存在的其他问题都与这“四风”有关，或者说是这“四风”衍生出来的。“四风”问题解决好了，党内其他一些问题解决起来也就有了更好条件
16、反对形式主义要着重解决什么问题？ 答：反对形式主义，要着重解决工作不实的问题，教育引导党员、干部改进学风文风会风，改进工作作风，在大是大非面前敢于担当、敢于坚持原则，真正把心思用在干事业上，把功夫下到察实情、出实招、办实事、求实效上。
17、形式主义的实质和根源是什么？
答:形式主义实质是主观主义、功利主义，根源是政绩观错位、责任心缺失，用轰轰烈烈的形式代替了扎扎实实的落实，用光鲜亮丽的外表掩盖了矛盾和问题。
18、反对官僚主义要着重解决什么问题？
答：反对官僚主义，要着重解决在人民群众利益上不维护、不作为的问题，教育引导党员、干部深入实际、深入基层、深入群众，坚持民主集中制，虚心向群众学习，真心对群众负责，热心为群众服务，诚心接受群众监督，坚决整治消极应付、推诿扯皮、侵害群众利益的问题。
19、官僚主义的实质和根源是什么？
答:官僚主义实质是封建残余思想作祟，根源是官本位思想严重、权力观扭曲，做官当老爷，高高在上、脱离群众，脱离实际。
20、反对享乐主义要着重解决什么问题？
答：反对享乐主义，要着重克服及时行乐思想和特权现象，教育引导党员、干部牢记“两个务必”，克己奉公，勤政廉政，保持昂扬向上、奋发有为的精神状态。
21、享乐主义的实质和根源是什么？
答:享乐主义实质是革命意识衰退、奋斗精神消减，根源是世界观、人生观、价值观不正确，拈轻怕重，贪图安逸，追求感官享受。
22、反对奢靡之风要着重解决什么问题？
答：反对奢靡之风，要着重狠刹挥霍享乐和骄奢淫逸的不良风气，教育引导党员、干部坚守节约光荣、浪费可耻的思想观念，做到艰苦朴素、精打细算，勤俭办一切事情。
23、奢靡之风的实质和根源是什么？
答:奢靡之风实质是剥削阶级思想和腐朽生活方式的反映，根源是思想堕落、物欲膨胀，灯红酒绿，纸醉金迷。
24、教育实践活动要调动(领导干部)和(广大群众)两个积极性
25、教育实践活动要打牢(学习教育)和(查摆问题)两个基础
26、教育实践活动要抓住(整改落实)和(建章立制)两个关键
27、各级领导干部在教育实践活动中的身份地位是什么？
答：各级领导干部既是活动的组织者、推进者、监督者，更是活动的参与者。
28、群众路线教育实践活动中如何调动领导干部和广大群众两个积极性？
答：调动领导干部和广大群众两个积极性，首先是领导干部要有正确的态度和明确的姿态，让群众看到(自己敢于正视并解决问题的决心)，看到(自己拜群众为师、向群众求教的襟怀)，看到(自己以身作则、发挥示范带头作用的行动)。同时要(加强对群众的领导)，激发群众关心党的形象)，(关心党的事业)，(关心领导干部健康成长)的责任感，自觉打消顾虑，把想讲的话讲出来，把该提的意见提出来，真心帮助领导干部改进提高。
29、教育实践活动“四个进一步”的目标，主要让领导干部从思想上明白自己的公仆身份，自觉摆正自己的位置，站稳群众立场，增进同群众的感情，克服一切脱离群众、违背群众意愿、损害群众利益的私心杂念。
30、教育实践活动“四个进一步”的目标，主要从行动上解决问题是：要端正作风，端正行为，做一个堂堂正正的人，做一个合格的共产党员，做一个称职的干部。
31、在教育实践活动中自始至终做到“三严”是指严的标准、严的措施、严的纪律
32、对“四风”方面存在的突出问题，要从理想信念、宗旨意识、党性修养、道德品行等方面认清实质、深挖根源。
33、中央提出的“八项规定”主要内容是什么？（1）改进调查研究（2）精简会议活动3）精简文件简报（4）规范出访活动（5）改进警卫工作（6）改进新闻报道7）严格文稿发表8）厉行勤俭节约
34、十八大报告中提出的两个百年奋斗目标是什么？
答：中国共产党成立一百年时全面建成小康社会，在新中国成立一百年时建成富强民主文明和谐的社会主义现代化国家。
35、中国特色社会主义事业“五位一体”总体布局是经济建设、政治建设、文化建设、社会建设、生态文明建设。
36、党的建设“五位一体”总体布局是思想建设、组织建设、作风建设、反腐倡廉建设、制度建设。
37、社会主义的核心价值观的内涵是什么？
答：：富强、民主、文明、和谐是国家层面；自由、平等、公正、法治是社会层面；爱国、敬业、诚信、友善是个人层面。
38、科学发展观的精神实质是解放思想、实事求是、与时俱进、求真务实。
39、党的十八大提出建设“三型”政党，分别是学习型、服务型、创新型的马克思主义执政党。
40、中共静海县委十届六次全会的主要任务是什么？
答：认真贯彻党的十八大、十八届三中全会和市委十届三次、四次全会精神，总结2013年工作，部署2014年任务，进一步动员全县广大干部群众，抢抓机遇，攻坚克难，为加快建设美丽静海、实现静海崛起而努力奋斗。41、2013年，静海县的主要经济指标是：实现生产总值476亿元，增长23%；财政收入106.6亿元，增长25.4%。一般预算收入42.2亿元，增长25.6%；全社会固定资产投资500亿元，增长25%；农民人均可支配收入14987元，增长16%。
42、到2016年和2020年，静海县发展的预期目标是：到2016年，地区生产总值突破1000亿元，财政收入达到220亿元，农民人均可支配收入超过2万元，万元生产总值能耗和二氧化碳排放比“十一五”末分别下降20%和18%，林木绿化率达到48%，水污染问题得到根本治理，天蓝地绿水清的生态环境基本形成，整体发展步入全市前列。经过全县人民的不懈奋斗，到2020年，把静海建设成为经济更加繁荣、社会更加文明、科教更加发达、设施更加完善、环境更加优美的现代化中等城市，实现市委、市政府对静海的发展定位。
43、2013年，静海县获得了哪些国家级荣誉称号（请列举三个以上）？
答：子牙产业区被国务院批准为国家级循环经济区，林海循环经济示范区被林业部确定为国家林下经济示范基地，静海县五金制品示范基地被商务部命名为国家级五金制品出口基地，静海县荣获全国基层文化先进县称号，自行车产业园被国家自行车协会命名为中国自行车(电动车)产业基地。44、2013年，静海县新增科技型中小企业252家、科技“小巨人”企业21家。
45、2013年，静海县建成市级“亿元楼宇” 5 座，注册企业达到1205家 46、2013年，静海县新建设施农业6000亩、规模化标准养殖项目15个，发展市级以上农业龙头企业5家。47、2013年静海县新发展农民专业合作社481个，全县农民专业合作社累计达到1083个
48、截止到2013年底，静海县林木覆盖率45%，位居天津平原区县之首。
49、2013年，静海县升级改造了哪些道桥基础设施建设？
答：2013年，静海县完成了东方红路地道改建、津王公路团泊大桥改造等16项重大路桥工程。静海新城新建改造宇纬路、瑞合道、星华路等7条道路，硬化改造27条胡同里巷。团泊新城建成中央大道二期等17条主支干路。50、2013年，静海县7个国家级美丽乡村试点全面启动，18个市级美丽乡村试点、32个清 洁村庄试点初步建成。
7个国家级美丽乡村试点全面启动：陈官屯镇东钓台村、西钓台村，静海镇范庄子村，台头镇南二堡村、中二堡村、北二堡村，唐官屯镇赵官屯村。
18个市级美丽乡村试点：梁头镇肖民庄、蔡公庄镇惠丰前，中旺镇团瓢村、罗庄子村，独流镇南肖楼，唐官屯镇郑家庄等。
32个清洁村庄试点：双塘镇东双塘、董莫院，陈官屯镇潭村、西长屯，唐官屯镇前小屯、后小屯等。51、2013年静海县实施了以“一线、两路、两街、三节点”为重点的市容改造提升工程。
52、2013年，用于民生领域的财政性投入达到43.5亿元。
53、2013年，静海县级养老服务中心主体完工，新建扩建6所老年日间照料中心，西双塘枫林湾老年城一期完工。54、2013年，静海县新改扩建46所幼儿园和中小学，完成55所学校和165所村办幼儿园达标提升，连续三年培养出全市高考状元。
55、2013年，静海县卫生服务项目有什么新进展？
答：县医院改扩建二期和疾控中心、妇女儿童保健中心新建项目稳步推进，110所标准化村级卫生室投入使用。
56、2013年，静海县党员干部走访群众19.2万户次，解决问题5.6万件次，提供帮扶资金4100万元。57、2013年静海县举办了哪些市级和国家级的重大活动？
答：萨马兰奇纪念馆成功开馆，圆满完成了第6届东亚运动会57场赛事协办任务，成功举办了第四届环中国国际公路自行车赛天津健康产业园赛段赛事及颁奖仪式和天津市第五届环团泊湖自行车赛。58、2013年，静海县严格落实中央八项规定，深入开展正风肃纪活动取得了哪些成效？
答：全县精简会议活动86次，精简文件简报1007件；对全部违规借用、调用、换用、占用公务用车进行了清理封存，违规办公用房得到了全部清退；公务和出国出境考察费用同比下降22.5%和33.8%；会员卡做到了“零持有、零报告”。59、2013年静海县民营投融资企业达到16家，县域企业融资规模达到35亿元。60、2013年，静海县新增总部企业150家，总部经济实现税收8.5亿元。61、静海县2014年工作指导思想和目标要求是什么？
答：高举中国特色社会主义伟大旗帜，以邓小平理论、“三个代表”重要思想、科学发展观为指导，全面贯彻落实党的十八大和十八届二中、三中全会、中央经济工作会议和市委十届三次、四次全会精神，坚持稳中求进、改革创新，着力稳增长、调结构、护生态、惠民生、保稳定，全面推进社会主义经济、政治、文化、社会、生态文明和党的建设，加快建设美丽静海，加快推进崛起进程，努力实现更高水平的发展。
62、2014年静海县主要经济目标是什么？
答：生产总值571亿元，增长20%；三级财政收入130亿元，增长22%，其中一般预算收入51.5亿元，增长22%；固定资产投资625亿元，增长25%；农民人均可支配收入17235元，增长15%。
63、建设美丽静海，必须坚持“四个理念”是坚持绿色、循环、低碳、健康发展理念、瞄准“四大定位”是全面建设国家级循环经济区、区域物流中心、健康产业基地和生态宜居城市，这是静海发展的总目标；完善“四层布局”是强化“两城三区六园一带”主战场作用，这是静海发展的总布局；、培育“六大产业”是培育和壮大（先进制造）、（循环经济）、（现代物流）（都市农业）、（健康产业）、（文化旅游）六大产业，这是静海发展的总抓手。64、建设美丽静海，必须坚持 “三大发展”是（持续发展）、（特色发展）、（科学发展）。65、2014年，静海县要突出抓好的六项重点工作是
一、全力抓招商上项目；
二、大力调整产业结构
三、加快推进新型城镇化
四、积极推进重点领域改革
五、强力推进生态治理。
六、着力保障和改善民生。66、2014年，静海县重点园区、乡镇的投资、税收指标分别是多少？
答：年内开发区要确保完成投资131亿元，税收13.5亿元；子牙产业区投资93.7亿元，税收11亿元；大邱庄镇投资91亿元，税收14亿元；静海镇投资67.3亿元，税收5.5亿元。67、2014年，静海县重点培育壮大哪几个产业？
答：循环产业、健康产业、现代物流业、先进制造业、文化旅游业 68、2014年，静海县全年用于改善民计民生的财政性投入56亿元，增长30%。着力推进民生改善，着力发展社会事业，优化公共卫生服务，着力加强道德建设，着力强化社会管理。69、如何加快产业转型升级，增强经济发展内生动力？
答：
一、全力抓好招商引资和项目建设。
二、大力发展循环经济和现代物流业。
三、加快发展先进制造业。
四、培育发展健康产业和文化旅游产业。
五、积极发展都市农业。70、静海县计划在三年内把优质钢材、高档自行车（电动车）、汽车零部件（整车）产业打造成千亿级、百亿级产业 71、2014年，静海县将重点加快哪些物流项目建设？
答：翰吉斯国际农产品交易市场（一期）和义乌商贸城（一期）开业运营，翰吉斯拓展区和义乌商贸城配套商业街开工建设。红星美凯龙一期完成主体封顶，二期开工建设。金朝阳电动自行车交易市场一期竣工，利达粮油二期完成基础施工。铁路货场建成并投入运营，盛唐物流项目总部区一期竣工。
72、静海县加强体制机制创新的具体措施：一是深化重点领域和关键环节改革。二是转变政府职能。三是推进金融体制改革。73、2014年，静海县要构建“（两城）、（重点镇）、（示范镇）、（新型社区）、（美丽乡村）五位一体的城镇发展格局。74、2014年，静海县将新建4座、改造提升2座污水处理厂，建成年处理30万吨的废酸处置中心3个。
75、静海县要怎样统筹城乡一体发展，提升新型城镇化质量？
答：
一、完善区域规划布局。
二、加快城市功能开发。
三、加快示范小城镇和美丽乡村建设。
四、加快城乡基础设施建设。76、2014年，静海县将构建什么样的旅游产业链？
答：以“林河湖泉”为载体，整合文化旅游资源，积极打造以光合谷为主的田园综合体、以萨马兰奇纪念馆为主的文化创意综合体、以林海为主的生态旅游综合体，加快开发团泊湖及环湖地区旅游观光，培育“食住行游购娱”为一体的旅游产业链。77、2014年，静海县提出的“四园一带”具体指林海、南海、团泊、大邱庄农业园区和龙海产业带。
78.、2014年，静海县计划新增设施农业5000亩，改造提升5000亩，新增5000亩以上林下经济。
79、“美丽天津?一号工程”的具体内容是：“四清一绿”，即：（清新空气）、（清水河道）（清洁村庄）、（清洁社区）和（绿化美化）。
80、静海县加快推进“美丽天津?一号工程”的具体措施是：
一、搞好污染治理。
二、推进节能减排。
三、推进植树绿化。
四、提升城乡市容环境。81、2014年，静海县全面开展清新空气行动中，将扎实推进 “控煤”、“控污”、“控尘”、“控车”、“控点”五控工程。
82、2014年，静海县将建成325个清洁村庄 83、2014年，静海县将投入15亿元，用于污染治理和环境改造。
84、政府工作报告中指出，加强政府自身建设，要做到执政为民、履职尽责、转变作风、依法行政、廉洁从政。
85、静海县高度关注改善民生，具体措施有
一、办好人民满意的教育。
二、提高人民健康水平。
三、千方百计增加居民收入。
四、推进社会保障体系建设。86、2014年，静海县10项民心工程包括(1)加强生态环境建设(2)着力促进农民增收(3)方便城乡居民出行(4)完善市政公用设施(5)提升城乡人居环境(6)积极拓宽就业渠道(7)健全社会保障体系(8)办好人民满意教育(9)发展文化体育事业(10)优化公共卫生服务。
87、2014年，静海县加强生态环境建设将采取哪些举措？
答：(1)实施有色金属熔炼企业烟尘、餐饮业油烟和建筑工地扬尘污染治理。(2)全面禁止秸秆露天焚烧。综合整治马路餐桌和露天烧烤。(3)完成17座加油站油气回收治理和35台锅炉煤改燃任务。(4)新建污水处理厂4座、改造2座。新建3座废酸处理中心，完成18个废弃酸坑治理。(5)重点涉污企业全部实现在线视频监控。(6)搞好294家重点排污企业源头治理。治理规模化养殖场22家。(7)更新改造扬水站4座，清淤河道5条41公里。(8)植树造林8万亩。完成运东排干、港团河、团泊大道、205国道、津文路绿化工程。加快农田林网和片林建设，进一步提高绿化覆盖率。88、2014年，静海县促进农民增收的具体措施有哪些？
答：(1)新建设施农业5000亩。建设放心菜基地1.6万亩、蔬菜标准园1500亩。(2)发展特色种植7万亩，推广中药材种植1万亩。(3)新建9个标准化规模养殖场和18个肉鸡养殖基地。(4)新增高效节水灌溉面积2万亩、高标准农田2.2万亩。(5)新发展农民专业合作社100家，规范提升50家。89、2014年，静海县方便城乡居民出行有哪些具体举措？
答：(1)实施静海新城21个旧楼区和30条街道里巷改造。启动东方红路西段拓宽改造工程，实施旭华道、朝阳道等8条道路新建改建，实现城区部分道路与环线贯通。(2)完成团泊新城20条主干道路建设，规划建设公交场站。(3)实施新104国道北段改建等18项道路和绿化工程。大修乡村公路100公里，改造桥梁2座。(4)增加公交线路车次，规范客运、货运出租车市场。巩固电动三轮车治理成果。
90、2014年，静海县完善市政公用设施具体有哪些举措？
答：(1)完成联盟大街、南纬二路雨污分流工程，新建于庄子、刘官庄雨水泵站。(2)建成团泊新城西区供水加压泵站和唐官屯物流园供水站。(3)实施静海500千伏、子牙产业区220千伏等8项输变电新建增容工程。(4)加快燃气管网建设，扩大燃气覆盖面，新建燃气场（站）4个，铺设管网276.48公里，新增燃气居民用户11960户。(5)加快城区供热设施建设，提高热源保障能力。91、2014年，静海县提升城乡人居环境具体有哪些举措？
答：(1)整治联盟大街和火车站周边环境，完善东方红路灯光夜景。(2)实现城区居委会和物业管理全覆盖。搞好3个示范居委会建设和13个社区环境卫生整治工作。(3)建设静海新城春曦道街区公园和团泊新城3座市政公园。新建公厕30座、垃圾转运站4座。(4)实施垃圾、柴草、坑塘、污水集中治理，整治村内坑塘412个，创新乡村垃圾、污水处理新模式，完善乡村环境卫生长效管理机制。(5)建成清洁村庄325个，其中国家级美丽乡村8个、市级美丽乡村22个。92、2014年，静海县健全社会保障体系具体有哪些举措？
答：(1)继续推进城乡居民基本养老保险和基本医疗保险扩面。(2)完成养老服务中心、残疾 6 人康复托养服务中心和7所老年日间照料中心建设，整合16所乡镇敬老院。(3)加大济贫解困力度，全年完成社会救助2.6万人。93、2014年，静海县办好人民满意教育具体有哪些举措？
答;实施一中扩建、六中迁建、八中新建工程，完成实验小学扩建和唐官屯、独流中学续建工程，新建扩建35所幼儿园。完成115所学校、幼儿园达标提升工作。推进国家级职成教育示范县建设。94、2014年，静海县发展文化体育事业将做好哪几项重点工作？
答：承办天津市首届文化旅游节，举办静海县第六届文化艺术节。继续办好环团泊湖自行车赛。规划启动县文体中心建设。95、2014年，静海县优化公共卫生服务具体有哪些举措？
答：(1)完成县医院急诊综合楼、教学楼、停车楼和城关卫生院改扩建工程，启动东城区二级医院建设。(2)新建疾控中心和妇女儿童保健中心，村级卫生室全部启用。(3)设立困难家庭大病救助专项资金。加大对计生家庭和失独家庭的奖扶特扶力度。(4)加强食品药品市场监管，营造我县食品药品安全小环境，确保让老百姓吃上放心食品和安全药品。
96、2014年，静海县将启动哪些交通重点工程建设？
答：完成新104国道北段改建、静陈路南延、津文路大修等建设工程，大修和改建乡村公路100公里，进一步提升“十纵七横一环十二射”路网辐射能力。97、2014年，静海县加强党的建设的重点工作有
一、开展群众路线教育实践活动。
二、思想政治建设。
三、领导班子和干部队伍建设。
四、基层党组织和党员队伍建设。
五、作风建设。
六、反腐倡廉建设。
98、县委十届六次全会对干部作风建设提出了哪些要求？
答：一要坚决贯彻县委、县政府的决策部署，绝不允许推推动动、拨拨转转，确保政令畅通；二要求真务实，真正把心思用在研究问题、解决问题、推动工作上；三要心系群众，以优良的作风凝聚民心，取信于民。
99、.县委十届六次全会对加强党风廉政提出了哪些具体要求？
答：一是要以整风精神锲而不舍抓好八项规定的落实；二是要重点加大对窗口单位和服务行业不良风气的整治力度，树立党和政府的良好形象；三是要保持惩治腐败高压态势，坚决查处领导干部违纪违法案件，增强惩治的威慑力。
第四篇：《vb程序设计》期末复习题及答案范文
《vb程序设计》期末复习题及答案
一、填空题
1．创建一个VB应用程序三个主要的步骤是_(创建应用程序界面)、_(设置属性_)和_(_编写代码__)__。
2．当程序运行时，要求窗体中的文本框呈现空白，则在设计时，应当在此文本框的__属性________窗口中，把此文本框的____text_________属性设置成空白。
3．Label和TextBox控件用来显示和输入文本，如果仅需要让应用程序在窗体中显示文本信息，可使用___label________控件；若允许用户输入文本，则应使用__textbox___________控件。4．窗体的常用方法有_load方法 Show方法 Hide方法_ Unload方法_。
5．要想在代码中给名为txtshow的文本框赋予文本：GOOD WORK，应当编写的语句是_（txtshow.text=“GOOD WORK”_）。
6．若命令按钮的名称为Cmdopen，程序要求单击该命令按钮时，打开一个窗口frm1，请对以下事件过程填空。Private Sub Cmdopen_ _click()__________ _frm1.show_ End Sub 7．Visual Basic 6种类型的表达式是_（算术表达式_）（字符串表达式）（关系表达式）（布尔表达式）（日期表达式）（对象表达式）。Visual Basic根据表达式的_．1 _运算符__来确定表达式的类型。
8．表达式93 7 Mod 2 ^ 2 的值是___________。
9．已知a=3，b=4，c=5，表达式a>b and Not c>a Or c>b And c 10．日期表达式 #2/24/02#y ^ 2)/(2 * x)___。 12．设某个程序中要用到一个二维数组，要求数组名为A，类型为字符串类型，第一维下标从1到5，第二维下标从-2到6，则相应的数组声明语句为_（Dim A(1 To 5，-2 To 6)As String）_。13．事件就是在对象上所发生的事情，Visual Basic中的事件如__单击_________、_双击__________、_装载_____________等。一个对象响应的事件可以有_多____个，用户不能建立新的事件。事件过程是指_（响应某个事件后所执行的程序代码）_。假设某一事件过程如下： Private Sub cmd1_Click()Form1.Caption=“VB示例” End Sub 则响应该过程的对象名是_cmd1_____________，事件名是_____click________。 14．对象的方法用于(_完成某种特定的功能__)。当方法不需要任何参数并且也没有返回值时，调用对象的方法的格式为_(对象名.方法名)_，例如，对窗体Form1使用Show方法，应写成__form1.show_______________。 15．PictureBox控件可通过设置其(autosize)__属性为True使之可自动调整大小；而Image控件可通过设置其_(stretch_)__属性为True，使其加载的图片能自动调整大小以适应Image。 16．在Visual Basic程序中实现复制文件“c:command.com”到d:盘根目录下的语句为FileCopy “c:command.com”，“d:command.com”_。 二、单项选择题 1．下列控件中没有Caption属性的是（B） A、标签 B、文本框 C、框架 D、命令按纽 2．除框架外，能对单选按纽分组的控件是（C）。A、窗体 B、标签 C、图片框 D、图像 3．下列符号不能作为VB中变量名的是（C）。 A、ABCDEFG B、P00000 C、89YWDDF D、xyz 4． 下列不属于Visual Basic数据文件的是（D）。A、顺序文件 B、随机文件 C、二进制文件 D、数据库文件 5．若要求从文本框中输入密码时在文本框中只显示*号，则应用在此文本框的属性窗口中设置（D）。 A、Text属性值为* B、Caption属性值为* C、Password属性值为空 D、PasswordChar属性值为* 6．表达式2*3^2+2*8/4+3^2的值为（B）。A、64 B、31 C、49 D、42 7．表达式mid(“abcdefg”,3,2)的值是（B）A、abc B、cd C、bcd D、abcde 8．数学表达式Sin25°写成VB表达式是（D）。A、Sin25 B、Sin（25）C、Sin（25°）D、Sin（25*3.14/180） 9．Sub过程与 Function过程最根本的区别是（D）。A、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以。 B、Function过程可以有参数，Sub过程不可以。C、两种过程参数的传递方式不同。 D、Sub过程的过程名不能返回值，而Function过程能够通过过程名返回值。 10．选拔身高T超过1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式为（C） A、T>=1.7 And W<=62.5 B、T<=1.7 Or W>=62.5 C、T>1.7 And W<62.5 D、T>=1.7 Or W<62.5 11.下列对象不能响应 Click事件的是（D）A、列表框 B、图片框 C、窗体 D、计时器 12．在Visual Basic中，按文件的访问方式不同，可以将文件分为（A） A、顺序文件、随机文件和二进制文件 B、文本文件和数据文件 C、数据文件和可执行文件 D、ASCⅡ文件和二进制文件 13．将通用对话框CommonDialog的类型设置成“颜色”对话框，可调用该对话框的（C）方法。 A、ShowOpen B、ShowSave C、ShowColor D、ShowFont 三、指出下列句中的错误，修改或者说明原因。1．sum和int.sum都可以作为VB的变量名。(X)2．变量名的长度最长可达1024个字符。(255)3．下列程序运行结果：3，3 Option Explicit Private Sub Command1_Click()Dim a，b As Integer Dim a as integer ,b as integer a = 3.6 b = 3.6 Text1.Text = a Text2.Text = b End Sub 4．程序可以改变定长字符串的内容和长度。 5．Variant是一种特殊的数据类型，可以包含任何种类型的数据。．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。 6．下列程序运行结果为True Private Sub Command1_Click()a = 1 b = 2 c = 3 Text1.Text = c > a + b Or b1 And c + a > a Xor b < c#12/20/1999#的运算结果是#12/11/1999# 8．可以在窗体的通用部分声明静态变量。 不正确。静态变量为局部变量，只能在过程中声明。 9．使用声明语句建立一个变量后，Visual Basic会自动对数值类型的变量赋初值0，变长的字符串被初始化为一个零长度的字符串“"，定长字符串用空格填充，Variant变量被初始化为 Empty，布尔型的变量被初始化为False。 10．事件过程通常由事件驱动执行，而Sub过程通过过程调用执行。 11．将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。12．当图像控件（Image）的Stretch属性为True时，Image控件能自动调整自己的尺寸与显示的图片匹配。 不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。 四、读程序题，写出程序运行结果。1．Private Sub Form_Click()For I = 1 To 9 For j = 1 To 301 To 1 Step-1 Print k;Next k Print Next I End Sub 2． Option Explicit Private Sub Command1_Click()Static S As Integer Dim i As Integer S = 1 For i = 1 To 5 S = S * i Next i Print S End Sub 3． For X = 5 To 1 Step-1 For Y = 1 To 6y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．单击 双击 装载 多 响应某个事件后所执行的程序代码 cmd1 Click 14．完成某种特定的功能 对象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy ”c:command.com“，”d:command.com“ 二、单项选择题 1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C 三、指出下列句中的错误，修改或者说明原因。1．int.sum 不正确。变量名中不能包括小数点。2．变量名的长度最长可达255个字符。3． 3.6，4 因为a 不是整型变量。 4．不正确。程序不可以改变字符的长度，这是VB规定。5．不完全正确。Variant是一种特殊的数据类型，除了定长字符串数据及用户定义类型外，可以包含任何种类型的数据，这是VB规定。 6．False。逻辑表达式计算结果。 7．不正确。两个日期型数据相减，其结果是一个数值型数据。8．不正确。静态变量为局部变量，只能在过程中声明。9．正确。10．正确。11．正确。 12．不正确。该属性设为Ture时，Image控件不能自动调整自己的尺寸与显示的图片匹配，而可以使图片自动扩展以适应控件的尺寸。 四、读程序题，写出程序运行结果。1．程序运行后，单击窗体，输出结果为： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序运行后，单击按钮Command1，输出结果为： 3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9 五、编程题 1． 。120 Private Sub Command1_Click()Text1.Text = ”“ Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成绩填写不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 End If End Sub Private Sub Command3_Click()Unload Me End Sub 2． Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3． Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click()Unload Me End Sub 4． a = Val(InputBox(”输入第一个数：“))b = Val(InputBox(”输入第二个数：“))c = Val(InputBox(”输入第三个数：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的数是：" & b) 原文网址: http://hi.baidu.com/%CC%EC%D0%AB%C4%A7%BE%FD/blog/item/d446b034a6b3373f5bb5f5fd.html 由弘一网童保存，尚未注册。注册 无忧考网 www.xiexiebang.command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是： A)Private Sub Text1_Change() Command1.Caption=”计算机等级考试” End Sub B)Private Sub Command1_Click() Caption=”计算机等级考试” End Sub C)Private Sub Form1_Click() Text1.Caption=”计算机等级考试” End Sub D)Private Sub Command1_Click() Text1.Text=”计算机等级考试” End Sub (12)设a=5,b=4,c=3,d=2，下列表达式的值是 3>2*b Or a=c And b<>c Or c>d A)1 B)True C)False D)2 (13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是 A)b=Left(a,10) B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,10) (14)假定有如下的窗体事件过程： Private Sub Form_Click() a$ = “Microsoft Visual Basic” b$ = Right(a$, 5) c = Mid(a$, 1, 9) MsgBox a$, 34, b$, c$, 5 End Sub 程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是： A)Microsoft Visual B)Microsoft C)Basic D)5 无忧考网 www.xiexiebang.command1)右移200，应使用的语句是 A)Command1.Move-200 B)Command1.Move 200 C)Command1.Left= Command1.Left+200 D)Command1.Left= Command1.Left-200 (17)在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click() x = InputBox(“请输入一个整数”) Print x + Text1.Text End Sub 程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是： A)12 3B)456 C)579 D)123456 （18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1._________ End Sub Private Sub Timer1_Timer()Text1.Text = Time End Sub 在______处应填入的内容是 A)Enabled=True B)Enabled=False C)Visible=True D)Visible=False (19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是： A)选择图片框，然后按Del键 B)执行语句Picture1.Picture=LoadPicture(“”) C)执行语句Picture1.Picture=”” D)选择图片框，在属性窗口中选择Picture属性，然后按回车键 （20）在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是 A)Private Sub List1_Click() Label1.Caption = List1.ListIndex End Sub B)Private Sub List1_Click() Label1.Name = List1.ListIndex End Sub C)Private Sub List1_Click() Label1.Name = List1.Text End Sub D)Private Sub List1_Click() Label1.Caption = List1.Text End Sub （21）在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() 无忧考网 www.xiexiebang.command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() c = “ABCD” For n = 1 To 4 Print _________ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在________处应填入的内容为 A)Left(c,n) B)Right(c,n) C)Mid(c,n,1) D)Mid(c,n,n) (23)执行以下程序段 Dim x As Integer, i As Integer x=0 For i = 20 To 1 Step-2 x = x + i 5 Next I 后，x的值为 A)16 B)17 C)18 D)19 （24）在Visual Basic工程中，可以作为启动对象的程序是 A)任何窗体或标准模块 B)任何窗体或过程 C)Sub Main过程或其他任何模块 D)Sub Main过程或任何窗体 无忧考网 www.xiexiebang.command1的命令按钮数组，则以下说法中错误的是 A)数组中每个命令按钮的名称(名称属性)均为Command1 B)数组中每个命令按钮的标题(Caption属性)都一样 C)数组中所有命令按钮可以使用同一个时间过程 D)用名称Command1(下标)可以访问数组中的每个命令按钮 (26)把窗体的KeyPreview属性设置为True,然后编写如下事件过程: Private Sub Form_KeyPress(KeyAscii As Integer) Dim ch As String ch = Chr(KeyAscii) KeyAscii = Asc(UCase(ch)) Print Chr(KeyAscii + 2) End Sub 程序运行后,按键盘上的”A”键,则在窗体上显示的内容是 A)A B)B C)C D)D (27)在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序: Private Sub Command1_Click() a = InputBox(“请输入日期(1~31)”) t = “旅游景点:” _ & IIf(a > 0 And a <= 10, “长城”, “")_ & IIf(a > 10 And a <= 20, ”故宫“, ”“)_ & IIf(a > 20 And a <= 30, ”颐和园“, ”“) Text1.Text = t End Sub 程序运行后,如果从键盘输入16,则在文本框中显示的内容是: A)旅游景点：长城故宫 B)旅游景点：长城颐和园 C)旅游景点：颐和园 D)旅游景点：故宫 (28)在窗体上画一个名称为Label1的标签,然后编写如下事件过程: Private Sub Form_Click() Dim arr(10, 10)As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j)= i * j Next j Next i Label1.Caption = Str(arr(2, 2)+ arr(3, 3)) End Sub 程序运行后,单击窗体,在标签中显示的内容是 无忧考网 www.xiexiebang.comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程: Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun = 2 Else fun = 1 End If End Function Private Sub Command1_Click() Dim i As Integer, s As Integer s = 0 For i = 1 To 5 s = s + fun(i) Next Print s End Sub 程序运行后,单击命令按钮,则窗体上显示的是: A)6 B)7 C)8 D)9 (30)阅读程序: Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j)= i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j)= j + 9 Next j Print arr(3, 2)+ arr(3, 4) 无忧考网 www.xiexiebang.command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d = 0 c = 6 x = Array(2, 4, 6, 8, 10, 12) For i = 1 To 6 If x(i)> c Then d = d + x(i) c = x(i) Else d = d1 Loop While n > 0 Print s End Sub 以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】 (10)设有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integer arr1 = Array(12, 435, 76,-24, 78, 54, 866, 43) Min = 【12】 For i = 2 To 8 If arr1(i)< Min Then 【13】 Next i Print ”最小值是:“;Min End Sub 以上程序的功能是用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空 (11)在名称为Form1的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程: Private Sub Form_Click() Open ”d:testsmtext1.txt“ For Input As #1 Do While Not 【14】 Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr(13)+ Chr(10) Loop Text1.Text = whole$ Close #1 Open ”d:testsmtext2.txt" For Output As #1 Print #1, 【15】 Close #1 End Sub 上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后 无忧考网 www.51test.net 把该文本框中的内容存入磁盘文件smtext2.txt.请填空 以下答案仅供参考 选择题： 1---5DBDCA 6---10 CBDDC 11--15 ABBCD 16--20 CDABD 21--25 ABCDB 26--30 CDBBA 31--35 CDDDA 填空题： 【1】19 【2】 对象 【3】 程序调试 【4】 关系 【5】 算法 【6】12345.68 【7】VB程序设计 【8】 VB Programming 【9】 10 【10】 求1-8的和 【11】36 【12】 arr1(1) 【13】min=arr1(i) 【14】 EOF(1) 【15】text1.text(或whole$)12第五篇：2005年4月二级VB笔试试题
点击咨询 