2010-2011年第二学期》试卷.docx

2010-2011年第二学期试卷经管法1011学年第二学期（visualhttpdocsj/doc/102d1ba9aef8941ea76e0579.程序设计）课程期末考试试卷A卷任课老师：学号：姓名：成绩：一、单项选择题每题1分,共30分注意答案必须写在下面答题卡中1在下列窗口中，能够查看与项目有关的所有文件。A解决方案资源管理器B属性窗口C起始页D任务列表2.若要责任令窗口不可操作，要对属性进行设置。A)EnabledB)VisibleC)BackColorD)Text3.项目名为“现实，在窗体上建立了PictureBox控件，若在代码窗口中要装入图片，语句如下picturebox控件名.image=image.fromfile(“图片文件名)，图片文件存放的当前途径应该是。A)现实B)现实BinDebugC)现实BinD)4.有程序代码入下:TextBox1.Text=“Text,则TextBox1、Text、“Text分别代表。A)对象、值、属性B)对象、方法、属性C)对象、属性、值D)属性、对象、值5.项目文件的扩展名是()。A).vbB).slnC).exeD).vbproj6.下面是合法的变量名。A)A_BcB)9abcC)LongD)a-b7.下面是合法的字符常量。A)ABC$B)ABCC)ABCD)ABC8.表达式Chr(Int(Rnd*10+66)产生的范围是()。A)“A“ZB)“a“zC)“B“KD)“b“k9.已知A$=12345678,则表达式val(Mid(A,4,2)+Mid(A,1,4)A)561234B)454321C)654321D)45123410.InputBox函数中必修要写的参数是。A)PromptB)TitleC)DefalutResponseD)XPos,YPos11.、/、Mod、*这四个算术运算符中，优先级别最低的是。A)B)/C)modD)*12.Ifx=1theny=1,下列讲法中正确的是。A)x=1和y=1均为赋值语句B)x=1和y=1均为关系表达式C)x=1为关系表达式，y=1为赋值语句D)x=1为赋值语句，y=1为关系表达式13.下列关于单项选择按钮和复选框控件的讲法中，错误的是。A)一个复选框的状态发生变化，不会影响其他复选框的状态B)一个单项选择按钮的状态发生变化，同组中必有另一个单项选择按钮的状态也发生变化C)某个单项选择按钮被单击，这一定会触发它的CheckChangedD)某个复选框被单击，这一定会触发它的CheckChanged14.如下数组声明语句是正确的。A)Dima(9)AsSingle=1,2,3,4,5,6,7,8,9,10B)Dima()AsSingle=1,2,3,4,5,6,7,8,9,10C)Dima()AsSingle=1,"a",3,"bc",4,5,6,7,8,9,10D)Dima(,)AsSingle=1,2,3,4,5,6,7,8,9,1015.要想从子经过调用后返回两个结果，下面子经过语句讲明合法的是。A)Subf2(byvaln%,byvalm%)B)Subf1(byrefn%,byvalm%)C)Subf1(byrefn%,byrefm%)D)Subf2(byvaln%,byrefm%)16.在下列关于通用对话框的讲法中，正确的是()。A)能够用showdialog方法打开B)能够用show方法打开C)当单击了“取消按钮后，showdialog方法的返回值是dialogresult.okD)通用对话框是用户界面控件17.在下列关于菜单的讲法中，错误的是。A)每个菜单项都是一个对象，也有本人的属性、方法、事件B)除了click事件之外，菜单项还能响应DoubleClickC)在程序执行时，假如菜单项的Enable属性值为False,则该菜单项变成灰色，不能被用户选择D)菜单的分隔符也是一个对象18.下面关于顺序文件的描绘中，正确的是。A)文件中的记录按记录号从小到大排序B)每条记录的长度必修一样C)数据以ASCII码形式存放在顺序文件中的D)记录是按进入的先后顺序存放的，读出也是按先写入的先后顺序读出的19.SelectCase语句中，表达式是下面四种形式，不正确的是。A)表达式，例如"a"B)一组用逗号分隔的枚举值，例如"a"，"b"C)表达式1to表达式2，例如1to10D)关系运算符表达式，例如>=6020.表达式Len("abc程序设计教程123")的值是。A)18B)12C)11D)2021.为了给x,y,z这三个变量赋初值1，正确的赋值语句是。A)x=1:y=1:z=1B)x=1,y=1,z=1C)x=y=z=1D)x=1;y=1;z=122.下面四种运算符，优先级别最低的是。A)算术运算符B)逻辑运算符C)连接运算符D)关系运算符23.要存放某人的年龄，下面的()数据类型占用的字节数最少。A)ShortB)ByteC)IntegerD)Long24.使用分组控件GroupBox的主要作用是。A)为了规则显示B)对控件分组C)建立新的显示创口D)在窗体上绘制线条25.下列循环体能正常结束的是。A)i=5B)i=10Dodoi=i+1i=i+1loopuntili20C)i=1D)i=6DoDoi=i+2i=i-2loopuntili=10loopuntili=126.下列关于do.loop循环构造执行循环体次数的描绘正确的是。A)Dowhileloop循环可能不执行，doloopuntil循环至少能够执行一次B)Dowhileloop循环至少能够执行一次，doloopuntil循环C)Dowhileloop和doloopuntil循环可能都不执行D)Dowhileloop和doloopuntil循环都至少执行一次27.假定有两个窗体form1和form2,form2上有一个文本框textbox1,则在下列讲法中，错误的是(。A)能够用语句form1.show显示form1B)能够用语句form2.showdialog显示form2C)在form1窗体上能够用form2.textbox1.text访问form2上的textbox1D)在form1窗体上能够用textbox1.text访问form2上的textbox128.在用通用对话框控件建立打开文件对话框时，在文件列表框只允许显示问本文件，则filter属性的正确设置是。A)text(.txt)|*.txtB)text(.txt)C)文本文件|(.txt)D)text(.txt)|*.txt29.随机文件使用下述语句读数据。A)WriteB)FilePutC)InputD)FileGet30.下面关于Visualhttpdocsj/doc/102d1ba9aef8941ea76e0579.的叙述中不正确的是。A)Dima,basinteger变量声明语句将a,b声明为整形。B)当Boolean类型的值转换为数值类型的数时，False转为0，True转成为-1。C)在httpdocsj/doc/102d1ba9aef8941ea76e0579.中，数组的下界能够是小于上界的任何整数。D)顺序文件的每条记录的长度能够相等。二、填空题(每空1分，共20分)(注意将结果写在下面相应横线上)12345678910111213141516171819201.整形变量x中存放了一个两位数，要将两位数交换位置，例如67变成76，实现这一功能的表达式是1。2.表示x是5的倍数或者是9的倍数的表达式是2。3.在httpdocsj/doc/102d1ba9aef8941ea76e0579.编程中，假如要使用数学函数，应该在模块代码的最前面添加语句3。4.要显示当前机器内系统日期的函数为4。5.VB中的变量按其作用域可分为5、模块级变量、6和块级变量。6.隐藏窗体的方法是7，关闭窗体的方法是8。7.在循环语句For和Do中，Continue语句的作用是9。8.在httpdocsj/doc/102d1ba9aef8941ea76e0579.中，怎样表示2005年12月7日109.自定义对话框，要求这个对话框弹出后，不能够在其他窗体上进行操作，程序也不继续运行下去，则应该设置这个对话框为11。10.文件根据存储信息的形式分类，能够分为12文件和13文件。11.下面程序段用于显示14个"*"。Fori=1to4Forj=2toimsgBox("*")nextjnexti12.设x是一个整型变量，写出x的个位数是奇数的表达式15。13.对于正在使用的数组x(n),既要增加2个数组元素，又要保留原来数组元素的值，使用的命令是1614.已知a=3.5,b=5.0,c=2.5,d=True,则表达式a>=0anda+c>b+5ornotd的值是1715.如下数组声明语句，dima(3,4),则数组a中包含的元素有18个。16.httpdocsj/doc/102d1ba9aef8941ea76e0579.提供了构造化程序设计的三种基本构造，它们是顺序构造、19和20。三、程序分析与填空(按题目要求答题！每空两分，共30分)(注意将结果写在下面相应横线上)1234567891011121314151.输入若干字符，统计有多少个元音字母"A","E","I","O","U"、多少个其他字母，直到按enter键结束，显示结果，不区分字母大小写。其中Y中存放元音字母个数，X中存放其他字母个数。Dimy%,x%PrivateSubTextBox1_KeyPress()HandlesTextBox1.KeyPressDimcAsCharc=UCase(e.KeyChar)If"A"MsgBox("元音字母有"&x&"个")EndIfEndSub2.程序填空找出分别被3,5,7,除余数都为1的最小的5个正整数。PrivateSubButton1_Click()HandlesButton1.ClickDimCN%,n%CN=0n=1Don=n+1If3ThenMsgBox(n)CN=CN+1EndIfLoop4EndSub3.百元买百鸡问题，假定小鸡每只5毛钱，公鸡每只2元钱，母鸡每只3元钱，如今又100元钱要求买100只鸡，下面程序列出了所有的购鸡方案，请填空。Dimx%,y%,z%Label1.Text="母鸡公鸡小鸡"&vbCrLf5Fory=0To50z=100-x-yIf6ThenLabel1.Text&=x&Space(9)&y&Space(9)&z&vbCrLfEndIfNextyNextx4.设计一个如下图的文件加密程序，左边的文本框显示打开的文件内容，右边文本框显示经加密的内容，下面程序段功能是打开文件，请填空加密和保存文件省略DimchAsCharOpenFileDialog1.ShowDialog()FileOpen(1,7,8)TextBox1.Text=""DoWhile9ch=InputString(1,1)TextBox1.Text=TextBox1.Text+chLoop10Endsub5.下面的程序是将输入的一个数插入到递减的有序数列中，插入后该序列仍为有序。表单上有一个label1控件，当输入12时，最后输出结果例如19,17,15,13,12,11,9,注意结果中包含“，。PrivateSubButton1_Click()HandlesButton1.ClickDimi%,n%,m%Dima()AsInteger=19,17,15,13,11,9n=11ReDimPreservea(n+1)m=Val(InputBox("输入欲插入的数")Fori=UBound(a)-1To012Ifm>=a(i)Then13Ifi=0Thena(i)=mElse14ExitForEndIfNextiFori=0ToUBound(a)15NextiEndSub四、读程序，写结果共20分(注意将结果写在下面相应横线上)1234567891011121.下面程序运行结果为，要求假如需要输出空格用S代替，例如空格*,表示为S*。(3分)Dimi%,j%PrivateSubForm1_Click()HandlesMe.ClickLabel1.Text=""Fori=3To1Step-1Label1.Text&=Space(5-i)Forj=1To2*i-1Label1.Text&="*"NextLabel1.Text&=vbCrLfNextEndSub1232,读程序，写出结果9分，每一个变量输出一次1分PublicSubp1(ByRefx%,ByRefy%)Dimc%x=2*x:y=y+2:c=x+yEndSubPublicSubp2(ByRefx%,ByValy%)Dimc%x=2*x:y=y+2:c=x+yEndSubPublicSubp3(ByValx%,ByValy%)Dimc%x=2*x:y=y+2:c=x+yEndSubPrivateSubButton1_Click()HandlesButton1.ClickDima%,b%,c%a=2:b=4:c=6Callp1(a,b)MsgBox("a="&a&"b="&b&"c="&c)Callp2(a,b)MsgBox("a="&a&"b="&b&"c="&c)Callp3(a,b)MsgBox("a="&a&"b="&b&"c="&c)EndSub4563.读程序，写结果，如下程序中TEXTBOX1.TEXT的值为什么。(3分)PrivateSubButton1_Click()HandlesButton1.ClickDims$,c$,i%,ls%s="abcde"ls=Len(s)Fori=1Tolsc=Mid(s,i,1)SelectCasecCase"a"To"z","A"To"Z"TextBox1.Text=c&TextBox2.TextEndSelectNextEndsub74.读程序，写结果5分PrivateSubForm1_Click()HandlesMe.ClickLabel1.Text=""DimA()AsString="t","b","w","v","e"Dimn%,i%,j%,t$,k%n=UBound(A)Fori=0TonLabel1.Text&=A(i)&""NextLabel1.Text&=vbCrLfFori=0Ton-1Forj=0Ton-i-1IfA(j)>A(j+1)Thent=A(j)A(j)=A(j+1)A(j+1)=tEndIfNextjFork=0TonLabel1.Text&=A(k)&""NextkLabel1.Text&=vbCrLfNextiEndSub89101112草稿纸草稿纸等同于试卷，请不要带出考场！【注意】本试卷满分100分，请不要拆开试卷。答题前请核对，少页、多页、重页请更换试卷。