搜索
2007～2008学年第二学期《VisualBasic程序设计》期末考试题（B卷）学院（系）班级学号（最后两为）姓名注意：一、二、三题的答案必须按题号和顺序填写到答案表中，否则无效。题号一二三四总分得分阅卷人核分人签名：答案表：一、单选题123456789101112131415161718192021222324252627282930二、写出程序运行结果或功能12345VisualBasic程序设计期末考试题（B卷）第2页共10页三、填写程序中缺少部分12【1】【2】【3】【4】【5】34【6】【7】【8】【9】【10】四、编写程序1.PrivateSubCommand1_Click()EndSubVisualBasic程序设计期末考试题（B卷）第3页共10页2.PrivateSubCommand1_Click()EndSub3.PrivateSubCommand1_Click()EndSubVisualBasic程序设计期末考试题（B卷）第4页共10页2007～2008学年第二学期《VisualBasic程序设计》期末考试题（B卷）学院（系）班级学号（最后两为）姓名注意：一、二、三题的答案必须按题号和顺序填写到答案表中，否则无效。题号一二三四总分得分阅卷人核分人签名：一.选择题(每小题1分，共30分)1.下面的运算符中，优先级最高的是。A.AndB.*C.=D.&2.VB是一种面向对象的可视化程序设计语言，用户要为某个对象的某个()来编写事件过程。A．方法B．变量C．属性D．事件3.工程文件的文件名后缀是。A.bmpB.vbpC.frmD.bas4.一个对象可以识别的动作分别称为。A.事件B.过程C.属性D.方法5.以下对象没有Caption属性。A.FormB.CommandButtonC.TextBoxD.Label6.下列选项中，是所有控件共有的属性。A.CaptionB.ValueC.TextD.Name7.下列哪一个表达式的值是逻辑型。A.Len(“abcd”)B.Left(“abcd”,2)VisualBasic程序设计期末考试题（B卷）第5页共10页C.34D.date()8.通常，文本框的SetFocus方法不能使用在事件过程中。A.Form_ClickB.Form_LoadC.Command_ClickD.Label_click9.窗体模块保存在一个扩展名为()的文件中。A.basB.clsC.frmD.bmp10.若要以代码方式设置在文本框中显示文本的字体大小，则用文本框的属性来实现。A.FontNameB.FontC.FontSizeD.FontBold11.若要取消窗体的最大化功能，则可设置属性为False来实现。A.ControlBoxB.MinButtonC.MaxButtonD.Enabeld12.若要将窗体隐藏起来，则实现的方法为。A.UnloadB.ShowC.WindowsStateD.Hide13.若要使标签的大小自动适应所显示的文本，可设置属性的值来实现。A.AutoSizeB.AlignmentC.EnabledD.Visble14.若要暂时关闭定时器，则可通过设置属性来实现。A.IntervalB.VisibleC.EnabledD.Timer15.如果有声明Dima(15)AsInteger，则该数组共有个元素。A．15B．16C．13D．不确定16.工程文件保存在一个扩展名为的文件中。A．basB．clsC．frmD．vbp17.文本控件Text属性的值是类型。A.字符型B．整型C．逻辑型D．日期型18.读随机文件中的记录信息，应使用下面语句。A.ReadB.GetC.Input#D.LineInput#19.在一行内写多个语句时，每个语句之间要用（）符号做分隔。A．，B．；C．、D．：20.在VB6.0中，常量12.12!的数据类型是。A.整型B.单精度型C.双精度型D.长整型21.若要在文本框中显示多行数据，可通过设置属性来实现。A.MultiLineB.IndexC.TextD.Left22.下列函数中()是求系统时钟函数。A．Date()B.Time()C.Now()D.Sqr()23.设A=2：B=3：C=4：D=5。以下表达式的值为True的是。VisualBasic程序设计期末考试题（B卷）第6页共10页A.ABANDC=DOR2*ACB.32*BORA=CANDBCORCDC.NOTA=COR4*C=B^2ANDBC+AD.A+B+CDORA*BD24.执行语句S=Len(Mid(“VisuaiBasic”,7,5))后，S的值是（）。A.VisualB.BasicC.5D.1025.如果要用文本框来给某个变量赋值，要使用文本框的（）属性。A.TextB.TabIndexC.IndexD.MultiLine26.下列是日期型常量。A.2/1/02B.2.1.02C.#2/1/02#D.{2/1/02}27.表达式5^2Mod25\2^2的值是。A.1B.0C.6D.428.表达式Int(24.56)的值为。A.24B.25C.24.5D.24.5629.在参数传递过程中，使用关键字来修饰参数，可以使之按值传递。A.ByValB.ByRefC.ValueD.Reference30.将条件“X是小于100的非负数”用VB的表达式表示为（）。A．0≤X＜100B．0〈=X〈100C．0〈=XANDX〈100D．0〈=XORX〈100二.写出程序运行结果(每题4分，共20分)1.给出运行下面程序，单击窗体后，屏幕上显示的结果。PrivateSubForm_Click()Dimx,yAsIntegerx=1:y=0DoWhilex3Y=y+xx=x+1LoopPrintx,yEndSub2.下面程序段，当用户连续第3次单击窗体后，标签上显示的结果是()。PrivateSubForm_Click()StaticIndexAsIntegerIndex=Index+1VisualBasic程序设计期末考试题（B卷）第7页共10页SelectCaseIndexCase1Label1.Caption=“复制操作”Case2Label1.Caption=“剪切操作”Case3Label1.Caption=“粘贴操作”Case4Label1.Caption=“清除操作”Index=0EndSelectEndSub3给出下列程序段的输出结果PrivateSubCommand1_Click()Dimm(10)Fork=1To10m(k)=11-kNextkx=6Printm(x)EndSub4.给出下列程序代码在单击命令按钮时的输出结果。PrivateSubCommand1_Click()s=中国加油！四川加油！k=0Forn=1ToLen(s)p=Mid(s,n,2)Ifp=加油Thenk=k+1EndIfNextPrintkEndSub5.写出下列程序的功能。n=4p=1VisualBasic程序设计期末考试题（B卷）第8页共10页k=1s=0DoWhilek=np=p*ks=s+pk=k+1Loop三.根据程序的功能填写程序中缺少的部分(每题5分，共20分)1.在窗体上输出由*组成的三角形。****************************************************************编写窗体的单击事件的程序代码如下：PrivateSubCommand1_Click()ClsPrint:Print:PrintFori=1To8PrintTab(5+i);Forj=1To【1】Print*;Next【2】NextEndSub2.下列程序段产生10个[10,99]之间的随机数，保存在a数组中，并在窗体中的Label1控件中显示出这10个随机数。PrivateSubForm_Load()DimpAsStringRandomizep=VisualBasic程序设计期末考试题（B卷）第9页共10页Fori=1To10a(i)=Int(Rnd*【3】)+【4】p=p&Str(a(i))&,NextLabel1.Caption=LTrim(【5】)EndSub3.以下程序用于计算1+(1+3)+(1+3+5)+…+(1+3+5+…+39)。PrivateSubCommand1_Click()t=0m=1Sum=0Dot=t+【6】Sum=Sum+【7】m=m+2LoopWhilem【8】Printsum=;SumEndSub4.下列程序求50-100之间的所有素数。PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerFori=51To100Step2f=0Forj=2To【9】IfiModj=0Thenf=1ExitForEndIfNextIff=【10】ThenPrintiEndIfNextEndSubVisualBasic程序设计期末考试题（B卷）第10页共10页四.编写程序(每题10分，共30分)1.编程计算2+4+6+…+100的值，并显示在文本框中（如图）。PrivateSubCommand1_Click()EndSub2.编写程序滤出字符串中所有的空格。在窗体上的文本框Text1控件输入字符串，单击命令按钮Command1时在标签控件Label1中输出结果。3.用SelectCase结构编程计算个人所得税。工资=2000免税；2000工资＝2500的部分税率5%；2500工资=4000的部分税率10%；4000工资=6000的部分税率15%；6000元以上的部分税率20%。工资由窗体上的文本框Text1控件输入，单击命令按钮Command1时在标签控件Label1中输出结果。