计算机VB 应用基础二.docx
- 文档编号:12571662
- 上传时间:2023-06-06
- 格式:DOCX
- 页数:17
- 大小:23.59KB
计算机VB 应用基础二.docx
《计算机VB 应用基础二.docx》由会员分享,可在线阅读,更多相关《计算机VB 应用基础二.docx(17页珍藏版)》请在冰点文库上搜索。
计算机VB应用基础二
上海金融学院
2008——2009学年,第2学期,非信息管理院(系、部)各专业
2008年级计算机应用基础
(二)课程期末考试试卷
一、本试卷系A卷、B卷,采用开卷、闭卷、上机方式,集中考试非集中考试考试时不能使用计算工具、只能使用简单计算器(无存储功能)、可使用任何计算工具。
(请将横线上不需要的文字用红笔划去)
二、应参加本试卷考试的班级及学生如下:
________系________专业________班________人
________系________专业________班________人
________系________专业________班________人
________系________专业________班________人
________系________专业________班________人
________系________专业________班________人
注意事项
1.请用试卷标准台头、格式、字体、纸张打印试卷。
要求:
纸张大小16开纸;上下边距2厘米,左右边距2厘米;
正文宋体小四号字,行距1.25倍。
2.请注明各题应得的分数,试题之间不留答题空隙,另附答题纸。
3.试卷标准答案附在试卷后一并交教务处。
4.试卷由命题教师送教研室、院(系、部)领导签章后于考前两周由教务员交教务处。
交教务处时间_2009_年_6_月__日
送印时间_2009_年__月__日
试题内容分布情况
题型
分数
主要
教学内容
一
选择题
二
阅读
三
填空题
四
改错
五
编程
总分
第1章
第2章
第3章
第4章
第5章
第6章
总分
20
20
20
20
20
100
试卷说明:
(包括指导思想,与上次试题的主要区别等内容)
本次试卷的指导思想是主要考察学生对程序设计基础知识、VisualBasic程序设计语言的基本技能、面向对象、程序基本控制结构及数组与过程的应用等基本知识点的学习与掌握情况。
与上次试题的主要区别是试题的知识点覆盖面、试题的具体类型等有一定程度的增加,复杂度与难度等与上次试题基本持平。
命题教师签字________教研室主任签字________院(系、部)领导签字________
上海金融学院
2008——2009学年第2学期
《计算机应用基础
(二)》课程代码:
13330159
集中考试考试形式:
闭卷考试用时:
90分钟
考试时不能使用计算工具
试题纸
一、单项选择题(20分,每小题1分)
1.在设计阶段,当双击窗体上的某个控件时,所打开的窗口是______
A)工程资源管理器窗口B)工具箱窗口
C)代码窗口D)属性窗口
2.确定一个窗体或控件大小的属性是______
A)Width或HeightB)Width和Height
C)Top或LeftD)Top和Left
3.与传统的程序设计语言相比,VisualBasic最突出的特点是______
A)事件驱动编程机制B)结构化程序设计
C)程序开发环境D)程序调试技术
4.下列符号哪一个是VB中的合法变量名______
A)7ABB)A[B]7C)IFD)AB7
5.表达式4+5\6*7/8Mod9的值是______
A)4B)5C)6D)7
6.设a=“VisualBasic”,下面使b=“Basic”的语句是______
A)b=Mid(a,8,5)B)b=Left(a,8,12)
C)b=Right(a,5,5)D)b=Left(a,8,5)
7.InputBox函数的返回值的类型是______
A)数值B)字符串C)变体D)数值或字符
8.下列哪组语句可以将变量A、B的值互换______
A)A=B:
B=AB)A=(A+B)/2:
B=(A–B)/2
C)A=C:
C=B:
B=AD)A=A+B:
B=A-B:
A=A-B
9.设a=3,b=4,c=5,d=6,表达式a>bAndc<=dOr2*a>c的值是______
A)1B)–1C)TrueD)False
10.设a=6,则执行x=IIf(a>5,-1,0)后,x的值是______
A)5B)6C)0D)-1
11.为了清除列表框中的所有内容,应使用的方法是______
A)ClearB)ClsC)RemoveD)RemoveItem
12.用下面的语句所定义的数组的元素个数是______
Dimarr(3To5,-2To2)
A)12B)15C)20D)24
13.若要使命令按钮不可见,可设置______属性为False来实现
A)VisibleB)ValueC)EnabledD)Cancel
14.若要退出For循环,可使用的语句是______
A)ExitDoB)ExitC)ExitForD)ExitSub
15.运行程序时,系统自动执行窗体的______事件
A)ClickB)UnloadC)DblClickD)Load
16、在下列表达式中,正确的日期型常量是_____
A)"12/04/01"B)12/04/01C){12/04/01}D)#12/04/01#
17、若要退出Do…While循环,可使用的语句是______
A)ExitDoB)ExitC)ExitForD)ExitSub
18、执行PRINT18/2*3,-3^2命令后,输出结果为______
A)39B)3-9C)27-9D)–927
19、可以同时删除字符串前导和尾部空格的函数是______
A)LtrimB)RtrimC)MidD)Trim
20、运行程序时,系统自动执行窗体的______事件
A)DblClickB)UnloadC)LoadD)Click
二、程序阅读,写出程序运行结果(20分,每小题5分)
1.此程序为窗体的单击事件过程。
PrivateSubCommand1_Click()
DimIAsinteger,nAsInteger
n=1
ForI=0To50
I=I+3
n=n+1
IfI>20ThenExitFor
NextI
Print“n=”,n
EndSub
2、此程序为命令按钮的单击事件过程。
Optionbase1
PrivateSubCommand1_Click()
DimIA,imax%,n%,I%,J%,t%
IA=Array(5,6,9,1,2,7)
n=6
ForI=1Ton-1
imax=I
Forj=I+1Ton
ifIA(j)>IA(imax)Thenimax=j
Nextj
t=IA(I):
IA(I)=IA(imax):
IA(imax)=t
forj=1ton
printIA(j);
nextj
NextI
EndSub
3、此程序为命令按钮的单击事件过程。
PrivateSubCommand1_Click()
DimIA,n%,I%,J%,t%
IA=Array(8,1,9,4,2,7)
n=6
ForI=1Ton-1
Forj=n-2ToI-1Step-1
ifIA(j) t=IA(j): IA(j)=IA(j+1): IA(j+1)=t Endif Nextj forj=0ton-1 printIA(j); nextj print NextI EndSub 4、此程序为命令按钮的单击事件过程。 PrivateSubCommand1_Click() DimmAsInteger,nAsInteger m=14: n=56 Ifm t=m: m=n: n=t EndIf DoWhilen<>0 r=mModn m=n n=r Loop print“m=“;m;“n=”;n EndSub 三、程序填空(20分,每个空格2分) 1、请将下列程序补充完整。 程序功能是从键盘输入一个字符,判断该字符是字母字符、数字字符还是其他字符,并做出相应的显示,要求窗体上无其他控件,禁用asc函数和chr函数,SelectCase语句中禁用枚举值。 PrivateSubForm_Load() DimxAsString*1 x=___ (1)___(“请输入单个字符”,“字符”) SelectCaseUcase(___ (2)___) Case___(3)___ Printx+“是字母字符” Case___(4)___ Printx+“是数字字符” CaseElse Printx+“是其他字符” EndSelect EndSub 2、请将下列程序补充完整。 程序功能是利用二维数组建立一个5×4的矩阵,矩阵中的每个数值是利用随机函数产生的两位整数,运行程序后可以找出其中最大的那个元素所在的行和列,并输出其值及行号和列号。 (8分,每格2分) PrivateSubForm_Click() Dima(1To5,1To4)AsInteger ForI=1To5 Forj=1To4 a(I,j)=___ (1)___ Printa(I,j); Nextj Print NextI max=a(1,1): maxi=1: maxj=1 ForI=1To5 Forj=1To4 If___ (2)___Then max=a(I,j): maxi=___(3)___ ___(4)___ EndIf Nextj NextI Print“最大值为”;max;“其行号为”;maxi;“其列号为”;maxj EndSub 3、请将下列程序补充完整。 程序功能是3的n次方的值 PrivateSubCommand1_Click() n=5: m=1: k=1 Dowhile___ (1)___ M=___ (2)___ k=k+1 Loop Printm EndSub 四、程序改错(20分,每个错误2分) 说明: 请将下列事件过程中的存在错误的代码(加注编号)以正确的形式写在答题纸上。 1、PrivateSubCommand1_Click() x=7: Dimb(x)AsInteger① s=0 Fork=0To6 b(k)=InputBox(“请输入数据”)② If50 Nextk Print“s=”;s EndSub 2.PrivateSubform1_Click()① h=10 forI=1to3 ifm≤2thenh=h+1② Loop③ Print“h=”;h EndSub 3.PrivateSubCommand1_Click() Dimg,m,pasinteger① k=30: m=10 p=func(g,m) Print“p=”;p Endsub Functionfunc(aasinteger,basinteger)asinteger m=1: I=2 I=I-m-1 m=I+a+b p=m② EndFunction 4、设企业招聘的条件是: 英语过6级(english),且工作经验(work)在2年及以上;或者工作经验(work)在5年及以上 ifenglish=英语6级then① ifwork>=2then print“招聘” endif else ifwork≥5then② print“招聘” endif endif 五、编程题(20分,每题10分) 1.设命令按钮的程序功能是: (6分) 根据运行阶段从文本框输入的年号和月份,判断该年是否闰年,并依据输入的月份采用多分支选择结构SelectCase来判断是什么季节,将判断结果在Label3中输出。 提示: 闰年的条件是年号能被4整除但不能被100整除,或者能被400整除;每年3~5月为春季。 2.编程。 分别统计2~50中,满足5的倍数的数之和? (7分) 3、编程。 求100以内的素数的最大值。 (7分) 上海金融学院 2008——2009学年第2学期 《计算机应用基础 (二)》课程代码: 13330159 __________专业_________班姓名__________学号_______座位号 答题纸 题次 一 二 三 四 五 六 七 八 九 十 总分 应得分 20 20 20 20 20 100 实得分 阅卷教师签名 得分 一、单项选择题(共20题,每题1分,共计20分) 1.________2.________3.________4.________5.________ 6.________7.________8.________9.________10.________ 11.________12.________13.________14.________15.________ 16.________17.________18.________19.________20.________ 得分 二、程序阅读题(共4题,每题5分,共计20分) 1、答3、答 2、答4、答 得分 三、程序填空题(共3题,每空2分,共计20分) 1.答: (1) (2)(3) (4) 2.答: (1) (2) (3)(4) 3.答: (1) (2) 得分 四、程序改错题(共4题,每错2分,共计20分) 1.答: ①______________________________________________ ②_____________________________________________________ ③_____________________________________________________ 2、①_____________________________________________________ ②_____________________________________________________ ③_____________________________________________________ 3、①_____________________________________________________ ②_____________________________________________________ 4、①_____________________________________________________ ②_____________________________________________________ 得分 五、编程题(共3题,共计20分) 1.编程(6分) 2.编程: (7分) 3.编程: (7分) 上海金融学院 2008——2009学年度第2学期 《计算机应用基础 (二)》课程代码: 13330159 集中考试考试形式: 笔试、闭卷考试用时: 90分钟 注: 本课程所用教材,教材名: VisualBasic程序设计简明教程 主编: 龚沛曾等出版社: 高等教育出版社版次: 第2版 答案及评分标准 一、单项选择题(20分) 1.C 2.B 3.A 4.D 5.B 6.A 7.B 8.D 9.C 10.D 11.A 12.B 13.A 14.C 15.D 16.D 17.A 18.C 19.D 20.C 二、阅读程序题(20分) 1.答: n=7 2.答: (5分,每排1分)965127/975126/976125 976521/976521(分5排书写) 3.答: (5分,每排1分)981742/987142/987412 987421/987421(分5排书写) 4、答: m=14n=0; 三、程序填空(35分) 1.答: InputBox、x、”A”To“Z”、”0”To“9” 2.答: int(Rnd*90+10)、a(I,j)>max、I、maxj=j 3、答: k<=n、m*2 四、程序改错(20分) 1.答: Dimb(6) 加”Val()函数”,b(k)>50Andb(k)<100 2.答: form,m<=2,next 3、答: 变量分别定义,func=m 4、答: “英语6级”,work>=5 五、编程题(20分) 1.编程参考: (6分) PrivateSubCommand1_Click() y=val(text1.text): m=val(text2.text) if(ymod4=0andymod100<>0)or(ymod400=0)then leapyear=“年是闰年,” else leapyear=“年不是闰年,” endif selectcasem case3To5: ji=“月在春季” case6To8: ji=“月在夏季” case9To11: ji=“月在秋季” case1,2,12: ji=“月在冬季” endselect label3.caption=text1.text&leapyear&m&ji endsub 2.编程参考(7分) PrivateSubCommand1_Click() X=0 Fori=2To50 IfImod5=0thenx=x+I nextI Printx endsub 2.编程参考(7分) PrivateSubCommand1_Click() max=0 Form=2to100 Flag=true ForIto2tom-1 If(mmodI)=0thenflag=false NextI Ifflagandm>maxthenmax=m Nextm Printmax Endsub
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机VB 应用基础二 计算机 VB 应用 基础